%@ LANGUAGE="VBScript" %> <% Dim statusMSG statusMSG = empty sent = false If Not Request.Form("btn_submit") = "" Then 'validate required fields' If isvalid( Request.Form("name") ) and isvalid( Request.Form("email") ) and isvalid( Request.Form("website") ) and isvalid( Request.Form("msg") )Then SendBannerMail Request.Form("name"), Request.Form("email"), Request.Form("phone"), Request.Form("website"), Request.Form("msg") statusMSG = "Thanks for joining! Expect an email message soon." sent = true Else statusMSG = "Please include all required information." End If End If pageTITLE = "Racing Banner Swap" %>
<%=pageTITLE%> | <%=currentDATE%> |
Contact RacingAroundAmerica.com | |
<% If not isempty( statusMSG ) Then %> <%=statusMSG%>
<% End If If sent = false Then %>
Promote your racing website on RacingAroundAmerica.com | |||||
|
|
<% Else %>
Make sure you copy one of the banners below and include it on your site. Please link it to: http://www.racingaroundamerica.com |
|||
|
<% End If %>
Contact RacingAroundAmerica.com | |
<%=pageTITLE%> | <%=currentDATE%> |