<%
if session.contents("visited")="" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("count.mdb")
Set rs=server.CreateObject("ADODB.recordset")
rs.activeconnection=conn
rs.Open "SELECT * FROM counter", conn, 1,3
cnt=rs("counter")
rs("counter")=cnt+1
application.contents("counter")=rs("counter")
session.contents("visited")=1
rs.update
set rs=nothing
conn.close
set conn = nothing
'if session.contents("visited")="" then
' application.contents("counter")=application.contents("counter")+1
' session.contents("visited")=1
end if
%>
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>