<% '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) %>