These are the errors produced when i try to click on pay
this error comes when the form is loading
Unhandled exception at line 7709, column 13 in http://localhost:60408/Forms/Student.aspx
0x800a01b6 - JavaScript runtime error: Object doesn't support property or method 'DataTable'
this comes when iam trying to load the modal popup
Unhandled exception at line 7730, column 21 in http://localhost:60408/Forms/Student.aspx
0x800a01b6 - JavaScript runtime error: Object doesn't support property or method 'modal'
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Forms/Site1.Master" CodeBehind="Student.aspx.vb" Inherits="UNIFORMSWEBAPP.Student" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
<style type="text/css">
body
{
font-family: Arial;
font-size: 10pt;
}
</style>
<div>
</div>
<div class="container">
<div class="table-responsive">
<asp:GridView ID="GridView1" AutoGenerateColumns="False" runat="server"
CssClass="table table-bordered table-hover table-striped thead-dark GridCustomers" ShowFooter="True" Height="246px">
<Columns>
<asp:TemplateField HeaderText="admno">
<EditItemTemplate>
<asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("admno") %>'></asp:TextBox>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="admno" runat="server" Text='<%# Bind("admno") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Name">
<EditItemTemplate>
<asp:TextBox ID="TextBox2" runat="server" Text='<%# Bind("Name") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox ID="Fname" runat="server" Text='<%# Bind("Name") %>' Width="216px"></asp:TextBox>
</FooterTemplate>
<ItemTemplate>
<asp:Label ID="Name" runat="server" Text='<%# Bind("Name") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Class">
<EditItemTemplate>
<asp:TextBox ID="TextBox3" runat="server" Text='<%# Bind("Class") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:DropDownList ID="ClassdllF" runat="server">
<asp:ListItem>NONE</asp:ListItem>
<asp:ListItem>P1</asp:ListItem>
<asp:ListItem>P2</asp:ListItem>
<asp:ListItem>P3</asp:ListItem>
<asp:ListItem>P4</asp:ListItem>
<asp:ListItem>P5</asp:ListItem>
<asp:ListItem>P6</asp:ListItem>
<asp:ListItem>P7</asp:ListItem>
<asp:ListItem>PRE</asp:ListItem>
</asp:DropDownList>
</FooterTemplate>
<ItemTemplate>
<asp:Label ID="Class" runat="server" Text='<%# Bind("Class") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Stream">
<EditItemTemplate>
<asp:TextBox ID="TextBox4" runat="server" Text='<%# Bind("Stream") %>'></asp:TextBox>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="Stream" runat="server" Text='<%# Bind("Stream") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sex">
<EditItemTemplate>
<asp:TextBox ID="TextBox8" runat="server" Text='<%# Bind("Sex") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:DropDownList ID="DropDownList2" runat="server">
<asp:ListItem>NONE</asp:ListItem>
<asp:ListItem>MALE</asp:ListItem>
<asp:ListItem>FEMALE</asp:ListItem>
</asp:DropDownList>
</FooterTemplate>
<ItemTemplate>
<asp:Label ID="Label3" runat="server" Text='<%# Bind("Sex") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SType">
<EditItemTemplate>
<asp:TextBox ID="TextBox6" runat="server" Text='<%# Bind("STDTYPE") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:Button ID="Button1" runat="server" Text="AddNew" CssClass="btn btn-primary" Height="25px" OnClick="Button1_Click" />
</FooterTemplate>
<ItemTemplate>
<asp:Label ID="Stdype" runat="server" Text='<%# Bind("STDTYPE") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Colour">
<EditItemTemplate>
<asp:TextBox ID="TextBox7" runat="server" Text='<%# Bind("House") %>'></asp:TextBox>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="House" runat="server" Text='<%# Bind("House") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Rclass">
<EditItemTemplate>
<asp:TextBox ID="TextBox5" runat="server" Text='<%# Bind("Rclass") %>'></asp:TextBox>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="Rclass" runat="server" Text='<%# Bind("Rclass") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton ID="lnkEdit" href="#" data-target="#MyPopup" data-toggle="modal"
runat="server">Edit</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Pay">
<ItemTemplate>
<asp:LinkButton ID="lnkBtnEdit" runat="server" Text="Pay Now" CssClass="btn btn-info"
OnClick="Display"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
<div id="MyPopup" class="modal fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">
×</button>
<h4 class="modal-title">
Update Payments
</h4>
</div>
<div class="modal-body">
<table class="table table-bordered table-hover table-striped thead-dark">
<tr>
<td>
admno
</td>
<td>
<asp:TextBox runat="server" ID="admno" CssClass="form-control" />
</td>
</tr>
<tr>
<td>
Name
</td>
<td>
<asp:TextBox runat="server" ID="txtName" CssClass="form-control" />
</td>
</tr>
<tr>
<td>
Class
</td>
<td>
<asp:TextBox runat="server" ID="txtCountry" CssClass="form-control" />
</td>
</tr>
<tr>
<td>
Stream
</td>
<td>
<asp:DropDownList ID="Streamddl" runat="server" DataSourceID="SqlDataSource2" DataTextField="stream" DataValueField="stream" CssClass="dropdown" AutoPostBack="true" OnSelectedIndexChanged="OnUpdate2000" >
</asp:DropDownList>
<asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:UNIFORMConnectionString %>" SelectCommand="SELECT stream FROM streamdata GROUP BY stream"></asp:SqlDataSource>
</td>
</tr>
<tr>
<td>
Pay Date
</td>
<td>
<asp:TextBox runat="server" ID="TDate" CssClass="form-control" />
</td>
</tr>
<tr>
<td>
Amount
</td>
<td>
<asp:TextBox runat="server" ID="Pay" CssClass="form-control" />
</td>
</tr>
<tr>
<td>
Reciept Details
</td>
<td>
<asp:TextBox runat="server" ID="Reciept" CssClass="form-control" />
</td>
</tr>
<asp:Panel ID="Panel1" runat="server" Width="261px">
<tr>
<td>Details</td>
<td>
<asp:DropDownList ID="DropDownList1" runat="server" CssClass="form-control" Height="30px" Width="125px" OnSelectedIndexChanged="Colourdll2000" AutoPostBack="true">
<asp:ListItem>NONE</asp:ListItem>
<asp:ListItem>CASH</asp:ListItem>
<asp:ListItem>TROPICAL</asp:ListItem>
<asp:ListItem>DFCU BANK</asp:ListItem>
</asp:DropDownList>
</td>
<td>House </td>
<td>
<asp:DropDownList ID="Colourdll" runat="server" CssClass="form-control">
<asp:ListItem>NONE</asp:ListItem>
<asp:ListItem>Red</asp:ListItem>
<asp:ListItem>Green</asp:ListItem>
<asp:ListItem>Blue</asp:ListItem>
<asp:ListItem>Yellow</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</asp:Panel>
<tr>
<td>
<asp:TextBox runat="server" ID="Rclassd" CssClass="form-control" Visible="false" />
</td>
<td>
<asp:TextBox runat="server" ID="Stdype" CssClass="form-control" Visible="false" />
</td>
</tr>
<div class="modal-footer">
<asp:Button ID="btnUpdate" Text="Update" runat="server" CssClass="btn btn-primary"
OnClick="OnUpdate" />
<input type="button" value="Close" class="btn btn-danger" data-dismiss="modal" />
</div>
</div>
</div>
</div>
</div>
<link rel="stylesheet" href="../BootStrap/Css/BootStrap3.3.2.css" />
<script type="text/javascript" src="../BootStrap/Jquery3.4.1.js"></script>
<script type="text/javascript" src="../BootStrap/Bootstrap3.3.2.min.js"></script>
<script type="text/javascript" src="../BootStrap/jquery.dataTables.min.js"></script>
<link href="../BootStrap/Css/jquery.dataTables.css"rel="stylesheet"
type="text/css" />
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
<!-- InputMask -->
<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.inputmask/3.3.4/inputmask/inputmask.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.inputmask/3.3.4/inputmask/inputmask.date.extensions.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery.inputmask/3.3.4/inputmask/inputmask.extensions.min.js"></script>
<link rel="stylesheet" type="text/css" href="https://cdnjs.cloudflare.com/ajax/libs/jquery.inputmask/3.3.4/css/inputmask.css" />
<script type="text/javascript">
$(function () {
var inputmask = new Inputmask("99/99/9999", { placeholder: 'dd/mm/yyyy' });
inputmask.mask($('[id*=TDate]'));
inputmask.mask($('[id*=txtEndDate]'));
});
</script>
<script type="text/javascript">
$(function () {
$(".GridCustomers").DataTable({
bLengthChange: true,
lengthMenu: [[10, 15, -1], [10, 15, "All"]],
bFilter: true,
bSort: true,
bPaginate: true
});
$("[id*=lnkEdit]").click(function () {
$('[id*=admno]').val($(this).closest('tr').find('td').eq(0).html());
$('[id*=txtName]').val($(this).closest('tr').find('td').eq(1).html());
$('[id*=txtCountry]').val($(this).closest('tr').find('td').eq(2).html());
$('[id*=Streamddl]').val($(this).closest('tr').find('td').eq(3).html());
$('#MyPopup').modal('show');
return false;
});
});
</script>
<script type='text/javascript'>
function openModal() {
$('[id*=MyPopup]').modal('show');
}
</script>
</asp:Content>
Imports System.Data.SqlClient
Imports System.Data
Public Class Student
Inherits System.Web.UI.Page
Dim constr As String = ConfigurationManager.ConnectionStrings("UNIFORMConnectionString").ConnectionString
Dim Rclassr As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
Dim constr As String = ConfigurationManager.ConnectionStrings("UNIFORMConnectionString").ConnectionString
Using con As New SqlConnection(constr)
Using cmd As New SqlCommand("SELECT*FROM Student", con)
Using sda As New SqlDataAdapter(cmd)
cmd.CommandType = CommandType.Text
Dim dt As New DataTable()
sda.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End Using
End Using
End Using
' [Date].Text = Convert.ToDateTime(DateAndTime.Now).ToString("dd/MM/yyyy")
TDate.Text = DateTime.Now.ToString("dd/MM/yyyy hh:mm:ss tt")
' Dim name As String = Streamddl.SelectedItem.Text
End If
End Sub
Private Sub BindGrid()
Dim constr As String = ConfigurationManager.ConnectionStrings("UNIFORMConnectionString").ConnectionString
Using con As New SqlConnection(constr)
Using cmd As New SqlCommand("SELECT*FROM Student", con)
Using sda As New SqlDataAdapter(cmd)
cmd.CommandType = CommandType.Text
Dim dt As New DataTable()
sda.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End Using
End Using
End Using
End Sub
Protected Sub OnUpdate(ByVal sender As Object, ByVal e As EventArgs)
' Code to update the record.
Dim id As String = Request.Form("txtId")
Dim name As String = Request.Form("txtName")
Dim country As String = Request.Form("txtCountry")
Dim categoryad As String = Request.Form("admno")
' Categorym.Text = Request.Form("Categoryddl")
' Names.Text = name
' Countrys.Text = country
' Streamddl.SelectedItem.Value = Request.Form("Streamddl")
Using Cont As New SqlConnection(constr)
Cont.Open()
Using cmd As New SqlCommand
cmd.Connection = Cont
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Pushpay"
cmd.Parameters.Add("@a", SqlDbType.NVarChar).Value = admno.Text
cmd.Parameters.Add("@n", SqlDbType.NVarChar).Value = txtName.Text
cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = txtCountry.Text
'cmd.Parameters.Add("@s", SqlDbType.NVarChar).Value = Streamddl.SelectedItem.Text
' cmd.Parameters.Add("@d", SqlDbType.DateTime).Value = [Date].Text
cmd.Parameters.Add("@cs", SqlDbType.NVarChar).Value = Pay.Text
' cmd.Parameters.Add("@t", SqlDbType.NVarChar).Value = Termdll.SelectedItem.Text
' cmd.Parameters.Add("@ct", SqlDbType.NVarChar).Value = Categoryddl.SelectedItem.Text
cmd.ExecuteReader()
Cont.Close()
End Using
End Using
ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "showalert", "alert('Record Saved Successfully');window.location ='" + Request.Url.AbsoluteUri + "';", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End Sub
Protected Sub Display(sender As Object, e As EventArgs)
Dim rowIndex As Integer = Convert.ToInt32(TryCast(TryCast(sender, LinkButton).NamingContainer, GridViewRow).RowIndex)
Dim row As GridViewRow = GridView1.Rows(rowIndex)
admno.Text = TryCast(row.FindControl("admno"), Label).Text
txtName.Text = TryCast(row.FindControl("Name"), Label).Text
txtCountry.Text = TryCast(row.FindControl("Class"), Label).Text
Rclassd.Text = TryCast(row.FindControl("Rclass"), Label).Text
Stdype.Text = TryCast(row.FindControl("Stdype"), Label).Text
Colourdll.SelectedItem.Text = TryCast(row.FindControl("House"), Label).Text
Streamddl.DataBind()
Streamddl.SelectedItem.Text = TryCast(row.FindControl("Stream"), Label).Text
' Dim k As String = TryCast(row.FindControl("Streamddl"), DropDownList).Text
' Streamddl.SelectedValue = TryCast(row.FindControl("Streamddl"), DropDownList).Text
' txtAmount.Text = TryCast(row.FindControl("lblAmount"), Label).Text
Using Cont As New SqlConnection(constr)
Cont.Open()
Using cmd As New SqlCommand
cmd.Connection = Cont
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Controlclasscream"
cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = txtCountry.Text
cmd.ExecuteReader()
Cont.Close()
End Using
End Using
Using Cont As New SqlConnection(constr)
Cont.Open()
Using cmd As New SqlCommand
cmd.Connection = Cont
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Pushmissingstream"
cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = txtCountry.Text
cmd.ExecuteReader()
Cont.Close()
End Using
End Using
Using Cont As New SqlConnection(constr)
Cont.Open()
Using cmd As New SqlCommand
cmd.Connection = Cont
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Progressdataclass"
cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = txtCountry.Text
cmd.ExecuteReader()
Cont.Close()
End Using
End Using
ClientScript.RegisterStartupScript(Me.[GetType](), "Pop", "openModal();", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End Sub
Protected Sub OnUpdate2000(ByVal sender As Object, ByVal e As EventArgs) Handles Streamddl.SelectedIndexChanged
' Code to update the record.
Dim dropDownList As DropDownList = CType(sender, DropDownList)
Dim id As String = admno.Text
Dim Streamr As String = Streamddl.SelectedItem.Text
Dim Classr As String = txtCountry.Text
Rclassr = Rclassd.Text
Dim dif As Double
' Dim categoryad As String = Request.Form("admno")
Using Cont As New SqlConnection(constr)
Cont.Open()
Using cmd As New SqlCommand
cmd.Connection = Cont
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Controlclasscream"
cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = Classr
cmd.ExecuteReader()
Cont.Close()
End Using
End Using
Using Con As New SqlConnection(constr)
Con.Open()
Using Com As New SqlCommand("Select * from Newstreamtrap where stream = '" & Streamr & "'", Con)
Using RDR = Com.ExecuteReader()
If RDR.HasRows Then
Do While RDR.Read
dif = RDR.Item("dif").ToString()
If dif <= 0 Then
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('THIS STREAM IS ALREADY FULL! ');", True)
' Dim text As String = "SomeText"
' DropDownList.ClearSelection()
Dim item As Object = DropDownList.Items.FindByText("Please select")
If item IsNot Nothing Then
item.Selected = True
End If
ClientScript.RegisterStartupScript(Me.[GetType](), "Pop", "openModal();", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
' dropDownList.Items.FindByValue("Please select").Selected = False
Exit Sub
End If
Loop
End If
End Using
End Using
Con.Close()
End Using
If Rclassr <> Streamr Then
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('No Stream is Allowed to Cream Class! ');", True)
dropDownList.ClearSelection()
Dim item As Object = DropDownList.Items.FindByText(Rclassr)
If item IsNot Nothing Then
item.Selected = True
End If
End If
ClientScript.RegisterStartupScript(Me.[GetType](), "Pop", "openModal();", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
Exit Sub
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs)
Dim fName As String = DirectCast(GridView1.FooterRow.FindControl("Fname"), TextBox).Text
Dim valueSEX As String = TryCast(GridView1.FooterRow.FindControl("DropdownList2"), DropDownList).SelectedItem.Value
Dim valueType As String = "New"
Dim Classr As String = TryCast(GridView1.FooterRow.FindControl("ClassdllF"), DropDownList).SelectedItem.Value
If valueSEX = "NONE" Then
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('You Must Indicate whether Male Or Female');", True)
TryCast(GridView1.FooterRow.FindControl("DropdownList2"), DropDownList).Focus()
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
Exit Sub
Else
If String.IsNullOrEmpty(fName.Replace(",", String.Empty)) Then
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('You Must Indicate Student Name');", True)
TryCast(GridView1.FooterRow.FindControl("Fname"), TextBox).Focus()
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
Exit Sub
Else
'Required for jQuery DataTables to work.
' GridView1.UseAccessibleHeader = True
'If GridView1.Rows.Count = 0 Then
' Response.Write("<script>alert('No Records yet for this Class');</script>")
Dim sqlConnection12 As New SqlConnection(constr)
Dim objCommand22 As SqlCommand = New SqlCommand()
Dim cmd2 As New SqlCommand
cmd2.CommandText = "createaccounts"
cmd2.CommandType = CommandType.StoredProcedure
cmd2.Connection = sqlConnection12
cmd2.Parameters.Add("@n", SqlDbType.NVarChar, 150).Value = fName.Replace(",", String.Empty)
cmd2.Parameters.Add("@cl", SqlDbType.NVarChar, 50).Value = Classr
cmd2.Parameters.Add("@s", SqlDbType.NVarChar, 50).Value = valueSEX
sqlConnection12.Open()
cmd2.ExecuteReader()
sqlConnection12.Close()
ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('Record Inserted Successfully');", True)
BindGrid()
Exit Sub
' Else
'ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('This Patient Already Entered and Exits the the System Please Search by Name');", True)
'Exit Sub
'End If
End If
End If
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End Sub
Protected Sub Colourdll2000(ByVal sender As Object, ByVal e As EventArgs) Handles Colourdll.SelectedIndexChanged
Using Con As New SqlConnection(constr)
Con.Open()
Using cmd As New SqlCommand
cmd.Connection = Con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Distributecolor"
cmd.ExecuteReader()
Con.Close()
End Using
End Using
Using con As SqlConnection = New SqlConnection(constr)
Using cmd As SqlCommand = New SqlCommand()
cmd.CommandText = "SELECT * From Colorsdata"
cmd.Connection = con
con.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader()
If sdr.HasRows Then
sdr.Read()
If Stdype.Text = "OLD" Or Stdype.Text = "Old" Or Stdype.Text = "OLD REPEATER" Then
' PrevBal.Text = ""
ClientScript.RegisterStartupScript(Me.[GetType](), "Pop", "openModal();", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
Exit Sub
Else
If String.IsNullOrEmpty(Streamddl.SelectedItem.Text) Then
' Forms!studentsearch!ADDNEW!HOUSE = Null
Else
Colourdll.SelectedItem.Text = sdr("color").ToString()
ClientScript.RegisterStartupScript(Me.[GetType](), "Pop", "openModal();", True)
GridView1.UseAccessibleHeader = True
GridView1.HeaderRow.TableSection = TableRowSection.TableHeader
End If
End If
End If
con.Close()
End Using
End Using
End Sub
End Class
