¿ Cómo se podría hacer para que en vez de enviar los datos que se encuentran en una base de datos, se enviará en el cuerpo del mail lo q anteriormente se hubiera puesto en un formulario ?
Lo típico de recomendar una página a un amigo vamos
Esto q poco a continuación esta elaborado por Maestro claro y yo no sé modificarlo para conseguir lo que dije anteriormente, bueno haber si alguien me ayuda, muchas gracias
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
email=request("email") ' obtenemos la direccion del destinatario de un formulario de la pagina anterior
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tabla"
rs.Open SQL, oConn,1,2
'envio mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.telecable.es"
Mail.From = "[email protected]"
Mail.FromName = "www.loquesea.com"
Mail.AddAddress email ' Recuperamos la direccion del formulario
Mail.Subject = "información "
'comenzamos el bucle que va añadiendo lineas de los registros al cuerpo del mensaje
do while not rs.eof
cuerpo= cuerpo & rs("nombre") & rs("ciudad") &"<br>"
rs.movenext
loop
'definimos el cuerpo como el conjunto de lineas obtenidas del bucle
Mail.body = cuerpo
'Limpiamos objetos y cerramos las conexion con la BD
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Comprobamos si el correo se pudo enviar, o la direccion era incorrecta u otros errores
On Error Resume Next
response.write("El correo ha sido enviado a " & email & "<br>" & "Gracias por visitarnos")
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>
</body>
</html>
