<%
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ip ="" Then ip = Request.ServerVariables("REMOTE_ADDR")
procedencia=Request.ServerVariables("HTTP_REFERER")
fecha = Date
hora = Time
codigo = "ENTRADA"
SQL = "INSERT INTO accesos (ip, fecha, hora, codigo, procedencia) VALUES " & "('" & ip & "', '" & fecha & "', '" & hora & "', '" & codigo & "', '" & procedencia & "')"
'If ip <> "80.24.179.16" AND ip <> "200.68.101.5" then
SET Obj_Conn = Server.CreateObject ("ADODB.Connection")
Obj_Conn.Open "turismurciasalud.com.accesos"
Obj_Conn.Execute SQL
Obj_Conn.Close
SET Obj_Conn = Nothing
'end if
%>
TURISMURCIASALUD
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>