| <%
Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
%>
<%
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
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)%> |