or
<telerik:RadWindow ID="popupWindow" VisibleOnPageLoad="false" runat="server"> <ContentTemplate> <!-- Add Any UserControls For Server Side Show/Hide here. --> <uc:CaseFlags runat="server" ID="ucCaseFlags" Visible="false" /> </ContentTemplate></telerik:RadWindow><div> <telerik:RadComboBox ID="comboFlags" runat="server" Height="140px" Width="200px" ZIndex="10000"> </telerik:RadComboBox> </div><telerik:RadGrid ID="gridNouvOrdo" runat="server" CellSpacing="0" GridLines="None"> <FilterMenu EnableImageSprites="False"> </FilterMenu> <ClientSettings> <Selecting CellSelectionMode="None"></Selecting> </ClientSettings> <MasterTableView CommandItemDisplay="Top"> <CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings> <RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column"> <HeaderStyle Width="20px"></HeaderStyle> </RowIndicatorColumn> <ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column"> <HeaderStyle Width="20px"></HeaderStyle> </ExpandCollapseColumn> <Columns> <telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton" EditText="Modifier" Resizable="False" HeaderStyle-Width="46px" EditImageUrl="Images/Icons/006-Write-New-Icon.png"> <HeaderStyle Width="32px"></HeaderStyle> </telerik:GridEditCommandColumn> <telerik:GridButtonColumn CommandName="Delete" ConfirmText="Êtes-vous sûr de vouloir supprimer?" FilterControlAltText="Filter column column" Text="Supprimer" UniqueName="colDelete" ButtonType="ImageButton" ImageUrl="Images/Icons/059-Close-Delete-circle-Icon.png" ConfirmDialogType="Classic"> <HeaderStyle Width="32px"></HeaderStyle> </telerik:GridButtonColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colMedicament column" HeaderText="Médicament" UniqueName="colMedicament" DataField="NomMedicament"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colPoso1 column" HeaderText="Posologie 1" UniqueName="colPoso1" DataField="Posologie"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colPoso2 column" HeaderText="Posologie 2" UniqueName="colPoso2" DataField="Posologie2"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colQte column" HeaderText="Qté." UniqueName="colQte" ShowFilterIcon="false" DataField="Quantite"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colRen column" HeaderText="Ren." UniqueName="colRen" ShowFilterIcon="false" DataField="Renouvellements"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter colComment column" HeaderText="Commentaire" UniqueName="colComment" DataField="Commentaire"> </telerik:GridBoundColumn> </Columns> <EditFormSettings> <EditColumn FilterControlAltText="Filter EditCommandColumn column"> </EditColumn> </EditFormSettings> </MasterTableView></telerik:RadGrid>Protected Sub gridNouvOrdo_NeedDataSource(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles GridNouvOrdo.NeedDataSource gridNouvOrdo.DataSource = CurrentPropsBCM.OrdosManuellesEnd SubProtected Sub gridNouvOrdo_DeleteCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles GridNouvOrdo.DeleteCommand Dim id = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)End Sub<CommandItemTemplate> <a href="#" onclick="return openWin();">Add New Registrant</a> <a href="#" onclick="return refreshGrid();" style="float: right">Refresh</a></CommandItemTemplate><telerik:RadListView ID="RadListView1" runat="server"> <LayoutTemplate> <div> <div ID="itemPlaceholder" runat="server"> </div> </div> </LayoutTemplate> <ItemTemplate> <div> <table cellpadding="0" cellspacing="0" style="width: 700px"> <tr> <td style="background-color: #597791"> <img alt="" src="../../../images/spacer_1h20w.png" style="width: 20px; height: 1px" /> </td> </tr> </table> <table style="width: 100%"> <tr> <td class="tbltd" style="width: 90px; color: #00B000;"> Bitech ID:</td> <td style="width: 221px"> <strong> <asp:Label ID="lbl_IDBitech" runat="server" Text='<%# Eval("IDBitech") %>' ForeColor="#00B000" /> </strong> </td> <td class="tbltd" style="width: 136px"> Site:</td> <td> <asp:Label ID="lbl_Site" runat="server" Text='<%# Eval("Site") %>' /> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> Staff ID:</td> <td style="width: 221px"> <asp:Label ID="lbl_StaffID" runat="server" Text='<%# Eval("IDStaff") %>' /> </td> <td class="tbltd" style="width: 136px"> Phone:</td> <td> <asp:Label ID="lbl_IPPhone" runat="server" Text='<%# Eval("PhoneIP") %>' /> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> User Name:</td> <td style="width: 221px"> <asp:Label ID="lbl_UserName" runat="server" Text='<%# Eval("UserName") %>' /> </td> <td class="tbltd" style="width: 136px"> Email:</td> <td> <asp:Label ID="lbl_Email" runat="server" Text='<%# Eval("EmailAddress") %>'></asp:Label> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> Last Name:</td> <td style="width: 221px"> <asp:Label ID="lbl_LastName" runat="server" Text='<%# Eval("LastName") %>' /> </td> <td class="tbltd" style="width: 136px"> </td> <td> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> First Name:</td> <td style="width: 221px"> <asp:Label ID="lbl_FirstName" runat="server" Text='<%# Eval("FirstName") %>' /> </td> <td class="tbltd" style="width: 136px"> </td> <td> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> Title:</td> <td style="width: 221px"> <asp:Label ID="lbl_Title" runat="server" Text='<%# Eval("JobTitle") %>' /> </td> <td class="tbltd" style="width: 136px"> </td> <td> </td> </tr> <tr> <td class="tbltd" style="width: 90px"> Password:</td> <td style="width: 221px"> <asp:Label ID="lbl_Password" runat="server" Text='<%# Eval("Password") %>' /> </td> <td class="tbltd" style="width: 136px"> </td> <td> </td> </tr> </table> <table cellpadding="0" cellspacing="0" style="width: 100%"> <tr> <td style="background-color: #597791"> <img alt="" src="../../../images/spacer_1h20w.png" style="width: 20px; height: 1px" /> </td> </tr> </table> <table cellpadding="0" cellspacing="0" style="width: 650px"> <tr> <td> </td> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> <table cellpadding="0" cellspacing="0" style="width: 105px; height: 24px; background-image: url('../../../images/rad_button.gif')"> <tr> <td class="rad_button" style="text-align: center"> <asp:HyperLink ID="HyperLink2" runat="server" CssClass="rad_button" NavigateUrl='<%# "user_details.aspx?UserName=" + Eval("UserName") %>'>Details</asp:HyperLink> </td> </tr> </table> </td> <td> <table cellpadding="0" cellspacing="0" style="width: 105px; height: 24px; background-image: url('../../../images/rad_button.gif')"> <tr> <td class="rad_button" style="text-align: center"> <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl='<%# "user_change_site.aspx?UserName=" + Eval("UserName")%>'>Change Site</asp:HyperLink> </td> </tr> </table> </td> <td> <table cellpadding="0" cellspacing="0" style="width: 105px; height: 24px; background-image: url('../../../images/rad_button.gif')"> <tr> <td class="rad_button" style="text-align: center"> <asp:HyperLink ID="HyperLink3" runat="server" NavigateUrl='<%# "user_change_name.aspx?UserName=" + Eval("UserName")%>'>Change Last Name</asp:HyperLink> </td> </tr> </table> </td> <td> <table cellpadding="0" cellspacing="0" style="width: 105px; height: 24px; background-image: url('../../../images/rad_button.gif')"> <tr> <td class="rad_button" style="text-align: center"> <asp:HyperLink ID="HyperLink4" runat="server" NavigateUrl='<%# "user_disable.aspx?UserName=" + Eval("UserName")%>'>Disable</asp:HyperLink> </td> </tr> </table> </td> <td> <table cellpadding="0" cellspacing="0" style="width: 105px; height: 24px; background-image: url('../../../images/rad_button.gif')"> <tr> <td class="rad_button" style="text-align: center"> <asp:HyperLink ID="HyperLink5" runat="server" NavigateUrl='<%# "user_delete.aspx?UserName=" + Eval("UserName")%>'>Delete</asp:HyperLink> </td> </tr> </table> </td> </tr> </table> <p> <telerik:RadGrid ID="rgd_AreiesLog1" runat="server" AutoGenerateColumns="False" GridLines="None" Skin="WebBlue" Width="500px"> <MasterTableView DataKeyNames="usr" NoMasterRecordsText="No Aeries data found."> <CommandItemSettings /> <Columns> <telerik:GridBoundColumn DataField="dt" HeaderStyle-HorizontalAlign="Center" HeaderText="Login Date" ItemStyle-HorizontalAlign="Center" SortExpression="dt" UniqueName="dt"> <HeaderStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" /> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="co" HeaderStyle-HorizontalAlign="Center" HeaderText="Aeries Version" ItemStyle-HorizontalAlign="Center" SortExpression="co" UniqueName="co"> <HeaderStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" /> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ip" HeaderStyle-HorizontalAlign="Center" HeaderText="IP Address" ItemStyle-HorizontalAlign="Center" SortExpression="ip" UniqueName="ip"> <HeaderStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" /> </telerik:GridBoundColumn> </Columns> </MasterTableView> </telerik:RadGrid> <br /> <br /> <br /> </p> </div> </ItemTemplate> </telerik:RadListView>'***********************************************************************************************************************'Search for users by UserName'***********************************************************************************************************************Protected Sub rcb_Users_SelectedIndexChanged(o As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles rcb_Users.SelectedIndexChanged Dim cn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("IT_CentralConnectionString").ToString) cn.Open() Dim SqlCmd As SqlCommand SqlCmd = New SqlCommand("SELECT DisplayValue FROM ITC_Options WHERE NAME = 'AeriesDefaultYear'", cn) Session("AeriesYear") = CType(SqlCmd.ExecuteScalar, String) cn.Close() rgd_User_List.DataSource = UserDetails_UserName() rgd_AreiesLog.DataSource = AreiesLog_UserName() rgd_PC_List.DataSource = WorkstationDetails_UserName() rgd_User_List.DataBind() rgd_AreiesLog.DataBind() rgd_PC_List.DataBind() RadListView1.DataSource = UserDetails_UserName() RadListView1.DataBind() Dim rgd_AreiesLog1 As RadGrid = DirectCast(RadListView1.ItemTemplate.FindControl("rgd_AreiesLog1"), RadGrid) rgd_AreiesLog1.DataSource = AreiesLog_UserName() rgd_AreiesLog1.DataBind()End SubPrivate Function AreiesLog_UserName() As DataTable Dim DatabaseName As String = Session("AeriesYear") Dim connectionString As String = DirectCast(ConfigurationManager.ConnectionStrings("EagleAdmin_ConnectionString").ConnectionString, String) Dim connection As New SqlConnection(connectionString) Dim command As New SqlCommand(connectionString, connection) command = New SqlCommand("aa_user_info", connection) command.CommandType = CommandType.StoredProcedure command.Parameters.Add("@DBName", SqlDbType.VarChar).Value = DatabaseName If rcb_Users.Text = " " Then command.Parameters.Add("@UserName", SqlDbType.VarChar).Value = "TUSTIN_NT\" + rcb_Users.SelectedValue Else command.Parameters.Add("@UserName", SqlDbType.VarChar).Value = "TUSTIN_NT\" + rcb_Users.Text End If command.Connection.Open() Dim myDataAdapter As New SqlDataAdapter(command) Dim myDataSet As New DataSet Dim dtData As New DataTable myDataAdapter.Fill(myDataSet) Return myDataSet.Tables(0) command.Connection.Close()End FunctionPrivate Function UserDetails_UserName() As DataTable Dim connectionString As String = DirectCast(ConfigurationManager.ConnectionStrings("IT_CentralConnectionString").ConnectionString, String) Dim conn As New SqlConnection(connectionString) Dim comm As New SqlCommand("SELECT [UserName], [IDBitech], [IDStaff], [Password], [LastName], [Site], [JobTitle], [FirstName], [EmailAddress], [PhoneIP] FROM [vw_ADUsersExtended] WHERE ([UserName] LIKE @UserName + '%') ORDER BY UserName", conn) comm.Connection.Open() If rcb_Users.Text = " " Then comm.Parameters.Add("@UserName", SqlDbType.VarChar).Value = rcb_Users.SelectedValue Else comm.Parameters.Add("@UserName", SqlDbType.VarChar).Value = rcb_Users.Text End If Dim myDataAdapter As New SqlDataAdapter(comm) Dim myDataSet As New DataSet Dim dtData As New DataTable myDataAdapter.Fill(myDataSet) Return myDataSet.Tables(0) comm.Connection.Close()End FunctionPrivate Function WorkstationDetails_UserName() As DataTable Dim connectionString As String = DirectCast(ConfigurationManager.ConnectionStrings("IT_CentralConnectionString").ConnectionString, String) Dim conn As New SqlConnection(connectionString) Dim comm As New SqlCommand("SELECT [LogonTime], [Host_Name], [IP_Address], [Boot_Time] FROM [vw_BG_ADSI_Extended] WHERE ([UserName] LIKE @UserName + '%') ORDER BY LogonTime DESC", conn) comm.Connection.Open() If rcb_Users.Text = " " Then comm.Parameters.Add("@UserName", SqlDbType.VarChar).Value = rcb_Users.SelectedValue Else comm.Parameters.Add("@UserName", SqlDbType.VarChar).Value = rcb_Users.Text End If Dim myDataAdapter As New SqlDataAdapter(comm) Dim myDataSet As New DataSet Dim dtData As New DataTable myDataAdapter.Fill(myDataSet) Return myDataSet.Tables(0) comm.Connection.Close()End Function<Columns> <telerik:GridBoundColumn DataField="sourceid" DataType="System.Int16" FilterControlAltText="Filter source_id column" HeaderText="Source ID" SortExpression="sourceid" UniqueName="sourceid"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="affiliate" FilterControlAltText="Filter affiliate column" HeaderText="Affiliate" SortExpression="affiliate" UniqueName="affiliate"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Price1" DataType="System.Decimal" FilterControlAltText="Filter Price1 column" HeaderText="Price1" SortExpression="Price1" UniqueName="Price1" DataFormatString="{0:C}"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Price2" DataType="System.Decimal" FilterControlAltText="Filter Price2column" HeaderText="Price2" SortExpression="Price2" UniqueName="Price2" DataFormatString="{0:C}"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Price3" DataType="System.Decimal" FilterControlAltText="Filter Price3column" HeaderText="Price3" SortExpression="Price3" UniqueName="Price3" DataFormatString="{0:C}"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Price4" DataType="System.Decimal" FilterControlAltText="Filter Price4column" HeaderText="Price4" SortExpression="Price4" UniqueName="Price4" DataFormatString="{0:C}"> </telerik:GridBoundColumn> <telerik:GridEditCommandColumn UniqueName="EditCommandColumn"> </telerik:GridEditCommandColumn> <telerik:GridButtonColumn CommandName="Delete" Text="Delete"> </telerik:GridButtonColumn> </Columns>protected void grdData_ItemDataBound(object sender, GridItemEventArgs e) { for (int i = 0; i < grdData.MasterTableView.Items.Count; i++) { string status = item["Status"].Text; if (status == Constants.RunStatusCodes.PROCESSING) { processingModels = processingModels + 1; } } if (processingModels == 0) { txtActive.Text = "N"; updPanel.Update(); }