|
<%
set con = server.createobject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath ("..\db\gj.mdb")
%>
You
are visitor no.
<%
set rshc = server.createobject("adodb.recordset")
if rshc.state = 1 then rshc.close
rshc.open "SELECT * FROM hitctr", con, 3, 2
if session("hc") ="" then
rshc.fields("hitcounter") = rshc.fields("hitcounter") + 1
rshc.update
else
session("hc") = "1"
end if
response.write rshc.fields("hitcounter")
%>
|