ASP.NET

<br />
<br />
Bind();<br />
oColumnCollection=dgHistory.Columns;<br />
if(ViewState["SortOrder"].ToString() == "" || ViewState["SortOrder"].ToString() == "DESC")<br />
{<br />
dv.Sort = e.SortExpression;<br />
					//	oCol.HeaderText = oCol.HeaderText + " (ASC)";<br />
					<br />
ViewState["SortExpression"]= e.SortExpression + "ASC";<br />
ViewState["SortOrder"] = "ASC";<br />
				}<br />
else<br />
{        <br />
dv.Sort = e.SortExpression + " DESC";<br />
//	oCol.HeaderText = oCol.HeaderText + " (DESC)";<br />
					<br />
ViewState["SortExpression"]= e.SortExpression + " DESC";<br />
ViewState["SortOrder"] = "DESC";<br />
	}<br />
		<br />
dgHistory.DataBind();<br />

<br />
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting<br />
<br />
        Dim index = Integer.Parse(e.RowIndex)<br />
        Dim dk As DataKey<br />
<br />
        dk = GridView1.DataKeys.Item(index)<br />
<br />
        Dim iOpID = dk.Value<br />
<br />
        ' Check if the User Can be deleted if he can enable the delete button.<br />
        Dim connectionString = sqlSubSystem.ConnectionString<br />
        Dim SqlConnection As SqlConnection<br />
        SqlConnection = New SqlConnection(connectionString)<br />
        Dim Command As SqlCommand<br />
<br />
        Dim queryString As String = "SELECT count(subsystemID) FROM dbo.supportcall where [subsystemID] = " & iOpID.ToString()<br />
        Command = New SqlCommand(queryString, SqlConnection)<br />
<br />
        SqlConnection.Open()<br />
        Dim i<br />
        i = Command.ExecuteScalar()<br />
        SqlConnection.Dispose()<br />
        Command.Dispose()<br />
<br />
        If i > 0 Then<br />
            lblError.Text = "Cannot Delete as Subsystem already in use."<br />
            lblError.Visible = True<br />
            e.Cancel = True<br />
        Else<br />
<br />
        End If<br />
<br />
<br />
    End Sub