 |
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
%>
<%
Else
%>
<%
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
<%
END SELECT
%>
for more information about The 2009 Solheim Cup...
click here
click here to return to home
|
 |
