<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Public strViewString As String
Sub SetData
'Connection Setup
Dim strConnection As String = ConfigurationSettings.AppSettings("QView"

Dim objConnection As New SqlConnection(strConnection)
'DataAdapter Setup
Dim strSQL As string = "spApplication"
Dim objAdapter As New SqlDataAdapter(strSQL, objConnection)
'DataSet & Adapter & Table
Dim objDataSet As New DataSet()
objAdapter.Fill (objDataSet, "dtApplications"

Dim dtApplications As DataTable = objDataSet.Tables("dtApplications"
'Create DataView on dtApplications
Dim dvView As New DataView (dtApplications)
dvView.Sort = strViewString
'Bind data
DataGrid1.DataSource = dvView
DataGrid1.DataBind()
End Sub
Sub Page_Load(Source As Object, E As EventArgs)
If Not Page.IsPostBack Then
strViewString = "Application Name"
SetData()
End if
End Sub
Sub SortColumn(Source As Object, E As DataGridSortCommandEventArgs)
If E.SortExpression = "Platform" Then
strViewString = "Platform"
Else
strViewString = E.SortExpression
End If
SetData()
End Sub
</script>
<form runat="server">
<asp:datagrid id="DataGrid1" runat="server" OnSortCommand="SortColumn" AllowSorting="True" CellPadding="5" CellSpacing="0" Font-Size="14px">
<HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
<ItemStyle backcolor="#DEDFDE"></ItemStyle>
</asp:datagrid>
</form>