<!--#include virtual="includes/database.asp"-->
<!--#include virtual="includes/format.asp"-->
<!--include file="database.asp"-->
<!--include file="format.asp"-->
<%
	Session.Lcid = 1040

	dbOpen()
	
	sPagUrl = Request.ServerVariables("HTTP_REFERER")
	sPagIp = Request.ServerVariables("REMOTE_ADDR")
	dtPag = "'" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & "'"
	sPagReferer = Request.QueryString("ref")
	
	If Now<#13/09/2004# Then
		sSql =	"INSERT INTO stats(" & vbCrLf & _
						"		pag_url, pag_data, pag_ip, pag_referer " & vbCrLf & _
						") VALUES (" & vbCrLf & _
						"		'" & fSql(sPagUrl) & "' " & vbCrLf & _
						"		, " & dtPag & " " & vbCrLf & _
						"		, '" & fSql(sPagIp) & "' " & vbCrLf & _
						"		, '" & fSql(sPagReferer) & "' " & vbCrLf & _
						");"
		cnn.Execute sSql
	End If
	
	dbClose()
	
	Response.Redirect "../../../../images/blank.gif"
%>