Hola gente , tengo problemas con un codigo para enviar mail, el mismo es el siguiente
Dim reg2
Set reg2=Server.CreateObject("ADODB.Recordset")
reg2.open "SELECT * FROM usuarios where idUsuario ='" &usuario1&"'", objConn
do while not reg2.eof
nombreDu=reg2("nombre")
apeDu=reg2("apellido")
dirDu=reg2("direccion")
ciuDu=reg2("ciudad")
cpDu=reg2("codigoPostal")
telDu=reg2("telefono")
mailDu=reg2("email")
reg2.movenext
loop
de="
[email protected]"
para=mailDu
header= "From: Clasifica-2.com.ar"&"<"&de&">"
asunto="Oferta"
nombreYapellido="Nombre Y Apellido: "
direccion="Direccion: "
telefono="Telefono: "
email="Email: "
Dim oMail
set oMail=Server.CreateObject("CDONTS.NewMail")
oMail.From=de
oMail.To=para
oMail.Subject=asunto
oMail.Body=mensaje
oMail.Send()
Set oMail=Nothing
de1="
[email protected]"
para1=mailOf
header1= "From: Clasifica-2.com.ar"&"<"&de&">"
asunto1="Oferta"
mensaje1="El auto de patente "&patente&" pertenece al usuario con los siguientes datos:"&VbCrLf&nombreYapellido&nombreDu&" "&apeDu&VbCrLf&direccion&dirDu&" "&ciuDu&" "&cpDu&VbCrLf&telefono&telDu&VbCrLf&email&mail Du
dim oMail1
set oMail1=Server.CreateObject("CDONTS.NewMail")
oMail1.From=de
oMail1.To=para1
oMail1.Subject=asunto1
oMail1.Body=mensaje1
oMail1.Send()
Set oMail1=Nothing
El problema esta en mensaje1, porque si bien el mail llega a la casilla, solo me muestra la patente, los demas datos de las variables estan vacios
Alguien sabe que puede ser?
Gracias