| |
|
|
<%
Set connjsq = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("count/counter.mdb")
connjsq.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rsjsq = Server.CreateObject("ADODB.Recordset")
Rsjsq.Open "Select * From counters" , connjsq,1,3
response.write ""
GCounter( RSjsq("TOTAL")+1 )
response.write "
"
CONNjsq.CLOSE
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
G=" | "
For i = 1 to Len(S)
G = G & "![](count/") "
Next
response.write G
End Function
%>
|
