<%
set rs=server.createobject("adodb.recordset")
if session("ID")=session.SessionID then
conn.execute "Update hits set hits=hits+1"
end if
sql="select * from hits"
rs.open sql,conn,1,1
if not(Rs.eof or Rs.bof) then
do while not rs.eof
session("hits")=Rs("hits")
rs.movenext
loop
end if
Rs.close
set RS=nothing
%>