Separar campos en el mail
Hola, soy nuevo en asp, estoy intentando enviar un mail desde un formulario con asp. Funciona pero me llegan al mail los campos juntos.
Este es mi asp
<%
'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = "xxxxxxxxxxxx"
'indico la dirección de correo del remitente
mail.from = "mi mail"
'indico la dirección del destinatario del mensaje
mail.addAddress "mi mail"
'Obtengo los datos del formulario
nombre = request.form("nombre")
email = request.form("email")
dni = request.form("dni")
carrera = request.form("carrera")
comentario = request.form("comentario")
'compongo el cuerpo del mensaje
cuerpo = "Formulario De Nuestra Página Web"& VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
cuerpo = cuerpo & "Dni: " & dni
cuerpo = cuerpo & "Carrera: " & carrera
cuerpo = cuerpo & " comentario: " & comentario
'mando el correo...
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
Request.Form("nombre")
'Declaro Saludo de despedida del visitante
saludo = "Gracias por escribirnos:" & nombre & ", el formulario se ha enviado correctamente"
'Muestro saludo
response.write saludo end if
%>
Este es mi asp
<%
'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = "xxxxxxxxxxxx"
'indico la dirección de correo del remitente
mail.from = "mi mail"
'indico la dirección del destinatario del mensaje
mail.addAddress "mi mail"
'Obtengo los datos del formulario
nombre = request.form("nombre")
email = request.form("email")
dni = request.form("dni")
carrera = request.form("carrera")
comentario = request.form("comentario")
'compongo el cuerpo del mensaje
cuerpo = "Formulario De Nuestra Página Web"& VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
cuerpo = cuerpo & "Dni: " & dni
cuerpo = cuerpo & "Carrera: " & carrera
cuerpo = cuerpo & " comentario: " & comentario
'mando el correo...
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
Request.Form("nombre")
'Declaro Saludo de despedida del visitante
saludo = "Gracias por escribirnos:" & nombre & ", el formulario se ha enviado correctamente"
'Muestro saludo
response.write saludo end if
%>