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