<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbcounter.mdb")
Set rs = conn.Execute( "counts" )
application. lock
sql="update counts set count=count+1"
application.unlock
conn.Execute sql
Function GCount( count )
Dim S, i, G
S = CStr( rs.Fields(0).Value )
For i = 1 to Len(S)
G = G & ""
Next
GCount = G
End Function
%>