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)
Cita:
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