<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 65001 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Reg_Form_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(25) Dim arFormDBFields0(25) Dim arFormValues0(25) arFormFields0(0) = "txtAddress" arFormDBFields0(0) = "txtAddress" arFormValues0(0) = Request("txtAddress") arFormFields0(1) = "txtCity" arFormDBFields0(1) = "txtCity" arFormValues0(1) = Request("txtCity") arFormFields0(2) = "txtEmail" arFormDBFields0(2) = "txtEmail" arFormValues0(2) = Request("txtEmail") arFormFields0(3) = "txtZip" arFormDBFields0(3) = "txtZip" arFormValues0(3) = Request("txtZip") arFormFields0(4) = "txtAgeGroup" arFormDBFields0(4) = "txtAgeGroup" arFormValues0(4) = Request("txtAgeGroup") arFormFields0(5) = "cczip0" arFormDBFields0(5) = "cczip0" arFormValues0(5) = Request("cczip0") arFormFields0(6) = "txtHomePh" arFormDBFields0(6) = "txtHomePh" arFormValues0(6) = Request("txtHomePh") arFormFields0(7) = "txtState" arFormDBFields0(7) = "txtState" arFormValues0(7) = Request("txtState") arFormFields0(8) = "txtTeamName" arFormDBFields0(8) = "txtTeamName" arFormValues0(8) = Request("txtTeamName") arFormFields0(9) = "txtWorkPh" arFormDBFields0(9) = "txtWorkPh" arFormValues0(9) = Request("txtWorkPh") arFormFields0(10) = "txtCellPh" arFormDBFields0(10) = "txtCellPh" arFormValues0(10) = Request("txtCellPh") arFormFields0(11) = "Fall_Tournaments0" arFormDBFields0(11) = "Fall_Tournaments0" arFormValues0(11) = Request("Fall_Tournaments0") arFormFields0(12) = "Fall_Tournaments1" arFormDBFields0(12) = "Fall_Tournaments1" arFormValues0(12) = Request("Fall_Tournaments1") arFormFields0(13) = "cczip" arFormDBFields0(13) = "cczip" arFormValues0(13) = Request("cczip") arFormFields0(14) = "Fall_Tournaments4" arFormDBFields0(14) = "Fall_Tournaments4" arFormValues0(14) = Request("Fall_Tournaments4") arFormFields0(15) = "Fall_Tournaments5" arFormDBFields0(15) = "Fall_Tournaments5" arFormValues0(15) = Request("Fall_Tournaments5") arFormFields0(16) = "ccname" arFormDBFields0(16) = "ccname" arFormValues0(16) = Request("ccname") arFormFields0(17) = "txtFax" arFormDBFields0(17) = "txtFax" arFormValues0(17) = Request("txtFax") arFormFields0(18) = "ccyear" arFormDBFields0(18) = "ccyear" arFormValues0(18) = Request("ccyear") arFormFields0(19) = "ccamount" arFormDBFields0(19) = "ccamount" arFormValues0(19) = Request("ccamount") arFormFields0(20) = "ccmonth" arFormDBFields0(20) = "ccmonth" arFormValues0(20) = Request("ccmonth") arFormFields0(21) = "txtComments" arFormDBFields0(21) = "txtComments" arFormValues0(21) = Request("txtComments") arFormFields0(22) = "Gender" arFormDBFields0(22) = "Gender" arFormValues0(22) = Request("Gender") arFormFields0(23) = "txtCoach" arFormDBFields0(23) = "txtCoach" arFormValues0(23) = Request("txtCoach") arFormFields0(24) = "ccnumber" arFormDBFields0(24) = "ccnumber" arFormValues0(24) = Request("ccnumber") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=utf-8",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "Reg_Form.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Services
 
themed image
 
   

Tournament Team   

Tournament Team Try-Outs November 11th at 7 pm for boys and girls grades 3rd thru 8th. All games, practices and clinics are played at The Hoop Salem.

 


 

 

 

Online Registration

Team Information

Team Name:  
Address:  
State:  
Work Phone:  
Cell Phone:  
Email Address:  
Tournaments Entering:  
Tournaments Entering:  
Team Gender:  
Coach/Contact:
City:
Zip Code:
Home Phone:
Fax:
Age Group/Grade:

Payment Information

Card Number:   Only
Name On Card:
Expiration Date:
Payment Amount: $200 per tournament
Numbers on the Back: Last 4 Digits
Billing Zip: 5 Digits
Questions/Comments/Scheduling Request