%
If Request.ServerVariables("HTTP_REFERER")="http://dev.furstperson.com/contact.asp" AND Request.form("form")="contact" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost = "208.44.35.80"
Mailer.FromName = "ContactForm"
Mailer.FromAddress = "webmaster@furstperson.com"
Mailer.AddRecipient "FurstPerson.com", "devtest@furstperson.com"
Mailer.Subject = "Contact Us Web Form"
Mailer.BodyText = "First Name: " & Request.form("namefirst") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Last Name: " & Request.form("namelast") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Job Title: " & Request.form("title") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Company: " & Request.form("company") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Web Site: " & Request.form("website") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Industry: " & Request.form("industry") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "E-mail: " & Request.form("email") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Phone: " & Request.form("phone") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Fax: " & Request.form("fax") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Address: " & Request.form("address") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "City: " & Request.form("city") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "State: " & Request.form("state") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Zip: " & Request.form("zip") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Country: " & Request.form("country") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Sign up: " & Request.form("signup") & VbCrLf
Mailer.BodyText = Mailer.BodyText & "Comments: " & Request.form("comments") & VbCrLf
if not Mailer.SendMail then
' Response.Write " Mailing Failed... Error is:
"
' Response.Write Mailer.Response
else
' Response.Write " sent successfully...
" end if rem Response.Write "This component expires: " & Mailer.Expires & "
" Reponse.Redirect("contactthankyou.html") end if %>