|
Este es un ejemplo básico de un script
ASP que enviará los resultados de cualquier forma que
utilice el método POST a una dirección e-mail.
Nota:
El tamaño de esta tabla ha sido agrandado para que
Ud. vea los ejemplos en una sola línea. Además,
algunos de los textos en rojo
están en ingles pero Ud. puede reemplazarlos por el
idioma que prefiera.
Nota 2:
ASP controla el orden mediante el cual los ítems de
la forma son pasados al script. Para mantener los ítems
de la forma en un orden lógico, requeriría un
proceso extra y limitaría los tipos de formas que pueden
ser usados.
<%
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = "Nombre
del remitente"
Mailer.FromAddress = "E-mail
del remitente"
Mailer.RemoteHost = "mail.rapidsite.net"
Mailer.AddRecipient "Nombre del
destinatario", "E-mail
del destinatario"
Mailer.Subject = "Forms2Email"
For each Item in Request.Form ' Loop
through each Form item
strMsgInfo = strMsgInfo &
Item & ": " & Request.Form(Item) &
vbCrLf
next
strMsgHeader = "Form
information follows" & vbCrLf & "*************"
strMsgFooter = vbCrLf & "*************"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
if Mailer.SendMail then
' Message sent Ok, redirect
to a confirmation page
Response.Redirect ("http://sudominio.com/ok.html")
else
' Message send failure
Response.Write ("An
error has occurred.<BR>")
' Send error message
Response.Write ("The
error was " &
Mailer.Response)
end if
%>
|
