Ayuda codigo para envio de mail

[agugut]

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

[JuanRAPerez]

ummm ha de ser problema con tu cadena de texto
porque no la pones mas clara

algo así:

mensaje1 = ""
mensaje1 = mensaje1 & "El auto de patente "&patente&" "
mensaje1 = mensaje1 & "pertenece al usuario con los siguientes datos: " & VbCrLf
mensaje1 = mensaje1 & "Nombre : " & TuVariableNombre & VbCrLf
mensaje1 = mensaje1 & "Apellido : " & TuVariableApellido & VbCrLf
mensaje1 = mensaje1 & "Dirección : " & TuVariableDireccion & VbCrLf

y luego envías mensaje1

suerte

[agugut]

Lo modifique y sigue enviando vacio solo esos datos :S, la verdad que no entiendo porque la variable patente la muestra y las otras no estan vacias, porque si hago un Response.write(variable)muestra el contenido
Gracias

[JuanRAPerez]

pega el código ya modificado completo

grx

[agugut]

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
de1="[email protected]"
para1=mailOf
header1= "From: Clasifica-2.com.ar"&"<"&de&">"
asunto1="Oferta"
mensaje1="El auto de patente "&patente
mensaje1=mensaje1&" pertenece al usuario con los siguientes datos:"
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&nombreYapellido
mensaje1=mensaje1&nombreDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&apeDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&direccion
mensaje1=mensaje1&dirDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&ciuDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&cpDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&telefono
mensaje1=mensaje1&telDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&email
mensaje1=mensaje1&mailDu
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

[JuanRAPerez]

oki vamos por partes

Primero haces un ciclo el cual no entiendo el sentido si el unico registro que te mostrara es el ultimo

quiere decir que si en tu tabla hay 10 registros siempre te mostrara el ultimo basados en tu condiciones del SQL.

[me imagino que lo que deseas es enviar el correo a todos los usuarios dentro del ciclo]

hagamos una validación de vacíos antes de proceder a escribir el código (ve el código lo que esta en verde)

Iniciado por agugut

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



if trim(apeDu) = "" then
response.write "Viene vacio el apeDU"
response.end
end if
'haz esto con todas las variables para verificar que en efecto el RS esta alimentando correctamente las variables



de1="[email protected]"
para1=mailOf
header1= "From: Clasifica-2.com.ar"&"<"&de&">"
asunto1="Oferta"
mensaje1="El auto de patente "&patente
mensaje1=mensaje1&" pertenece al usuario con los siguientes datos:"
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&nombreYapellido
mensaje1=mensaje1&nombreDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&apeDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&direccion
mensaje1=mensaje1&dirDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&ciuDu
mensaje1=mensaje1&" "
mensaje1=mensaje1&cpDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&telefono
mensaje1=mensaje1&telDu
mensaje1=mensaje1&VbCrLf
mensaje1=mensaje1&email
mensaje1=mensaje1&mailDu
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

[agugut]

Parece que ya lo solucione, el problema no estaba ahi, sino en otra parte del codigo qe estaba vacio.
MUchas Gracias

[JuanRAPerez]

bueno seria postearas la solución
para que el día de mañana alguien que lea este post encuentre una solución a un problema similar

suerte