DBCommand = New OleDbDataAdapter _
("Select VisitorlD, DateEntered, Browser, " _-
& "Platform,MajorVersion, MinorVersion From " _
& "Visitors Where VisitorlD - " _
& "(Select Max(VisitorlD) From Visitors " _
& "Where VisitorlD <"_ & Session("CurrentVisitorlD") & ")", DBConn)
DBCommand.Fill(DSPageData, "VisitorRecord")

If DSPageData.Tables("VisitorRecord").Rows.Count = 0 Then

IblMessage.Text = "Нет посещений."

Session("CurrentVisitorlD") = _
DSPageData.Tables("VisitorRecord").
Rows(O).Item("VisitorID")

IblMessage.Text - "Дата: " _
& DSPageData.Tables("VisitorRecord"). _
Rows (0) . Item ("DateEntered")' '_
& "<Ьг>враузер: " _.
& DSPageData.Tables("VisitorRecord").
Rows (0)=.ItemrBroVser") & " " _
& DSPageData.Tables("VlsitotReffiurd)
Rows(O).Item("MajorVersion") & "."
& DSPageData.Tables("VisitorRecord"). _
Rows(O) .Item ("MinorVersion") _
& "<Ьг>Платформа: " _
& DSPageData.Tables("VisitorRecord").
Rows(0).Item("Platform")
& "<Ьг><Ьг>Просмотренные страницы:<br><br>"

DBCommand = New OleDbDataAdapter _
("Select Convert(varchar(25),DateEntered, 100) " _
& "as [Дата], " _
& "PageName as [Страница] From PageViews " _
& "Where VisitorlD = " & Session("CurrentVisitorlD") _
& " Order By DateEntered", DBConn)

DBCommand.Fill(DSPageData, _
"PageViews")

dgPageViews.DataSource "_
DSPageData.Tables("PageViews").DefaultView
dgPageViews.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="ВыОерите серверную переменную и нажмите кнопку Отобразить"
runat="server"
/>

<asp:dropdownlist
id-"ddlSV"
runat="server"
DataTextField="KeyName"
</asp : dropdownlist>

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