<% Dim objprop For Each objprop in Session.StaticObjects Response.write(objproperty & " : " & Session.StaticObjects(objprop) & "
") Next %> <% Application("NumVisits") = Application("NumVisits") + 1 %>

This application page has been visited <%= Application("NumVisits") %> times!

<% randomize if rnd(1)>0.5 then Application("Banner") = "test>" else Application("Banner") = "test<" %> <%=Application("Banner") %> <% Dim bc, res Set bc = Server.CreateObject("MSWC.BrowserType") If IsObject(Session("wwwboard_conn")) Then Set conn = Session("wwwboard_conn") Else strCnn = "driver={SQL Server};server=KDOSRV; uid=wwwboardreader;pwd=xbnfnm;database=quake_spb_ru" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strCnn ' Set conn = Server.CreateObject("ADODB.Connection") ' conn.open "quake","wwwboardreader","xbnfnm" Set Session("wwwboard_conn") = conn End If Res = Session("Resolution") 'SQLQuery = "insert into UserStat (Browser, resolution, BName, BVer, Frames, Tables, Cookies, BGSound," 'SQLQuery = SQLQuery & "VBScript, JScript) values (" & bc.browser & "," & Res & "," & bc.Browser &","& bc.Version 'SQLQuery = SQLQuery & "," & bc.Frames &","& bc.Tables & "," 'SQLQuery = SQLQuery & "bc.Cookies &","& bc.BackgroundSounds &","& bc.VBScript &","& bc.JavaScript & ")" 'Set CounterUpdate1 = conn.Execute(SQLQuery) SQLQuery = "exec default_asp_counter" Set CounterUpdate = conn.Execute(SQLQuery) %> <% Application("Counter") = "посещений сегодня: " & Server.HTMLEncode(CounterUpdate.Fields("diff").Value) if CounterUpdate.Fields("diff").Value=1000 then Application("Counter") = "Тебе повезло, твой номер:"& Server.HTMLEncode(CounterUpdate.Fields("diff").Value) & "" if CounterUpdate.Fields("diff").Value=2000 then Application("Counter") = "Тебе КРУПНО повезло, твой номер:"& Server.HTMLEncode(CounterUpdate.Fields("diff").Value) & "" if CounterUpdate.Fields("diff").Value=3000 then Application("Counter") = "Тебе БЕЗУМНО повезло, твой номер:"& Server.HTMLEncode(CounterUpdate.Fields("diff").Value) & "" %>

посещений всего: <%=Server.HTMLEncode(CounterUpdate.Fields("counter").Value)%>
<%=Application("Counter") %>

<% SQLQuery = "insert into UserStat (Browser, resolution, BName, BVer, Frames, Tables, Cookies, BGSound," SQLQuery = SQLQuery & "VBScript, JScript) values (" & bc.browser & "," & " " & "," & bc.Browser &","& bc.Version 'SQLQuery = SQLQuery & "," & bc.Frames & ","& bc.Tables & "," 'SQLQuery = SQLQuery & "bc.Cookies &","& bc.BackgroundSounds &","& bc.VBScript &","& bc.JavaScript & ")" %> <%=SQLQuery%> <%=Session("Resolution2")%> <%=ers%>

<% ' Dim bc ' Set bc = Server.CreateObject("MSWC.BrowserType") %>
Browser Name <%=bc.Browser %>
Browser Version <%=bc.Version %>
Major Version <%=bc.Majorver %>
Minor Version <%=bc.Minorver %>
Frame Support <%=bc.Frames %>
Table Support <%=bc.Tables %>
Cookie Support <%=bc.Cookies %>
Background Sound Support <%=bc.BackgroundSounds %>
VBScript Support <%=bc.VBScript %>
JavaScript Support <%=bc.JavaScript %>