<% ' 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 %> Contact Us

Contact Us

<% If updateRS <> "" Then nFullName = Request("nFullName") nMailName = Request("nMailName") nName = Request("nName") nEmail = Request("nEmail") nPhone = Request("nPhone") nComments = Request("nComments") nErrornName = "" nErrornEmail = "" nErrornComments = "" nName = stripTags(nName) nPhone = stripTags(nPhone) nEmail = stripTags(nEmail) nComments = stripTags(nComments) If nName = "" Then nErrornName = "Please enter your name." End If If nEmail = "" Then nErrornEmail = "Please enter your email address." Else If InStr(nEmail,"@") = 0 Then nErrornEmail = "Please enter a valid email address." End If End If If nComments = "" Then nErrornComments = "Please enter your comments." End If nFrom = nSiteName & " <" & nEmail & ">" nTo = nFullName & " <" & nMailName & "@" & nSiteName & ">" nSubject = "Contact Form Submission - " & nSiteName If nErrornName = "" And nErrornEmail = "" And nErrornComments = "" Then nBody = Email_Body() Call Send_Mail(nFrom, nTo, nSubject, nBody) Else nError = "1" End If End If %> <% If nError = "" And updateRS <> "" Then %>
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) %>
<% Else %>

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.

<% If nFullName <> "" Then %> <% End If %>
To: <% Response.Write(nFullName)%>
 
Your Name:
<% If nErrornName <> "" Then %>
<% Response.Write(nErrornName)%>
<% End If %>
 
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 %>
 
<% End If %>

FLYING FISHERMAN

PO Box 545
Islamorada, Florida Keys 33036
Phone: 800.3.FLYFISH (800.335.9347) / 305-852-8989
Fax: 305-853-0100
Email: info@flyingfisherman.com

Showroom Address:

FLYING FISHERMAN
171 Hood Ave., Unit 2
Tavernier, Florida Keys 33070
Phone, Fax and Email are the same as left

home | shop online | technology | dealers | company | news | contact us | privacy policy

© Flying Fisherman 2010. All Rights Reserved.

<% Function Email_Body() nTable = "" nTable = nTable + "The following information was submitted online on www." & nSiteName & ":" + vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "Contact Form Submission" + vbCRLF nTable = nTable + "=======================" + vbCRLF nTable = nTable + "Name: " & nName & vbCRLF nTable = nTable + "Email: " & nEmail & vbCRLF nTable = nTable + "Phone: " & nPhone & vbCRLF nTable = nTable + "Comments: " & nComments & vbCRLF nTable = nTable + "---" + vbCRLF nTable = nTable + "User IP Address: " & UserIPAddress & vbCRLF nTable = nTable + "" + vbCRLF Email_Body = nTable End Function Function stripTags(strToStrip) Dim objRegExp strToStrip = Trim( strToStrip & "" ) If Len( strToStrip ) > 0 Then Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern= "<[^>]+>" strToStrip = objRegExp.Replace(strToStrip, "") Set objRegExp = Nothing End If stripTags = strToStrip End Function Function Send_Mail(nFrom, nTo, nSubject, nBody) set o_mailer = Server.CreateObject("CDO.Message") o_mailer.From = nFrom o_mailer.To = nTo o_mailer.Subject = nSubject o_mailer.TextBody = nBody 'o_mailer.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'o_mailer.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.flyingfisherman.com" 'o_mailer.Configuration.Fields.Update o_mailer.Send set o_mailer = nothing End Function Function nSanitizeGeneralText(nText) nText = Replace(nText," "," ") nText = Replace(nText," "," ") nText = Replace(nText,"<","") nText = Replace(nText,">","") nText = Replace(nText,"%3C","") nText = Replace(nText,"%3E","") nText = Replace(nText,"1=1","") nText = Replace(nText,"1 =1","") nText = Replace(nText,"1= 1","") nText = Replace(nText,"1 = 1","") nText = Replace(nText,"'","") nText = Replace(nText,"%27","") nText = Replace(nText,"""",""") nText = Replace(nText,"%22",""") nSanitizeGeneralText = nText End Function %>