He probado asi pero me da error en la linea 19 ¿que hago mal?
<%
Dim fecha, url
fecha = Now
url= Request.ServerVariables("HTTP_REFERER")
'Conectamos a la BD.Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dedonde2.mdb")&";"
oConn.Execute "INSERT INTO url (fecha,url)VALUES('"&fecha&"','"&url&"')"
oConn.Close
Set oConn = Nothing
%>
<%
'Conectamos a la BD.Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dedonde2.mdb")&";"
oConn.Execute "select (fecha,url) FROM url ORDER BY ID DESC LIMIT 0,1"
oConn.Close
Set oConn = Nothing
'Vamos a mandar un mail!
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="E-Mail de prueba desde ASP"
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP." & VbCrLf
sCuerpo = sCuerpo & "Acabaré gestionando una lista de correo algún día!" & VbCrLf
sCuerpo = sCuerpo & VbCrlf & VbCrLf & "Ah! Lo aprendí en foros del web"
sDestinatario="
[email protected]"
'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")
'Establecemos las propiedades del objeto
oMail.From = "ejemplo de Mail " 'Pon aquí tu mombre y dirección
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo
' Enviamos el email!
oMail.Send
set oMail = nothing
Response.Write ("Mensaje enviado.")
%>