%
' Security
Dim UserIPAddress
UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIPAddress = "" Then
UserIPAddress = Request.ServerVariables("REMOTE_ADDR")
End If
' exit code execution if no IP address
If UserIPAddress = "" Then
Response.End
End If
nCorpName = "Flying Fisherman"
nSiteName = "flyingfisherman.com"
nContactInfo = "Flying Fisherman
Phone: 1-800-3-FLYFISH (800-335-9347)
Fax: 305-853-0100
"
nFullName = Request("nFullName")
nMailName = Request("nMailName")
updateRS = Request("updateRS")
nError = ""
' Sanitize for security
nFullName = nSanitizeGeneralText(nFullName)
nMailName = nSanitizeGeneralText(nMailName)
updateRS = nSanitizeGeneralText(updateRS)
If nFullName = "" Then
nFullName = nCorpName
End If
If nMailName = "" Then
nMailName = "info"
End If
%>
|
Your message has been sent!
Thank you for your interest in <% Response.Write(nCorpName) %>. If you requested a reply from us, we will respond as soon as possible to your request. You can also reach us at using the following information: <% Response.Write(nContactInfo) %> |
Please fill in the form below to send us your comments or questions. If you would like us to reply to your message, please make sure to fill in a valid email address.
| To: <% Response.Write(nFullName)%> |
| Your Email Address: <% If nErrornEmail <> "" Then %> <% Response.Write(nErrornEmail)%><% End If %> |
| Daytime Phone (optional): |
| Your Comments or Questions: <% If nErrornComments <> "" Then %> <% Response.Write(nErrornComments)%><% End If %> |
FLYING FISHERMANPO Box 545 |
Showroom Address:FLYING FISHERMAN |
