%@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 %>
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!
Brought to you by
Over 3.5 MILLION hits per month & 375,000 unique visitors per month