<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("BP-CAPTCHA")) Session("BP-CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function Function SendMail(MailTo, MailFrom, Subject, Body) Dim myMail, varFromEmail Set myMail = Server.CreateObject("CDO.Message") Mailfrom = "info@gaybars.com" myMail.From = MailFrom myMail.To = MailTo myMail.Subject = Subject myMail.TextBody = Body myMail.Send Set myMail = Nothing End Function %> Gay Bars.COM Bar Listing Submission Form
Gay Bars Logo
SUBMISSION FORM


Please check to see if the bar is listed before submitting it!

If you have a listing that isn't included please fill out the ENTIRE form below with the correct information!

Hyperlinks are $35 per month or $350 per year pre-paid. If they have a website, please fill in the necessary info...also please put YOUR e-mail address since we verify all submissions.

Thanks!


Please fill in completely...especially the SITE E-MAIL address, so we can verify submission.

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> <% else %> <% end if end if %>
Your Name
Your Email Address
Name of the Bar
Address of the Bar
City
State
Zip Code
Country
Phone nuber of Bar
Site Name
Site URL
Site Email Address (if known)
Any other info you'd like us to know?:
Security Code This Is CAPTCHA Image
Write the characters in the image above (Case sensitive)
<% If Len(Request.Form("btnSubmit")) > 0 Then varBody= "Voter's IP Address: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf &_ "Name: " & Request.Form("tbName") & vbcrlf &_ "Email Address: " & Request.Form("tbEmail") & vbcrlf &_ "Bar name: " & Request.Form("tbBarName") & vbcrlf &_ "Bar address: " & Request.Form("tbBarAddress") & vbcrlf &_ "Bar city: " & Request.Form("tbBarCity") & vbcrlf &_ "Bar state: " & Request.Form("tbBarState") & vbcrlf &_ "Bar zip: " & Request.Form("tbBarZip") & vbcrlf &_ "Bar country: " & Request.Form("tbBarCountry") & vbcrlf &_ "Bar phone: " & Request.Form("tbBarPhone") & vbcrlf &_ "Site Name: " & Request.Form("tbSiteName") & vbcrlf &_ "Site URL: " & Request.Form("tbURL") & vbcrlf &_ "Site Email: " & Request.Form("tbSiteEmail") & vbcrlf &_ "Comments: " & Request.Form("tbComments") Call SendMail("webmaster@gaybars.com", MailFrom, "Gay Bars' Listing Submission Form", varBody) ' Call SendMail("webmaster@gaybars.com;ferrell@badpuppy.com", MailFrom, "Gay Bars' Listing Submission Form", varBody) ' Call SendMail("webmaster@gaybars.com", MailFrom, "Gay Bars' Listing Submission Form", varBody) End If response.redirect("thanks.html") %>
Invalid Security Code
Please wait for a confirmation screen after clicking
"SUBMIT BAR"
to ensure that we have received your submission.

If you have difficulty with the form....please send via e-mail info@gaybars.com


Brought to you by
ambushonline
Over 3.5 MILLION hits per month & 375,000 unique visitors per month

Copyright © Ambush, Inc. All Rights Reserved ®
828-A Bourbon Street, New Orleans, Louisiana, 70116-3137, USA
PH 1.504.522.8047 FAX 1.504.522.0907