<% 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.ConnectionTimeout=5 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) %> <% Session("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)%>
<%=Session("Counter") %>