or
<%@ Page Title="" Language="VB" MasterPageFile="~/Admin.master" AutoEventWireup="false" CodeFile="EditAssignHomework.aspx.vb" Inherits="EditAssignHomework" %><%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %><%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %><asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server"></asp:Content><asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server"> <asp:ScriptManager runat="server" ID="scriptmanager1"></asp:ScriptManager> <telerik:RadFormDecorator runat="server" ID="QsfFromDecorator" DecoratedControls="All" EnableRoundedCorners="true" /> <div> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="ListViewPanel1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="ListViewPanel1" LoadingPanelID="RadAjaxLoadingPanel1"> </telerik:AjaxUpdatedControl> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadListView1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="lblhomeworkID" LoadingPanelID="RadAjaxLoadingPanel1"> </telerik:AjaxUpdatedControl> <telerik:AjaxUpdatedControl ControlID="RadListView1" LoadingPanelID="RadAjaxLoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadListView2"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="lblhomeworkID" LoadingPanelID="RadAjaxLoadingPanel1"> </telerik:AjaxUpdatedControl> <telerik:AjaxUpdatedControl ControlID="RadListView2" LoadingPanelID="RadAjaxLoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="CheckBoxList1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="CheckBoxList1"></telerik:AjaxUpdatedControl> <telerik:AjaxUpdatedControl ControlID="ListViewPanel1" LoadingPanelID="RadAjaxLoadingPanel1"> </telerik:AjaxUpdatedControl> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> <ClientEvents OnRequestStart="RequestStart"></ClientEvents> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server"> </telerik:RadAjaxLoadingPanel> <telerik:RadCodeBlock ID="RadCodeBlock1" runat="server"> <script type="text/javascript"> function RequestStart(sender, eventArgs) { //disable ajax on update/insert operation to upload the image if ((eventArgs.get_eventTarget().indexOf("Update") > -1) || (eventArgs.get_eventTarget().indexOf("PerformInsert") > -1)) { eventArgs.set_enableAjax(false); } } </script> </telerik:RadCodeBlock> </div> <table id="Table1" runat="server" width="600px" > <tr> <td> <asp:Label ID="Label1" runat="server" Text="List of available students:"></asp:Label> </td> <td> <telerik:RadDropDownList runat="server" ID="lstStudentNames" AutoPostBack="true" DefaultMessage="Select a record" DataValueField="UserID" DataTextField="FullName" DataSourceID="SqlDataSource1" OnItemDataBound="lstStudentNames_ItemDataBound" OnItemSelected="lstStudentNames_ItemSelected" OnSelectedIndexChanged="lstStudentNames_SelectedIndexChanged" Width="300px"></telerik:RadDropDownList> </td> </tr> <tr> <td> <table> <tr> <td> <h3>Assignment(s) for student(s) configuration panel</h3> <asp:Panel runat="server" ID="ListViewPanel1"> <telerik:RadListView ID="RadListView1" DataSourceID="SqlDataSource2" runat="server" OnSelectedIndexChanged="RadListView1_SelectedIndexChanged" ItemPlaceholderID="AssignmentsContainer" DataKeyNames="UserID" AllowPaging="true" OnItemCommand="RadListView1_ItemCommand"> <LayoutTemplate> <fieldset id="FieldSet1" style="max-width: 946px;"> <legend>Homeworks</legend> <table cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <telerik:RadDataPager runat="server" id="RadDataPager1" PageControlID="RadListView1" PageSize="2" CssClass="paperStyle"> <Fields> <telerik:RadDataPagerButtonField FieldType="FirstPrev" /> <telerik:RadDataPagerButtonField FieldType="Numeric" /> <telerik:RadDataPagerButtonField FieldType="NextLast" /> <telerik:RadDataPagerPageSizeField PageSizeComboWidth="60" PageSizeText="Page size:" /> <telerik:RadDataPagerGoToPageField CurrentPageText="Page:" TotalPageText="of" SubmitButtonText="Go" TextBoxWidth="25" /> <telerik:RadDataPagerTemplatePageField Visible="true"> <PagerTemplate> <div style="float: right; padding-left: 50px;"> <strong> <asp:Label runat="server" ID="lblCurrentPageLabel" Text='<%# IIF(Container.Owner.TotalRowCount > 0, Container.Owner.StartRowIndex + 1, 0) %>'></asp:Label> to <asp:Label runat="server" ID="lblTotalPagesLabel" Text='<%# IIF(Container.Owner.TotalRowCount >0, Container.Owner.StartRowIndex + Container.Owner.PageSize, 0) %>'></asp:Label> of <asp:Label runat="server" ID="lblTotalItemsLabel" Text='<%# Container.Owner.TotalRowCount %>'></asp:Label> </strong> </div> </PagerTemplate> </telerik:RadDataPagerTemplatePageField> </Fields> </telerik:RadDataPager> </td> </tr> </table> <asp:PlaceHolder runat="server" ID="AssignmentsContainer"> </asp:PlaceHolder> <div style="clear:both"> </div> <table runat="server" style="width:100%; margin-top:5px"> <tr> <td style="width: 25%;"> <telerik:RadButton runat="server" ID="btnInitInsert" OnClick="btnInitInsert_Click" Text="New Assignment"></telerik:RadButton> </td> <td style="text-align: right; width: 75%;"> <asp:Label runat="server" ID="lblSort1" Text="Sorty by:" AssociatedControlID="ddListSort" Style="padding-right: 5px;" ></asp:Label> <telerik:RadComboBox runat="server" ID="ddListSort" AutoPostBack="true" OnSelectedIndexChanged="ddListSort_SelectedIndexChanged"> <Items> <telerik:RadComboBoxItem Text="-Select field to sort-" Value="" /> <telerik:RadComboBoxItem Text="Assignment Title" Value="AssignmentName" /> <telerik:RadComboBoxItem Text="Assighment Description" Value="AssignmentDesc" /> <telerik:RadComboBoxItem Text="DateAssigned" Value="DateAssigned" /> <telerik:RadComboBoxItem Text="DateToBeCompleted" Value="DateToBeCompleted" /> <telerik:RadComboBoxItem Text="DateCompleted" Value="DateCompleted" /> </Items> </telerik:RadComboBox> <asp:RadioButtonList RepeatLayout="Flow" runat="server" RepeatDirection="Horizontal" ID="rblSort" OnSelectedIndexChanged="rblSort_SelectedIndexChanged"> <asp:ListItem Text="Ascending" Value="ASC" Selected="True"></asp:ListItem> <asp:ListItem Text="Descending" Value="DESC"></asp:ListItem> </asp:RadioButtonList> </td> </tr> </table> </fieldset> </LayoutTemplate> <ItemTemplate> <fieldset class="fieldset"> <legend>Student Name: <asp:Label runat="server" ID="idLegendStudentName"></asp:Label> </legend> <table cellpadding="0" cellspacing="0" style="height: 100%;" width="100%"> <tr> <td> <table cellpadding="0" cellspacing="0" style="width: 95%;"> <tr> <td> <table cellpadding="0" cellspacing="0"> <tr> <td style="width: 50%"> Assignment Name: </td> <td style="width: 50%"> <%#Eval("AssignmentName")%> </td> </tr> <tr> <td style="width: 50%"> Assignment Desc: </td> <td style="width: 50%"> <%#Eval("AssignmentDesc")%> </td> </tr> <tr> <td style="width: 50%"> Date Assigned </td> <td style="width: 50%"> <%#Eval("DateAssigned")%> </td> </tr> <tr> <td style="width: 50%"> DateToBeCompleted </td> <td style="width: 50%"> <%#Eval("DateToBeCompleted")%> </td> </tr> <tr> <td style="width: 50%"> DateCompleted </td> <td style="width: 50%"> <%#Eval("DateCompleted")%> </td> </tr> <tr> <td style="width: 50%"> Assignment Completed? </td> <td style="width: 50%"> <asp:RadioButton runat="server" ID="rdIncompleted" GroupName="AssignmentCompleted" Checked="false" Text="Assignment Incomplete" /> <asp:RadioButton runat="server" ID="rdCompleted" GroupName="AssignmentCompleted" Checked="false" Text="Assignment Completed" /> <asp:RadioButton runat="server" ID="rdNotDecided" GroupName="AssignmentCompleted" Text="Not Decided Yet" Checked="true" /> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td> <table style="width: 95%; margin-top: 30px"> <tr> <td> <telerik:RadButton runat="server" ID="btnEdit" CommandName="Edit" Width="70px" Text="Edit"></telerik:RadButton> </td> <td style="text-align: right"> <telerik:RadButton runat="server" ID="btnDelete" CommandName="Delete" Width="70px" Text="Delete"></telerik:RadButton> </td> </tr> </table> </td> </tr> </table> </fieldset> </ItemTemplate> <EditItemTemplate> <fieldset class="fieldset"> <table runat="server" cellpadding="0" cellspacing="0" width="100%" style="height: 80%;" > <tr> <td> <table runat="server" cellpadding="0" cellspacing="0" style="width: 95%; margin-bottom: 5px"> <tr> <td> <table runat="server" cellpadding="0" cellspacing="0"> <tr> <td style="width: 50%"> Assignment Name: </td> <td style="width: 75%"> <asp:TextBox runat="server" ID="txtAssignmentName" Text='<%# Bind("AssignmentName") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqAssignmentName" ControlToValidate="txtAssignmentName" ErrorMessage="You need to enter assignment name." Display="Dynamic"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50%"> Assignment Desc: </td> <td style="width: 75%"> <asp:TextBox runat="server" ID="txtAssignmentDesc" Text='<%# Bind("AssignmentDesc") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqAssignmentDesc" ControlToValidate="txtAssignmentDesc" ErrorMessage="You need to enter assignment description." Display="Dynamic"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50%"> Date Assigned: </td> <td style="width: 75%"> <asp:TextBox runat="server" id="rdpDateAssigned" Text = '<%# Bind("DateAssigned") %>'> </asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqDateAssigned" ControlToValidate="rdpDateAssigned" ErrorMessage="You need to enter assigned date." Display="Dynamic"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50%"> Date To Be Completed: </td> <td style="width: 75%"> <asp:TextBox runat="server" id="txtDateToBeCompleted" Text = '<%# Bind("DateToBeCompleted") %>'> </asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqDateToBeCompleted" ControlToValidate="txtDateToBeCompleted" ErrorMessage="You need to enter date to be completed." Display="Dynamic"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50%"> Date Completed: </td> <td style="width: 75%"> <asp:TextBox runat="server" id="txtDateCompleted" Text = '<%# Bind("DateCompleted") %>'> </asp:TextBox> </td> </tr> <tr> <td colspan="2"> <div style="float:left; padding-left: 30%"> <asp:Button runat="server" ID="btnUpdate" Text="Update" CommandName="Update" /> <asp:Button runat="server" ID="btnCancel" Text="Cancel" CommandName="Cancel" CausesValidation="false" /> </div> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </fieldset> </EditItemTemplate> <InsertItemTemplate> <fieldset class="fieldset" style="clear: left; width: 540px"> <table cellpadding="0" cellspacing="0" style="height: 80%;" width="100%"> <tr> <td> <table cellpadding="0" cellspacing="0" style="width: 95%; margin-bottom: 5px"> <tr> <td style="width: 50%"> <table runat="server" cellpadding="0" cellspacing="0" style="width: 95%; margin-bottom: 5px"> <tr> <td style="width: 50"> Assignment Name: </td> <td style="width: 75%"> <asp:TextBox ID="txtAssignmentName" runat="server" Text='<%# Bind("AssignmentName") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqAssignmentName" ErrorMessage="Please enter assignment name." Display="Dynamic" ControlToValidate="txtAssignmentName"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50"> Assignment Desc: </td> <td style="width: 75%"> <asp:TextBox ID="txtAssignmentDesc" runat="server" Text='<%# Bind("AssignmentDesc") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqAssignmentDesc" ErrorMessage="Please enter assignment description." Display="Dynamic" ControlToValidate="txtAssignmentDesc"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50"> Date Assigned: </td> <td style="width: 75%"> <asp:TextBox ID="txtDateAssigned" runat="server" Text='<%# Bind("DateAssigned") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqDateAssigned" ErrorMessage="Please enter assigned date." Display="Dynamic" ControlToValidate="txtDateAssigned"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50"> Date To Be Completed: </td> <td style="width: 75%"> <asp:TextBox ID="txtDateToBeCompleted" runat="server" Text='<%# Bind("DateToBeCompleted") %>'></asp:TextBox> <asp:RequiredFieldValidator runat="server" ID="rqDateToBeCompleted" ErrorMessage="Please enter date to be completed." Display="Dynamic" ControlToValidate="txtDateToBeCompleted"></asp:RequiredFieldValidator> </td> </tr> <tr> <td style="width: 50"> Date Completed: </td> <td style="width: 75%"> <asp:TextBox ID="txtDateCompleted" runat="server" Text='<%# Bind("DateCompleted") %>'></asp:TextBox> </td> </tr> <tr> <td colspan="2"> <div style="float: left; padding-left: 40%;"> <asp:Button runat="server" ID="btnPerformInsert" Text="Insert" CommandName="PerformInsert" /> <asp:Button runat="server" ID="btnCancel" Text="Cancel" CommandName="PerformCancel" CausesValidation="false" /> </div> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </fieldset> </InsertItemTemplate> </telerik:RadListView> </asp:Panel> </td> </tr> </table> </td> </tr> <tr> <td> <asp:Button runat="server" ID="btnUpdateRecord" OnClick="btnUpdateRecord_Click" Text="Update" /> <asp:Label runat="server" ID="idCondition" ForeColor="Red" Width="300px"></asp:Label> </td> <td> <asp:Button runat="server" ID="btnNewAssignment" OnClick="btnNewAssignment_Click" Text="New Assignment" /> </td> </tr> </table><telerik:RadListView ID="RadListView2" DataSourceID="SqlDataSource2" runat="server" ItemPlaceholderID="CategoriesContainer" GroupPlaceholderID="GroupCategoriesContainer" GroupItemCount="3" DataKeyNames="homeworkID" OnSelectedIndexChanged="RadListView2_SelectedIndexChanged"> <LayoutTemplate> <fieldset id="GroupCategoriesContainer" runat="server"> </fieldset> </LayoutTemplate> <GroupTemplate> <fieldset style="float: left;"> <legend>Categories group</legend> <table> <tr> <asp:PlaceHolder ID="CategoriesContainer" runat="server"></asp:PlaceHolder> </tr> </table> </fieldset> </GroupTemplate> <EmptyItemTemplate> <td> <div class="itemDiv"> </div> </td> </EmptyItemTemplate> <SelectedItemTemplate> <td> <asp:LinkButton ID="imgButton" runat="server" CommandName="Select"> <telerik:RadBinaryImage ID="RadBinaryImage1" runat="server" AlternateText="Category Photo" Style="margin-left: 10px" ToolTip="Category Photo" Width="90px" Height="62px" BorderColor="#58954D" BorderWidth="2px" ResizeMode="Fit" ImageUrl='<%# string.Format("IMG/{0}.jpg", Eval("CategoryID")) %>'> </telerik:RadBinaryImage> </asp:LinkButton> <div class="selectedDiv"> <%#Eval("homeworkID")%> </div> </td> </SelectedItemTemplate> </telerik:RadListView> <asp:SqlDataSource SelectCommandType="Text" SelectCommand="Select [UserID], FullName FROM [BulletinBoardDataBase].[dbo].[tbl_RegistrationForm]" ID="SqlDataSource1" runat="server" ConnectionString="Data Source=ENTERDUMMYINFOHERE-PC\ENTERDUMMYINFOHERE;Initial Catalog=BulletinBoardDataBase;Integrated Security=True"> </asp:SqlDataSource> <asp:SqlDataSource SelectCommandType="Text" InsertCommand="INSERT INTO [dbo].[tbl_HomeWork] ([homeworkID] ,[UserID], [DateAssigned],[DateToBeCompleted],[AssignmentName],[AssignmentDesc],[AssignmentCompleted],[AssignmentIncomplete],[DateCompleted]) VALUES (@homeworkID ,@UserID , @DateAssigned, @DateToBeCompleted, @AssignmentName ,@AssignmentDesc ,@AssignmentCompleted ,@AssignmentIncomplete ,@DateCompleted)" DeleteCommand="DELETE FROM [BulletinBoardDataBase].[dbo].[tbl_HomeWork] Where UserID=@UserID And homeworkID=@homeworkID" UpdateCommand="UPDATE FROM [BulletinBoardDataBase].[dbo].[tbl_HomeWork] Set DateAssigned=@DateAssigned,DateCompleted=@DateCompleted, DateToBeCompleted=@DateToBeCompleted, AssignmentName=@AssignmentName, AssignmentDesc=@AssignmentDesc, AssignmentCompleted=@AssignmentCompleted, AssignmentInComplete=@AssignmentInComplete Where UserID = @UserID" SelectCommand="SELECT [homeworkID],[UserID],[DateAssigned],[DateToBeCompleted],[DateCompleted],[AssignmentName],[AssignmentDesc] FROM [BulletinBoardDataBase].[dbo].[tbl_HomeWork] Where UserID=@UserID" ID="SqlDataSource2" runat="server" ConnectionString="Data Source=ENTERDUMMYINFOHERE-PC\ENTERDUMMYINFOHERE;Initial Catalog=BulletinBoardDataBase;Integrated Security=True"> <SelectParameters> <asp:Parameter Name="UserID" Type="Int32" /> </SelectParameters> <UpdateParameters> <asp:Parameter Name="UserID" Type="Int32" /> <asp:Parameter Name="DateAssigned" Type="DateTime" /> <asp:Parameter Name="DateToBeCompleted" Type="DateTime" /> <asp:Parameter Name="AssignmentName" Type="String" /> <asp:Parameter Name="AssignmentDesc" Type="String" /> <asp:Parameter Name="AssignmentCompleted" Type="Boolean" /> <asp:Parameter Name="AssignmentInComplete" Type="Boolean" /> <asp:Parameter Name="DateCompleted" Type="DateTime" /> </UpdateParameters> <DeleteParameters> <asp:Parameter Name="UserID" Type="Int32" /> <asp:Parameter Name="homeworkID" Type="Int32" /> </DeleteParameters> <InsertParameters> <asp:Parameter Name="homeworkID" Type="Int32" /> <asp:Parameter Name="UserID" Type="Int32" /> <asp:Parameter Name="DateAssigned" Type="DateTime" /> <asp:Parameter Name="DateToBeCompleted" Type="DateTime" /> <asp:Parameter Name="AssignmentName" Type="String" /> <asp:Parameter Name="AssignmentDesc" Type="String" /> <asp:Parameter Name="AssignmentCompleted" Type="Boolean" /> <asp:Parameter Name="AssignmentIncomplete" Type="Boolean" /> <asp:Parameter Name="DateCompleted" Type="DateTime" /> </InsertParameters> </asp:SqlDataSource> </asp:Content>Imports System.Data.SqlClientImports System.DataImports System.Net.MailImports Telerik.Web.UIPartial Class EditAssignHomework Inherits System.Web.UI.Page Private lngHomeUSerID As Long() Private connectionString As String = "Data Source=ENTERDUMMYDATAHERE-PC\ENTERDUMMYDATAHERE;Initial Catalog=BulletinBoardDataBase;Integrated Security=True" Protected Sub lstStudentNames_ItemDataBound(sender As Object, e As Telerik.Web.UI.DropDownListItemEventArgs) Handles lstStudentNames.ItemDataBound e.Item.Attributes.Add("UserID", TryCast(e.Item.DataItem, DataRowView)("UserID").ToString()) End Sub Protected Sub lstStudentNames_ItemSelected(sender As Object, e As Telerik.Web.UI.DropDownListEventArgs) Handles lstStudentNames.ItemSelected Dim selectedItem As Telerik.Web.UI.DropDownListItem = lstStudentNames.SelectedItem ViewState("lngUserID") = selectedItem.Attributes("UserID").ToString ' Here we are getting details of all the assignments the student have being assigned. RadListView1.DataBind() End Sub Protected Sub btnInitInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) RadListView1.ShowInsertItem() RadListView1.FindControl("btnInitInsert").Visible = False End Sub Protected Sub lstStudentNames_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.DropDownListEventArgs) Handles lstStudentNames.SelectedIndexChanged End Sub Protected Sub rblSort_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) End Sub Protected Sub ddListSort_SelectedIndexChanged(ByVal sender As Object, ByVal e As RadComboBoxSelectedIndexChangedEventArgs) End Sub Protected Sub btnUpdateRecord_Click(sender As Object, e As System.EventArgs) Handles btnUpdateRecord.Click End Sub Protected Sub btnNewAssignment_Click(sender As Object, e As System.EventArgs) Handles btnNewAssignment.Click End Sub Protected Sub RadListView1_ItemCommand(sender As Object, e As Telerik.Web.UI.RadListViewCommandEventArgs) Handles RadListView1.ItemCommand If (e.CommandName = RadListView.PerformInsertCommandName) OrElse (e.CommandName = RadListView.UpdateCommandName) OrElse (e.CommandName = RadListView.CancelCommandName) Then RadListView1.InsertItemPosition = RadListViewInsertItemPosition.None RadListView1.FindControl("btnInitInsert").Visible = True RadListView2.Visible = True End If End Sub Protected Sub SqlDataSource2_Deleting(sender As Object, e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles SqlDataSource2.Deleting e.Command.Parameters("@UserID").Value = ViewState("lngUserID") ' Dim fvLabel As Label = DirectCast(CType(Page.FindControl("lblHomeWorkID"), Label), Label) ' e.Command.Parameters("@homeworkID").Value = fvLabel.Text End Sub Protected Sub SqlDataSource2_Inserting(sender As Object, e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles SqlDataSource2.Inserting ViewState("lnghomeworkID") = Convert.ToInt32(ViewState("lnghomeworkID")) + 1 e.Command.Parameters("@homeworkID").Value = ViewState("lnghomeworkID") e.Command.Parameters("@UserID").Value = ViewState("lngUserID") ' First before we retrieve password we are going to check first to make sure that the user actually exist Dim connection As New SqlConnection(connectionString) Dim command As New SqlCommand command.Connection = connection command.CommandText = "Select * From [BulletinBoardDataBase].[dbo].[tbl_RegistrationForm] Where UserID='" & ViewState("lngUserID") & "'" connection.Close() connection.Open() Dim reader As SqlDataReader = command.ExecuteReader() Dim email As String = Nothing Dim FullName As String = Nothing While (reader.Read()) email = reader("Email") FullName = reader("FullName") End While connection.Close() connection.Close() Dim Message As New MailMessage("fakeemail@gmail.com", email, "Assignment assigned to " & FullName & ".", "This is an automatic message. Please do not reply back to this email. If you have questions to ask about the assignment please email fakedemail@gmail.com, thank you. " & FullName & " you have a new assignment assigned to you. Please login to your profile to obtain your assignment if you do not fulfill your assignment at the deadline it is assigned to you it will go to the incomplete assignment.") Dim client As New SmtpClient() client.Send(Message) End Sub Protected Sub SqlDataSource2_Selecting(sender As Object, e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles SqlDataSource2.Selecting e.Command.Parameters("@UserID").Value = ViewState("lngUserID") End Sub Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load End Sub Protected Sub RadListView1_ItemDataBound(sender As Object, e As Telerik.Web.UI.RadListViewItemEventArgs) Handles RadListView1.ItemDataBound End Sub Protected Sub RadListView1_PreRender(sender As Object, e As System.EventArgs) Handles RadListView1.PreRender 'Try ' For Each item As RadListViewDataItem In RadListView1.Items ' hiddenListBox.Items.Add(CType(item.FindControl("lblHomeWorkID"), Label).Text) ' hiddenListBox.DataBind() ' Next 'Catch ex As Exception 'End Try End Sub Protected Sub RadListView1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadListView1.SelectedIndexChanged End SubEnd Class<ClientSettings> <Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="True"/></ClientSettings><head runat="server"> <link rel="Stylesheet" type="text/css" href="./Styles.css" /> <title>Content Tracker</title></head><body class="body"> <form id="form1" runat="server"> <telerik:RadScriptManager runat="server" ID="RadScriptManager1" /> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadGrid1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" /> <!-- Page Header --> <div class="header"> <table width="1000px"> <tr> <td> <table> <tr> <td> <img alt="" src="./Images/xxxxx_Logo_Small.gif" /> </td> </tr> </table> </td> <td style="float: right"> <table border="0"> <tr> <td> </td> </tr> <tr> <td> <b>Welcome <asp:Label ID="loggedInUser" runat="server" /></b> </td> </tr> </table> </td> </tr> </table> </div> <div id="Nav" class="nav"></div> <div id="spacer" class="divSpacer"></div> <!-- Page Content --> <div id="content" class="content" > <telerik:RadGrid ID="RadGrid1" Width="990" runat="server" DataSourceID="EntityDataSourceAssignments" AllowPaging="True" AllowAutomaticUpdates="True" AllowAutomaticInserts="True" GridLines="Both" AllowAutomaticDeletes="true" AllowSorting="true" OnItemCreated="RadGrid1_ItemCreated" OnItemInserted="RadGrid1_ItemInserted" OnPreRender="RadGrid1_PreRender"> <PagerStyle Mode="NextPrevAndNumeric" /> <MasterTableView DataSourceID="EntityDataSourceAssignments" AutoGenerateColumns="False" DataKeyNames="AssignmentsID" CommandItemDisplay="Top"> <Columns> <telerik:GridBoundColumn DataField="JurisdictionCode" HeaderText="Jurisdiction Code" SortExpression="JurisdictionCode" UniqueName="JurisdictionCode" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ObligationName" HeaderText="Obligation Name" SortExpression="ObligationName" UniqueName="ObligationName" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="DevTeamLead" HeaderText="Dev Team Lead" SortExpression="DevTeamLead" UniqueName="DevTeamLead" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Developer" HeaderText="Developer" SortExpression="Developer" UniqueName="Developer" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="TestTeamLead" HeaderText="Test Team Lead" SortExpression="TestTeamLead" UniqueName="TestTeamLead" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="DueDate" HeaderText="Due Date" SortExpression="DueDate" UniqueName="DueDate" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="FormsReceived" HeaderText="Forms Received" SortExpression="FormsReceived" UniqueName="FormsReceived" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="EfileComplete" HeaderText="Efile Complete" SortExpression="EfileComplete" UniqueName="EfileComplete" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ESEXTStatus" HeaderText="ES-EXT Status" SortExpression="ESEXTStatus" UniqueName="ESEXTStatus" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="SubmittalStatus" HeaderText="Submittal Status" SortExpression="SubmittalStatus" UniqueName="SubmittalStatus" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Priority" HeaderText="Priority" SortExpression="Priority" UniqueName="Priority" Visible="true"> </telerik:GridBoundColumn> <telerik:GridButtonColumn Text="Delete" CommandName="Delete" ButtonType="ImageButton" /> </Columns> <EditFormSettings> <EditColumn ButtonType="ImageButton" /> </EditFormSettings> </MasterTableView> <ClientSettings> <Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="True"> </Scrolling> </ClientSettings> </telerik:RadGrid> <asp:EntityDataSource ID="EntityDataSourceAssignments" runat="server" ConnectionString="name=ContentTrackerEntities" DefaultContainerName="ContentTrackerEntities" EntitySetName="Assignments" EnableUpdate="True" EnableDelete="True" EnableInsert="True"> </asp:EntityDataSource> </div> <div id="page-footer"> <div id="page-footer-copyright">Copyright © 2010-2012 xxxxxx. All rights reserved.</div> </div> </form>
RadGrid1.MasterTableView.HierarchyDefaultExpanded = True Dim tableSubCode As New GridTableView(RadGrid1) tableSubCode.Name = "SubCodes" tableSubCode.Width = Unit.Percentage(100) Dim relationFields1 As GridRelationFields = New GridRelationFields() relationFields1.MasterKeyField = "DetailID" relationFields1.DetailKeyField = "DetailID" tableSubCode.ParentTableRelation.Add(relationFields1) RadGrid1.MasterTableView.DetailTables.Add(tableSubCode) columnSubCodeCreation("SubCode", "Sub_Code", tableSubCode) columnSubCodeCreation("Household", "HouseHold_Count", tableSubCode) If mstrClientDataCategoryID1Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID1Description.Trim, "CD1", tableSubCode) End If If mstrClientDataCategoryID2Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID2Description.Trim, "CD2", tableSubCode) End If If mstrClientDataCategoryID3Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID3Description.Trim, "CD3", tableSubCode) End If If mstrReportDemographicID1Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID1Description.Trim, "Demographic1", tableSubCode) End If If mstrReportDemographicID2Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID2Description.Trim, "Demographic2", tableSubCode) End If If mstrReportDemographicID3Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID3Description.Trim, "Demographic3", tableSubCode) End If If mstrReportDemographicID4Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID4Description.Trim, "Demographic4", tableSubCode) End If If mstrReportDemographicID5Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID5Description.Trim, "Demographic5", tableSubCode) End If columnSubCodeCreation("Selected", "Selected", tableSubCode) If UcHeader.objSession.ApplicationId <> CInt(ConfigurationManager.AppSettings("MediaviewerAppID")) Then columnSubCodeCreation("Forced", "Forced", tableSubCode) End If columnSubCodeCreation("Circ", "Circ", tableSubCode) columnSubCodeCreation("Coverage", "Coverage", tableSubCode) If UcHeader.objSession.ApplicationId <> CInt(ConfigurationManager.AppSettings("MediaviewerAppID")) Then Dim dpCounter As Integer = 1 Dim dpCollection As IList(Of RadListBoxItem) = rlbDistributionPatterns.CheckedItems For Each item As RadListBoxItem In dpCollection columnSubCodeCreation(item.Text, "DP" & dpCounter.ToString, tableSubCode) dpCounter += 1 Next End If Private Sub RadGrid1_DetailTableDataBind(sender As Object, e As Telerik.Web.UI.GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind Dim dataItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem) Select Case e.DetailTableView.Name Case "SubCodes" Dim detailID As Integer = dataItem.GetDataKeyValue("DetailID").ToString() 'Dim Geography As String = dataItem.GetDataKeyValue("Geography").ToString() 'Dim CirculationTypeID As Integer = dataItem.GetDataKeyValue("CirculationTypeID").ToString() Dim Day As String = dataItem.GetDataKeyValue("Day").ToString() If mintCircSetID > 0 And (detailID = 29 Or detailID = 506 Or detailID = 509) Then e.DetailTableView.DataSource = GetDataTable(mstrSQL & ",1," & detailID & ",'" & Day & "'") End If End Select End Sub