<%@language="VBscript"%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
if isempty(session("connected"))then
application.lock
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
application.unlock
END IF
session("connected")=true
'Response.write "document.write('
');"
MyCounter( Rs("TOTAL") )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
aa=len(s)
if len(S)<8 then
for h=1 to 8-aa
S="0"+S
next
end if
S=trim(S)
For i = 1 to Len(S)
G = G & "![](/images/gif/")
"
Next
'Response.write "document.write(" & G & ");"
Response.Write "document.write(" & chr(34) & g & chr(34) & ");"
End Function
%>