Information 21 Web Analysis <%@ LANGUAGE = VBScript %> <% Dim ip, platform, browser, resolution, camefrom, visited, color, remotehost Dim adoCon, RS, strCon, i i = 0 Dim story Set adoCon = Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath("tracking") strSql= "SELECT * FROM count" adoCon.open strCon 'adoCon.Execute(strSql) RS.Open strSQL, strCon Response.write("
Summary Of Visited Web Pages

") %> <% while Not RS.EOF i = i + 1 if i mod 2 = 0 Then Response.write("") Response.write("") Response.write(" ") Else Response.write("") Response.write("") Response.write(" ") End If RS.MoveNext wend Response.write("
Page Viewed Hits  
") Response.write("" & RS("url") & "" & RS("counter") & "") Response.write("" & "View Statistics" & "
") Response.write("" & RS("url") & "" & RS("counter") & "") Response.write("" & "View Statistics" & "
") set RS=nothing 'strCon.close %>