<% set rs=server.createobject("adodb.recordset") sql="select * from counta" rs.open sql,conn,1,3 if not rs.eof then dim countall,counttoday,countstart countall=trim(rs("countall")) countstart=trim(rs("countstart")) today=trim(rs("today")) if datediff("d",today,now())>0 then rs("today")=now() rs("counttoday")=1 rs.update end if counttoday=trim(rs("counttoday")) today=trim(rs("today")) if session("oldipa")<>Request.ServerVariables("REMOTE_ADDR") then rs("countall")=rs("countall")+1 rs("counttoday")=rs("counttoday")+1 rs.update countall=trim(rs("countall")) counttoday=trim(rs("counttoday")) end if end if rs.close set rs=nothing session("oldipa")=Request.ServerVariables("REMOTE_ADDR") conn.close set conn=nothing %>