<%
	Set conn = server.createobject("adodb.connection")
	DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("counter.mdb")
	conn.Open DSNtemp

	SQL = "Select * From info Where ip = '" & Request.ServerVariables("REMOTE_ADDR") & "' AND browser = '" & Request.ServerVariables("HTTP_USER_AGENT") & "'"
	Set RS = Conn.Execute(SQL)

	If RS.EOF Then
		'Response.Write(Date())
		'Response.Write(Request.ServerVariables("REMOTE_ADDR"))
		'Response.Write(Request.ServerVariables("HTTP_USER_AGENT"))
		SQL = "INSERT INTO info VALUES(#" & Now() & "#,'" & Request.ServerVariables("REMOTE_ADDR") & "','" & Request.ServerVariables("HTTP_USER_AGENT") & "');"	
		Conn.Execute(SQL)
	end if
	Response.Redirect("rrggbb/glass.gif")
%>