<%
'WWW.3ESSENTIALS.COM - FORMMAIL.ASP EXAMPLE WITH ASPSmartMail object usage
'3ESSENTIALS HOSTING FORMMAIL SCRIPT IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANYKIND
'CONSTANTS CHANGE THESE TO USE YOUR EMAIL ADDRESS
'Note, if you rename the submit button, you will need to alter the IF Statement
sSender = "WebForm@VanWA.US" 'The Email address that the email will come from
'sPassword = "adoptme"
sRecipient = "ThePitStop@VanWA.us" 'The Email address that the email will be sent to
'sRecipient2 = "ThePitStop@VanWA.US"
sSubject = "From Pit-Stop Web Form"
%>
Pit-Stop Contact
<%
'The following lines check to see if this page has been submitted to itself, and if so, builds the sMessage variable (the body of the mail), and
' then will run the mail sending code.
if request.Form("Send") = "Send" then
For x = 1 to Request.Form.Count
sMessage = sMessage & Request.Form.Key(x) & " = "
sMessage = sMessage & Request.Form.Item(x)& vbCrLf
Next
On error resume next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.From = sSender
JMail.MailServerUserName = sSender
JMail.MailServerPassWord = sPassword
JMail.Subject = sSubject
JMail.AddRecipient sRecipient
JMail.AddRecipient sRecipient2
JMail.Body = sMessage
JMail.Send("127.0.0.1")
if Err.Number<>0 then
Response.write "Error: " & Err.description
else
'Response.write "Email successfully sent."
Response.redirect "thankyou.htm"
end if
End If
%>
Contact Us\