<%@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 |

 

 

ACT-TODAY! 2008 Golf Tournament Fundraiser Photographs

Monday, May 19, 2008

Click on images to view photos

 

 

Registration

Golfers began the day early with therapeutic massages, breakfast and a whole lot more!

  

 

Putting Contest

Golfers take a shot at a chance for dinner for two!

  

 

Team Photos

It was a FUN day! But don't take our word for it. Check out these candid moments!

  

 

Special Guests

Executive Director of C.A.R.D, and ACT-Today! board members meet and greet the golfers!

  

 

Dinner

Prime Rib's not the only thing that made dinner after the tournament awesome. See for yourself!

  

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.