|
Dealer Support :
Just give SnowEx a call. It's not a machine that answers, but a real person. And it's not someone with a flowchart on his desk going through the motions to hopefully come up with a solution, but instead someone who knows your business and has actually used the equipment that you're using. Through our network of more than 600 servicing dealers in North America and 15 countries worldwide, our commitment to you is solid...and it shows!
Email: info@trynexfactory.com
Toll Free: 1.800.SALTERS
Feel free to fill out the form below if you would like to send us an email inquiry. Thank you.
<%
Dim strFName
Dim strLName
Dim strCompanyName
Dim strAddress1
Dim strAddress2
Dim strCity
Dim strState
Dim strZip
Dim strPhone
Dim strFax
Dim strMessage
Dim strHowHear
Dim strIfOther
strFName = Request.Form("fname")
strLName = Request.Form("lname")
strCompanyName= Request.Form("companyname")
strAddress1= Request.Form("address1")
strAddress2= Request.Form("address2")
strCity= Request.Form("city")
strState= Request.Form("state")
strZip= Request.Form("zip")
strPhone= Request.Form("phone")
strFax= Request.Form("fax")
strMessage= Request.Form("message")
strHowHear= Request.Form("howhear")
strIfOther= Request.Form("ifother")
If request("submit") <> "" THEN
'Added code: upon submit we should validate code that user typed
If Session("LanapBotDetectCodeHash") <> "" then
Dim obj
Set obj = server.CreateObject("Lanap.BotDetect")
If obj.Validate(UCase(Request.Form("TextBoxUserCode")),Session("LanapBotDetectCodeHash")) = true then
'Validation: PASSED - type your own code here. In your case, process form and send email:
Dim oMail
Set oMail = server.CreateObject("MEMail.Message")
oMail.MailFrom = "trynex@clickzen.org"
oMail.MailFromDisplayName = "Website Contact Form"
If request("dropdown")="Dealer Information Request" Then
oMail.MailTo = "trynex@zcss.com"
'oMail.MailTo = "info@zcss.com"
ElseIf request("dropdown")="General Question" Then
oMail.MailTo = "trynex@zcss.com"
'oMail.MailTo = "info@zcss.com"
End If
oMail.Subject = "Trynex Contact Form Message Concerning: " & Request("dropdown")
oMail.MessageBody = "Email sent at" & Now() & vbcrlf _
& "SENDER INFORMATION FOLLOWS:" & vbcrlf & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "First Name: " & strFName & vbcrlf _
& "Last Name: " & strLName & vbcrlf _
& "Email: " & Request("email") & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "PLEASE DO NOT REPLY DIRECTLY TO THIS EMAIL." & vbcrlf & vbcrlf _
& "PLEASE COPY AND PASTE ADDRESS INTO 'TO:' FIELD OTHERWISE YOU WILL RECIEVE AN ERROR MESSAGE. THANK YOU." & vbcrlf & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "Company Name: " & strCompanyName & vbcrlf _
& "Address 1: " & strAddress1 & vbcrlf _
& "Address 2: " & strAddress2 & vbcrlf _
& "City: " & strCity & vbcrlf _
& "State: " & strState & vbcrlf _
& "Postal Code: " & strZip & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "How Did You Hear About Us? " & strHowHear & vbcrlf _
& "Other: " & strIfOther & vbcrlf _
& "-----------------------------------------------------------" & vbcrlf & vbcrlf _
& "Phone: " & strPhone & vbcrlf _
& "Information Requested: " & strMessage & vbcrlf
oMail.SendMessage
Response.Write("Message Sent")
Response.Redirect("thankyou.htm")
Response.Write("Validation passed")
else
'Validation: FALSE - you will probably want to redirect user back to form with boxes filled up with already typed in data
'so complete the following url...
redirect_url = "contact.php?name=" + strName + "&companyname=" + strCompanyName
Response.Redirect ("failed.htm")
End If
Set obj = Nothing
End If
'Added code: end
Else
%>
<%
End If
%>
|
