dgResults.DataSource = _
DSPageData.Tables("Results").DefaultView
dgResults.DataBind()

На странице Параметры браузера администратор может получить информацию о количестве посетителей, использовавших браузеры с теми или иными характеристиками.

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text=''Серверные переменные"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
Text="Bbi6epnTe серверную переменную и нажмите кнопку Отобразить"
runat="server"
/>

<asp:DropDownList
id="ddlBC"
runat-server>
<asp:ListItem Value="AOL">AOL
<asp:ListItem Value="BackgroundSound"><t>Фоновая Myзыкa</asp:ListItem>
<asp:ListItem Value="Beta">Бeтa-версия 6payзepa</asp:bistltem>
<asp:ListItem Value="Browser">6payзep</asp:ListItem>
<asp:ListItem Vа1ие="Сооkies">Поддержка cookie-фaйлoв</asp:ListItem>
<asp:ListItem Value="Crawler">Crawler</asp:ListItem>
<asp:ListItem Value="Platfогт">Платформа</аsр:Listltem>
</asp:DropDownList>

<asp:button
id="butGo"
text=" Отобразить "
Type="Submit"
OnClick=rSubmitBtn Click"
runat="server"

<asp:DataGrid
id="dgResults"
Width="90%"
BackColor="beige"
Alternating!temStyle-BackColor="cornsilk"
BorderColor="black"
ShowFooter="false"
CellPadding=3
Cellspacing="0"
Font-Name="Arial"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="burlywood"
HeaderStyle-Font-Bold="True"
runat="server">
</asp:DataGrid>

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC8;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select " & ddlBC.Selectedltem.Value
4 " as [" & ddlBC.Selectedltem.Text &"],"_
& "Count(VisitorlD) as [Количество] " _
6 "From Visitors Group By " _
& ddlBC.Selectedltem.Value _
& " Order By Count(VisitorlD) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"Results")
dgResults.DataSource - _
DSPageData.Tables("Results").Defaultview
dgResults.DataBindO
End Sub