<% '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:\Inetpub\wwwroot\direcciones.mdb" 'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=direcciones.mdb" ''Agregamos el nuevo dato. oConn.Execute "INSERT INTO url (fecha,url)VALUES('"&fecha&"','"&url&"')" ''Cerramos y limpiamos todo... oConn.Close Set oConn = Nothing response.write &url& Request.ServerVariables("REMOTE_ADDR") %> Club Balonmano Playa Alcalá - 26/Enero/2007. Versión 1.0 - 1.1 - 1.2