<% ' 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 = 1252 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("match_reg2_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(26) Dim arFormDBFields0(26) Dim arFormValues0(26) arFormFields0(0) = "today's-date" arFormDBFields0(0) = "today's-date" arFormValues0(0) = Request("today's-date") arFormFields0(1) = "Contact_HomePhone" arFormDBFields0(1) = "Contact_HomePhone" arFormValues0(1) = Request("Contact_HomePhone") arFormFields0(2) = "Squad With Request" arFormDBFields0(2) = "Squad_With_Request" arFormValues0(2) = Request("Squad With Request") arFormFields0(3) = "Contact_Address2" arFormDBFields0(3) = "Contact_Address2" arFormValues0(3) = Request("Contact_Address2") arFormFields0(4) = "USPSA mbr prefix" arFormDBFields0(4) = "USPSA_mbr_prefix" arFormValues0(4) = Request("USPSA mbr prefix") arFormFields0(5) = "Contact_StreetAddress" arFormDBFields0(5) = "Contact_StreetAddress" arFormValues0(5) = Request("Contact_StreetAddress") arFormFields0(6) = "Contact_ZipCode" arFormDBFields0(6) = "Contact_ZipCode" arFormValues0(6) = Request("Contact_ZipCode") arFormFields0(7) = "Pistol Class" arFormDBFields0(7) = "Pistol_Class" arFormValues0(7) = Request("Pistol Class") arFormFields0(8) = "Rifle Power Factor" arFormDBFields0(8) = "Rifle_Power_Factor" arFormValues0(8) = Request("Rifle Power Factor") arFormFields0(9) = "Shotgun Division" arFormDBFields0(9) = "Shotgun_Division" arFormValues0(9) = Request("Shotgun Division") arFormFields0(10) = "Shotgun Power Factor" arFormDBFields0(10) = "Shotgun_Power_Factor" arFormValues0(10) = Request("Shotgun Power Factor") arFormFields0(11) = "Contact_Email" arFormDBFields0(11) = "Contact_Email" arFormValues0(11) = Request("Contact_Email") arFormFields0(12) = "Contact_FirstName" arFormDBFields0(12) = "Contact_FirstName" arFormValues0(12) = Request("Contact_FirstName") arFormFields0(13) = "Contact_City" arFormDBFields0(13) = "Contact_City" arFormValues0(13) = Request("Contact_City") arFormFields0(14) = "USPSA mbr number" arFormDBFields0(14) = "USPSA_mbr_number" arFormValues0(14) = Request("USPSA mbr number") arFormFields0(15) = "Foreign" arFormDBFields0(15) = "Foreign" arFormValues0(15) = Request("Foreign") arFormFields0(16) = "Pistol Division" arFormDBFields0(16) = "Pistol_Division" arFormValues0(16) = Request("Pistol Division") arFormFields0(17) = "Female" arFormDBFields0(17) = "Female" arFormValues0(17) = Request("Female") arFormFields0(18) = "Age" arFormDBFields0(18) = "Age" arFormValues0(18) = Request("Age") arFormFields0(19) = "Contact_LastName" arFormDBFields0(19) = "Contact_LastName" arFormValues0(19) = Request("Contact_LastName") arFormFields0(20) = "Contact_State" arFormDBFields0(20) = "Contact_State" arFormValues0(20) = Request("Contact_State") arFormFields0(21) = "Contact_WorkPhone" arFormDBFields0(21) = "Contact_WorkPhone" arFormValues0(21) = Request("Contact_WorkPhone") arFormFields0(22) = "Pistol Power Factor" arFormDBFields0(22) = "Pistol_Power_Factor" arFormValues0(22) = Request("Pistol Power Factor") arFormFields0(23) = "Enter in Rifle Match" arFormDBFields0(23) = "Enter_in_Rifle_Match" arFormValues0(23) = Request("Enter in Rifle Match") arFormFields0(24) = "Rifle Division" arFormDBFields0(24) = "Rifle_Division" arFormValues0(24) = Request("Rifle Division") arFormFields0(25) = "Enter in Shotgun Match" arFormDBFields0(25) = "Enter_in_Shotgun_Match" arFormValues0(25) = Request("Enter in Shotgun Match") 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=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "match_reg.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Match Reg-asp

Tri County Gun Club, Inc.

Polo, IL

IPSC Match Pre-Registration Form

for Sunday October 23, 2011 - 3 Gun Match

Registration Open at 8am - Shooters Meeting at 9am

This match will have 5 Pistol, 2 Rifle and 2 Shotgun stages.

We are going to use PALM Scoring this year. Please take a moment to download these demo movies so you have an idea how it works. You may be asked to operate one!

http://www.youtube.com/watch?v=BdT4PgD42JE

 http://www.youtube.com/watch?v=lNqsBcwCcwg

http://www.youtube.com/watch?v=8tFUVO_gIsI&feature=player_embedded

Remember to keep us updated with any address or email changes so we

will be able to keep you informed of our schedule.

The purpose of this page is to help eliminate the natural bottleneck at the registration desk on match day and allow us

to get the match under way a little sooner. By pre-registering we should be able to just check you in and move to the next shooter.

 Pre-registrations made after NOON October 22nd MAY not be included in the print-out.

We can take VISA or MASTERCARD for your match fees. You can pay at check in at the match.

Lunch will be provided.

If your pre-registration is successful you will get a confirmation page telling you exactly what your choice are. If for some reason you do not get a confirmation please try again. If you still have trouble please email d_hayen(at)tcgc.net

<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Dim fp_Debug fp_Debug = False Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" if fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>

  Today's date is:    -- mm/dd/yy

You must provide the following information to be properly registered in this match:

First Name
Last Name
Street Address
Address (cont.)
City
State/Province
Zip/Postal Code
Work Phone   (optional)
Home Phone
E-mail
USPSA #
Pistol Division     * Division descriptions * (click on title)
Class   
Power Factor Pistol Major = .45acp, .40S&W, .38super(open class)  Minor = 9MM
Female                           
Age
Foreign
Enter Rifle Match
Rifle Division    * Division descriptions * (click on title)
Rifle Power Factor minor = .223, 7.62X39   etc. Major = .308
Enter Shotgun Match
Shotgun Division
Shotgun Power Factor Major = 12 or 20 ga.
Try to squad me with the following people or other comments pertaining to this match registration.  

 

Copyright © 2005
Tri County Gun Club, Inc.
All rights reserved.
Revised: 11/27/11