<%@Language=VBScript%> Amateur Events Registration <% dim CNN, SQLStmt, StateRS, i dim ADORs dim TotHiltonProAmAM, MaxHiltonProAmAM dim TotHiltonOpenAM, MaxHiltonOpenAM dim TotSeniorProAmAMScratch, MaxSeniorProAmAMScratch Set CNN=Server.CreateObject("adodb.Connection") Set StateRS=Server.CreateObject("adodb.Recordset") Set ADORs=Server.CreateObject("adodb.Recordset") CNN.Open "dsn=icba;database=hilton;" & "UID=hiltonopen;PWD=hilton;" SQLStmt = "select * FROM States Order by StateName" Set StateRS = CNN.Execute(SQLStmt) FirstName = Request.Form("FirstName") LastName = Request.Form("LastName") StreetAddress1 = Request.Form("StreetAddress1") StreetAddress2 = Request.Form("StreetAddress2") City = Request.Form("City") State = Request.Form("State") ZipCode = Request.Form("ZipCode") EMail = Request.Form("EMail") EmailVerify = Request.Form("EmailVerify") WorkPhone = Request.Form("WorkPhone") HomePhone = Request.Form("HomePhone") USGA = Request.Form("USGA") GHIN = Request.Form("GHIN") HomeClub = Request.Form("HomeClub") ClubCity = Request.Form("ClubCity") ClubState = Request.Form("ClubState") ClubPhone = Request.Form("ClubPhone") SSProAm = Request.Form("SSProAm") SAMTour = Request.Form("SAMTour") RegSSF = Request.Form("RegSSF") RegSHF = Request.Form("RegSHF") BDM = Request.Form("BDM") BDD = Request.Form("BDD") BDY = Request.Form("BDY") HiltonPAm = Request.Form("HiltonPAm") HiltonO = Request.Form("HiltonO") ChampFlt = Request.Form("ChampFlt") Elfego = Request.Form("Elfego") CorC = Request.Form("CorC") CCNumber = Request.Form("CCNumber") EXM = Request.Form("EXM") EXY = Request.Form("EXY") CardName = Request.Form("CardName") SQLStmt = "select count(regid) TotHiltonProAmAM from Registration where RegHPA = 1 and RegPGASec is null" Set ADORs = CNN.Execute(SQLStmt) TotHiltonProAmAM = ADORs.Fields("TotHiltonProAmAM") ADORs.Close MaxHiltonProAmAM = 75 SQLStmt = "select count(regid) TotHiltonOpenAM from Registration where RegHOpen = 1 and RegPGASec is null" Set ADORs = CNN.Execute(SQLStmt) TotHiltonOpenAM = ADORs.Fields("TotHiltonOpenAM") ADORs.Close MaxHiltonOpenAM = 112 SQLStmt = "select count(regid) TotSeniorProAmAMScratch from Registration where RegSAT = 1 and RegPGASec is null and RegSSF = -1" Set ADORs = CNN.Execute(SQLStmt) TotSeniorProAmAMScratch = ADORs.Fields("TotSeniorProAmAMScratch") ADORs.Close MaxSeniorProAmAMScratch=16 %>

 

Amateur Events Registration

We're sorry, but the Hilton Open Tournament has retired.

If you need further assistance, please call the tournament coordinator at 505.835.8211

Thanks for your interest!

 

Back  Top   Home Topic Next