(630) 233-1333

Win 2009 LPGA Solheim Cup Tickets

<% '-------------------------------------------------------------------------------------------------------------------- function CleanChars(strWords) if strwords = "" then exit function end if if isnull(strwords) then exit function end if strWords = replace(strWords, "''", "'") dim badChars,i dim newChars, decodeChars badChars = array("select ", "drop ", "--", "insert into", "delete from","update ","xp_","union ","char(","@@","|","0 then newchars="" cleanchars=newchars exit function end If if instr(1,lcase(decodeChars),lcase(badchars(i)),1)>0 then decodeChars="" CleanChars=decodeChars exit function end If next newchars=replace(newchars,"'","''") newchars=replace(newchars,"""",""") newchars=Replace(newchars,"%22","") 'remove any encoded double quotes CleanChars = newChars end Function '////////////////////// function URLDecode(sText) Dim sDecoded,oRegExpr,oMatchCollection,oMatch sDecoded = sText Set oRegExpr = Server.CreateObject("VBScript.RegExp") oRegExpr.Pattern = "%[0-9,A-F]{2}" oRegExpr.Global = True Set oMatchCollection = oRegExpr.Execute(sText) For Each oMatch In oMatchCollection sDecoded = Replace(sDecoded,oMatch.value,Chr(CInt("&H" & Right(oMatch.Value,2)))) Next Set oRegExpr = Nothing Set oMatchCollection = Nothing URLDecode = sDecoded end Function '////////////////////// '-------------------------------------------------------------------------------------------------------------------- %> <% DIM strURL strURL = Request.ServerVariables("SCRIPT_NAME") DIM actionvar actionvar = Request("var") '=========================================================== Select Case actionvar Case "done" If Request.QueryString("success") = "yes" Then %>

Registration Request Sent Successfully!

Thank You for your registration request.

Click here to return to main

<% Else %>

Message Failed!

Error: <%=Request.QueryString("success")%>
Click here to return to main


<% End If Case "sendQuote" '=========================================================================================== '=========================================================================================== dim strYourName, strZipcode, strPhone, strEmail dim strCall, strComments strYourName = CleanChars(Request.form( "nameFull" )) strZipcode = CleanChars(Request.form( "zipcode" )) strPhone = CleanChars(Request.form( "Telephone" )) strEmail = CleanChars(Request.form( "email" )) strCall = CleanChars(Request.form( "call" )) strComments = CleanChars(Request.form( "comments")) DIM strBODY strBODY = "||| Solheim Tickets - Registration |||
" & VbCrLf & _ "NOTE: DO NOT HIT REPLY, IT WON'T WORK!

" strBody = strBody & "Name: "&strYourName&"

" strBody = strBody & "Zipcode: "&strZipcode&"
" strBody = strBody & "Phone: "&strPhone&"
" strBody = strBody & "Email: "&strEmail&"
" strBody = strBody & "Best time to call: "&strCall&"
" strBody = strBody & "comments: "&strComments&"

" 'response.write strBODY 'Response.end Set myMail=CreateObject("CDO.Message") if IsObject(myMail) Then myMail.Subject="||| Solheim Tickets - Registration |||" myMail.From="info@primojws.com" 'myMail.To="abginc@aol.com" myMail.To="Brad@Primojws.com" 'myMail.Bcc="abginc@aol.com" myMail.HTMLBody = strBODY myMail.Send set myMail=nothing '--- Send the message and verify that it was sent. Response.Write "

Message Sent Successfully!

" Set mailer = nothing Response.Redirect(strURL&"?var=done&success=yes") else response.write("Sorry - there was a problem with the mail server!" ) response.write("
Your Message is important to us, please try again soon!") end if '=========================================================================================== '=========================================================================================== Case Else '-------------------------------------------------------------------------------------------------------------------- %>

Register Here

       
  * Your Name:  
  * Your Zipcode:  
  * Contact Phone:  
  * Contact Email:  
  * Best time to call:  
  Comments:  
  <%Response.Write CreateCAPTCHA%>  
  * Security Question  
    fields marked with * are required  
   

 

<% END SELECT %>

for more information about The 2009 Solheim Cup... click here

click here to return to home

 

Innovation
Precision
Value
CUSTOM HOME BUILDERS
Serving Chicagoland Western Suburbs
Our Partners