CDONTS enciclados? o QUé?

[rashid]

Tengo una simple formula que debe enviar tres mails, por eso hice que la pag que envía los mails se repita tres veces, es asi:
Fórmula:
<form name="form1" method="post" action="SendMail.asp">
<input type="text" name="nameE-mail" ><input type="text" name="emailComments">
<input type="hidden" name="mail1" value="[email protected]">
<input type="hidden" name="mail2" value="[email protected]">
<input type="hidden" name="mail3" value="[email protected]">
<textarea name="comments" cols="40" rows="8"></textarea>
<input type="submit" name="Submit" value="Submit">

La que env[ia los mails es:
<%

sName = Request.Form("Name")
sEmail = Request.Form("email")
smail1 = Request.Form("mail1")
smail2 = Request.Form("mail2")
smail3 = Request.Form("mail3")
sComments = Request.Form("comments")


'*********Email To GISC Admin********
sBody = ""


sBody = sBody & "name:"
sBody = sBody & sName & chr(13)
sBody = sBody & "emilio:"
sBody = sBody & sEmail & chr(13)
sBody = sBody & "comments:"
sBody = sBody & sComments& chr(13)


Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = smail1
objCDO.From = sEmail
objCDO.Subject = "Comment on Green Iguana Surf Camp."
objCDO.Body = sBody
objCDO.Send


'*********Email To Jason. GISC********
sBody = ""


sBody = sBody & "name:"
sBody = sBody & sName & chr(13)
sBody = sBody & "emilio:"
sBody = sBody & sEmail & chr(13)
sBody = sBody & "comments:"
sBody = sBody & sComments& chr(13)


Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = smail2
objCDO.From = sEmail
objCDO.Subject = "Comment on Green Iguana Surf Camp."
objCDO.Body = sBody
objCDO.Send


'*********Email To dingking71 ********
sBody = ""


sBody = sBody & "name:"
sBody = sBody & sName & chr(13)
sBody = sBody & "emilio:"
sBody = sBody & sEmail & chr(13)
sBody = sBody & "comments:"
sBody = sBody & sComments& chr(13)


Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = smail3
objCDO.From = sEmail
objCDO.Subject = "Comment on Green Iguana Surf Camp."
objCDO.Body = sBody
objCDO.Send

response.Write("Thanks. You will be redirect to home.")
response.Redirect("www.camp.com")

%>



Pero se encicla y aunque me envia los mails, es lerdísima y al final no me redirige.
Alguien sabe cómo hacerlo mejor?
Graicas

[rashid]

Alguien con alguna sugerencia de cómo enviar 3 mails usando CDONTS.?

gracias!.

[Anakin]

puedes provar ha hacer un bucle, quizas te funcionarà mejor.

[lubetpic]

auch muy largo mae

mejor crearte una funcion que haga el envio masivo y luego solo haces algo como:

mail(to:[email protected],header,from:myemail )
...

[lubetpic]

ya lo encontre:

<%
Function Correo(From,FromName,Address,AddressName,Subject,B ody)

Dim Mail
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tuhost.com"

Mail.From = From
Mail.FromName = FromName
Mail.AddAddress Address
Mail.Subject = Subject
Mail.Body = Body
Mail.IsHTML = True
Mail.Send

If Err <> 0 Then
Correo = Err.Description
Else
Correo = ""
End If

End Function
%>

aqui esta la funcion, es en persist pero para cdonts solo hay que cambiar un par de componentes

[rashid]

Lubet qué es persist , es una componente o qué?

Gracias.

Ahh, ya intenté usarlo asi.
objCDO.To = smail1; smail2; smail3

y no funca.

[lubetpic]

persits es un programa o dll que se instala en el server, se utiliza para el mismo proposito, logico que no te sirve si no lo tienes instalado

para que funcione seria
Correo("[email protected]","mi nombre","[email protected]","nombre",Subject,B
ody)

pero la idea es la misma, puedes usar cdonts cambiando un par de cosas a la funcion que te puse, fijate en las faqsdelweb y ahi esta todo