Tengo esto pero solo me envia el primero y sale error al final. Que hago mal?¿?¿?
dim strHTML
// construimos el cuerpo para enviar al adminstrador
strHTML = strHTML & "<html>"
strHTML = strHTML & "<head>"
strHTML = strHTML & "</HEAD>"
strHTML = strHTML & "<BODY BGCOLOR='#FFFFFF'>"
strHTML = strHTML & "<br>texto prueba ADMIN<BR><BR>"
strHTML = strHTML & "<br><br>"
strHTML = strHTML & "</body></html>"
dim Mail
set Mail = Server.CreateObject("Persits.MailSender")
Mail.host="mihost.com"
Mail.isHTML= True
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = "
[email protected]"
Mail.FromName = "pruebas"
Mail.AddAddress "correoadministrador.com"
Mail.Subject = "pruebas dobles"
Mail.Body= strHTML1
Mail.Send
dim strHTML1
// construimos el texto para el usuario
strHTML1 = strHTML1 & "<html>"
strHTML1 = strHTML1 & "<head>"
strHTML1 = strHTML1 & "</HEAD>"
strHTML1 = strHTML1 & "<BODY BGCOLOR='#FFFFFF'>"
strHTML1 = strHTML1 & "<br>texto prueba usuario<BR><BR>"
strHTML1 = strHTML1 & "<br><br>"
strHTML1 = strHTML1 & "</body></html>"
dim Mail1
set Mail1 = Server.CreateObject("Persits.MailSender")
Mail1.host="mihost.com"
Mail1.isHTML= True
Mail1.ContentTransferEncoding = "Quoted-Printable"
Mail1.From = "miweb.com"
Mail1.FromName = "prueba"
Mail1.AddAddress "coreo usuario.net"
Mail1.Subject = "pruebas dobles"
'Mail1.Body = "hola"
Mail1.Body= strHTML1
Mail1.Send
On Error Resume Next
response.Redirect("http://www.miweb.com")