<%@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 = "awards@gayamerica.com" myMail.From = MailFrom myMail.To = MailTo myMail.Subject = Subject myMail.TextBody = Body myMail.Send Set myMail = Nothing End Function %> The Rainbow Award - Submit Your Site for Review
Rainbow Award Logo

SUBMISSION/NOMINATION FORM

Nominees are now being accepted.

Sites are reviewed by the end of each month for winner placement on the following months award roster.
The award roster is posted during the first week of the new month.

Winning sites will be notified by email.

In addition to the Winners Circle on The Rainbow Award site,
winners will be placed in the Gay America directory.



Please fill in completely...especially the SITE EMAIL address, so we can notify them if they win!
======================================================================================
Name
Email Address
Site Name
Site URL
Site Email Address
WHY SHOULD THE ABOVE SITE RECEIVE THE RAINBOW AWARD?
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> <% else %> <% end if end if %>
Comments
Please select if you are Nominating
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 &_ "Site Name: " & Request.Form("tbSiteName") & vbcrlf &_ "Site URL: " & Request.Form("tbURL") & vbcrlf &_ "Site Email: " & Request.Form("tbSiteEmail") & vbcrlf &_ "Why Should the above site receive the Rainbow Award?: " & Request.Form("tbComments") & vbcrlf &_ "Nominating: " & Request.Form("tbSubmission") Call SendMail("info@gayamerica.com", MailFrom, "Gay America's Rainbow Award Site Submission Form", varBody) ' Call SendMail("info@gayamerica.com;ferrell@badpuppy.com", MailFrom, "Gay America's Rainbow Award Site Submission Form", varBody) ' Call SendMail("info@gayamerica.com", MailFrom, "Gay America's Rainbow Award Site Submission Form", varBody) End If response.redirect("thanks.html") %>
Invalid Security Code
Please wait for a confirmation screen after clicking "SUBMIT SITE FOR REVIEW"
to ensure that we have received your submission.


If you have difficulty with the above form....
Please send email to awards@gayamerica.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