<%
dim rsCou,sqltext,mylogin
dim url1,url2

sql="select * from Count where code='1'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  response.End()
else
 url1=rs("url1")
 url2=rs("url2")
 rs.close
end if
if Session("mylogin")<>"1" then
	sqltext="update count set querycount=querycount+1 where code='1'"
	conn.execute(sqltext)
	set rsCou = Server.CreateObject("ADODB.Recordset")
	rsCou.Open "webcount",conn,3,3
	rsCou.AddNew
	rsCou("ipaddress")=Request.ServerVariables("Remote_HOST")
	rsCou("logindate")=now()
	rsCou.Update
	rsCou.Close		
	mylogin=Session("mylogin")
	Session("mylogin")="1"
else
	mylogin=Session("mylogin")	
end if
%>
