General discussion
Thread display: Collapse - |
All Comments
Start or search
Create a new discussion
If you're asking for technical help, please be sure to include all your system info, including operating system, model number, and any other specifics related to the problem. Also please exercise your best judgment when posting in the forums--revealing personal information such as your e-mail address, telephone number, and address is not recommended.
FORM Processor - results specific order
Can anyone help? Here is the current code...what could I add?
<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & CHR(10)
Next
setsmtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt and smpt.from part to your email address
smtp.Server = "mail.genericemail.com"
smtp.Rcpt = "generic@email.com.com"
smtp.From = request("email")
smtp.FromName = request("fname") & " " & request("name")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write (" ")
else
response.Write (" ")
end if
set smtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt and smpt.from part to your email address
smtp.Server = "mail.genericemail.com"
smtp.Rcpt = "myemail@myemail.com"
smtp.From = request("email")
smtp.FromName = request("fname") & " " & request("name")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write "<a href=""community.html"" border=0><IMG SRC=""formno.gif"" ALT=""oops"" border=0></a>"
else
response.Write "<IMG SRC=""formyes.gif"" ALT=""THANKS"" border=0>"
end if
set smtp = Nothing
%>