DBInsert.CommandText = "Insert Into Visitors " _
& "(DateEntered, AOL, BackgroundSounds, Beta, Browser, " _
& "Cookies, Crawler, MajorVersion, MinorVersion, " _
& "Platform, Winl6, Win32) Values (GetDateO, " _
& " " & BCaps.AOL &"',"_
& " " & BCaps.BackgroundSounds & "', " _
& " " & BCaps.Beta &"',"_
& " " & BCaps.Browser & '", "
& " " & BCaps.Cookies & "', " _
& " " & BCaps.Crawler &"',"_
& " " & BCaps.MajorVersion & "', " _
& " " & BCaps.MinorVersion &"',"_
& " " & BCaps.Platform & '", "
& " " & BCaps.Winl6 & "', " _
& " " & BCap^.Win32 & "')"

DBInsert.Connection = DBConn
DBInsert.Connection.Open

DBInsert.ExecuteNonQuery()

DBCommand =- New OleDbDataAdapter _
("Select Max(VisitorlD) as MaxID "
& "From Visitors", DBConn)

DBCommand.Fill(DSData, _
"CurrentID")

Session("VisitorlD") = DSData.Tables("CurrentID").
Rows(0).Item("MaxID")

VisitorSV - Request.ServerVariables

NameArray = VisitorSV.AllKeys

For I = 0 То UBound(NameArray)

DBInsert.CommandText = "Insert Into ServerVariables " _
& "(VisitorlD, KeyName, KeyValue) values (" _
& Session{"VisitorlD") & ", "
& "'" & NameArray(I) & "', " _
& LeftTReplace(VisitorSV.Itemd) , ""', '"'"), 255)
& " ')
DBInsert.ExecuteNonQuery()

Все три страницы тестового узла содержат одну и ту же программу, которая регистрирует обращения к странице. Код активизируется при загрузке страницы.

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC8;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBInsert.CommandText = "Insert Into PageViews " _
& "(DateEntered, PageName, VisitorlD) Values (" _
& "GetDateO, 'Домашняя', " & Session("VisitorlD") & ")"
DBInsert.Connection = DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()
End Sub

DBInsert.CommandText = "Insert Into PageViews " _
& "(DateEntered, PageName, VisitorlD) Values (" _
& "GetDateO, 'Домашняя', " & Session("VisitorlD") & ")"
DBInsert.Connection = DBConn
DBInsert.Connection.Open

DBInsert.ExecuteNonQuery()