<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="& server.mappath("count/counter.mdb")
conn.open
SET Rscount = Server.CreateObject("ADODB.Recordset")
Rscount.Open "Select * From counters" , conn,1,3
IF CSTR(Month(Rscount("DATE"))) <> CSTR(Month(DATE())) THEN
Rscount("DATE") = DATE()
Rscount("YESTERDAY") = RScount("TODAY")
Rscount("BMONTH") = Rscount("MONTH")
Rscount("MONTH") = 1
Rscount("TODAY") = 1
Rscount.Update
ELSE
IF CSTR(Day(Rscount("DATE"))) <> CSTR(Day(DATE())) THEN
Rscount("DATE") = DATE()
Rscount("YESTERDAY") =Rscount("TODAY")
Rscount("TODAY") = 1
Rscount.Update
END IF
END IF
Rscount("TOTAL")=Rscount("TOTAL") + 1
Rscount("TODAY") =Rscount("TODAY") + 1
Rscount("MONTH")=Rscount("MONTH") + 1
Rscount.Update
MyCounter( Rscount("TOTAL") )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "
![](count/gif/")
"
Next
Response.write G
End Function
%>
