<%
'ipvisita=Request.ServerVariables("REMOTE_ADDR")
'paginamap=Request.ServerVariables("SCRIPT_MAP")
'paginaname=Request.ServerVariables("SCRIPT_NAME")
'paginavisitada=paginamap & paginaname
'if paginavisitada="" then paginavisitada="NO"
'referervisita=Request.ServerVariables("HTTP_REFERER")
'if referervisita="" then referervisita="NO"
'fechavisita=date()
'horavisita=time()
'SQLVISITA = "INSERT INTO visita (ip,pagina,referer,fecha,hora) VALUES ('" & ipvisita & "','" & paginavisitada & "','" & referervisita & "','" & fechavisita & "','" & horavisita & "')"
'Set RSVISITA=Session("Conn").Execute(SQLVISITA)
%>