Procedencia de las visitas

¿De dónde vienen mis visitas? - [Por CoRSA]

Un ejemplo con el cuál obtendremos mediante una de las variables del servidor, de dónde (dirección URL) viene cada uno de nuestros visitantes, y guardaremos la informacion en una simple tabla de Access.

<%
'Definimos las variables a utilizar.
Dim fecha, url
'tomamos el instante de entrada.
fecha = Now
'con esta variable de servidor, conseguimos la direccion URL de donde vino el visitante.
url= Request.ServerVariables("HTTP_REFERER")
'Conectamos a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:tucarpetadbtabla.mdb"
'Agregamos el nuevo dato.
oConn.Execute "INSERT INTO url (fecha,url)VALUES('"&fecha&"','"&url&"')"
'Cerramos y limpiamos todo...
oConn.Close
Set oConn = Nothing
%>