<% If Request.Form("name")="" then %>

<%=PageHeader%>

Selecciona el nº de amigos:
Tu nombre:
Tu e-mail:
Introduce aquí su e-mail
Amigo 1 :

Completa tu mensaje:
<% else %>

<%=PageHeader%>

<% If Request.form("Name")="" then error("Name") If Request.form("Email")="" then error("Email") Response.Write "

Gracias por tu invitación. Que Dios te bendiga.

" dim message,fromEmail,toEmail message = Request.Form("message") fromEmail = Request.Form("Email") dim myMail count = Request.Form("f").Count mainSend = "Mails Send To" & "
" for i= 1 to count set myMail = server.CreateObject("CDONTS.Newmail") toEmail= Request.Form("f")(i) mainSend =mainSend & toEmail & "
" myMail.Body= message myMail.To= toEmail myMail.From= fromEmail myMail.Subject = Subject myMail.Send next set myMail= nothing set myMail = server.CreateObject("CDONTS.Newmail") if MailToMe<>"" then myMail.Body = mainSend myMail.To=toEmail myMail.From = fromEmail myMail.Subject ="Please Tell" 'myMail.Send end if end if %>