<%@Language=VBScript%> Professional Events Registration <% dim CNN, SQLStmt, StateRS, i, ADORs dim TotSeniorPro, MaxSeniorPro dim TotHiltonOpenPro, MaxHiltonOpenPro dim TotHiltonProAmPRO, MaxHiltonProAmPRO 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") SSN = Request.Form("SSN") PEmployer = Request.Form("PEmployer") PECity = Request.Form("PECity") PEState = Request.Form("PEState") PEZip = Request.Form("PEZip") PGASecChap = Request.Form("PGASecChap") SSProAm = Request.Form("SSProAm") SPro = Request.Form("SPro") BDM = Request.Form("BDM") BDD = Request.Form("BDD") BDY = Request.Form("BDY") HiltonPAm = Request.Form("HiltonPAm") HiltonO = Request.Form("HiltonO") UPro = Request.Form("UPro") CorC = Request.Form("CorC") CCNumber = Request.Form("CCNumber") EXM = Request.Form("EXM") EXY = Request.Form("EXY") CardName = Request.Form("CardName") SQLStmt = "select count(regid) TotSeniorPro from Registration where RegSPT = 1" Set ADORs = CNN.Execute(SQLStmt) TotSeniorPro = ADORs.Fields("TotSeniorPro") ADORs.Close MaxSeniorPro=44 SQLStmt = "select count(regid) TotHiltonOpenPro from Registration where RegHOpen = 1 and not RegPGASec is null" Set ADORs = CNN.Execute(SQLStmt) TotHiltonOpenPro = ADORs.Fields("TotHiltonOpenPro") ADORs.Close MaxHiltonOpenPro=60 SQLStmt = "select count(regid) TotHiltonProAmPRO from Registration where RegHPA = 1 and not RegPGASec is null" Set ADORs = CNN.Execute(SQLStmt) TotHiltonProAmPRO = ADORs.Fields("TotHiltonProAmPRO") ADORs.Close MaxHiltonProAmPRO = 25 %>

 

Professional Events Registration

 

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

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

Thanks for your interest!

 

Back  Top   Home Topic Next