<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_CARDfs_STRING MM_editCmd.CommandText = "INSERT INTO dbo.GolfTournament (name, Address, city, state, zip, emailAdd, homephone, workphone, bestTimetoContact, bestMeanstoContact, message, dateSubmitted, SID, confirmation, subject) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("name")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("address")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("city")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 50, Request.Form("state")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("zip")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("email")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50, Request.Form("q[6]")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 50, Request.Form("q[8]")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 50, Request.Form("q[10]")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 50, Request.Form("q[11]")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 50, Request.Form("q[7]")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 50, now()) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 100, session.SessionID) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, 50, "N/A") ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 201, 1, 50, "Volunteer") ' adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "thankyou_volunteer.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> ACT-Today Golf Tourney

 

 

| Home | Register | Photos |Volunteer | Sponsors |

 

Putting Contest

Click on images to enlarge photos

 

 

Mail Donations and Checks to:
Attention: Daphne Plump
ACT-Today! (Autism Care and Treatment)
19019 Ventura Blvd. Suite 200
Tarzana, CA 91356
818-345-2345 xt. 270
Copyright 2008 ACT-Today!. All rights reserved.