<% dim p req = request.querystring("p") ' Get Form Values and Process to Variables strSendmail = request("sendmail") 'strRecipient = "rherrmann@ehsnow.com, bgudeman@ehsnow.com" strRecipient = "tyhoerr@gmail.com" 'testing address, switch to above when publishing strRedirect = "http://www.ehsnow.com/thanks.html" strSubject = "Contact Us From Website" strFirstname = request("firstname") strLastname = request("lastname") strAddress1 = request("address1") strAddress2 = request("address2") strCity = request("city") strState = request("state") strZipcode = request("zipcode") strPhone = request("phone") strFax = request("fax") strEmail = request("email") strPDF = request("PDF") strComments = request("comments") 'use internal from email strFromEmail = "noreply@bluespheremail.com" Message = "Date of Website Contact:" & date() & chr(13) Message = Message & "First Name: " & strFirstname & chr(13) Message = Message & "Last Name: " & strLastname & chr(13) Message = Message & "Address1: " & strAddress1 & chr(13) Message = Message & "Address2: " & strAddress2 & chr(13) Message = Message & "City: " & strCity & chr(13) Message = Message & "State: " & strState & chr(13) Message = Message & "Zip Code: " & strZipcode & chr(13) Message = Message & "Phone: " & strPhone & chr(13) Message = Message & "Fax: " & strFax & chr(13) Message = Message & "Email: " & strEmail & chr(13) Message = Message & "Sample Request (PDF): " & strPDF & chr(13) Message = Message & "Comments: " & strComments & chr(13) if strSendmail = "1" then Set objMail = CreateObject("CDO.Message") 'objMail.Value("Reply-To") = strEmail 'objMail.Send FromName, ToName, subject, Message 'objMail.Send strFromEmail, strRecipient, strSubject, Message objMail.From = strFromEmail objMail.To = strRecipient objMail.Subject = strSubject objMail.TextBody = Message objMail.Send Set objMail = nothing 'response.write "error if:
" 'response.write err.description 'response.end 'response.flush response.redirect(strRedirect) end if %>