REGISTERED COMPETITORS

INTERNATIONAL ONE METRE - REGISTERED COMPETITORS


<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) countSQL = "SELECT COUNT(*) AS resultcount FROM event_entries where eventid=274" strSQL = "SELECT * from event_entries where eventid=274 ORDER BY compsurname ASC" Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open countSQL, dConn, 1, 3 resultcount = eventRS("resultcount") eventRS.Close if resultcount <> "0" then eventRS.Open strSQL, dConn, 1, 3 data = eventRS.GetRows() iRecFirst = LBound(data, 1) iRecLast = UBound(data, 2) eventRS.Close Set eventRS = Nothing end if if resultcount <> "0" then For I = iRecFirst To iRecLast compid = data(0,I) eventid = data(1,I) userid = data(2,I) compfirstname = data(3,I) compsurname = data(4,I) compstate = data(8,I) compclubname = data(13,I) compclubcode = data(15,I) regcountry = data(16,I) regno = data(17,I) regsailno = data(18,I) regdesign = data(19,I) comppn = data(24,I) compstateflag = compstate 'if compstate = "SA" then compstateflag = "asa" if regcountry = "USA" then compstateflag = "usa" if regcountry = "NZL" then compstateflag = "nzl" if regcountry = "SGP" then compstateflag = "sgp" Set countRS = Server.CreateObject("ADODB.recordset") countSQL = "SELECT COUNT(*) AS recordcount from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " countRS.Open countSQL, dConn, 1, 3 recordcount = countRS("recordcount") countRS.close set countRS=nothing strSQL = "SELECT * from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " Set clubRS = Server.CreateObject("ADODB.recordset") clubRS.Open strSQL, dConn, 1, 3 if recordcount <> "0" then compclubcode = clubRS("clubwebname") end if clubRS.Close Set clubRS = Nothing response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" next end if if resultcount = "0" then response.write "" %>
Name State/Country Club Reg No. Sail No. Design
" & i +1 & "." & ucase(compsurname) & ", " & compfirstname & "" response.write "  " & compstate & "" & compclubcode & "" & regcountry & " " & regno & "" & regsailno if comppn = "on" then response.write "   Personal No." response.write "" & regdesign & "
We do not have any entries for this event.
Personal No. Denotes Personal No.


INTERNATIONAL TEN RATER - REGISTERED COMPETITORS


<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) countSQL = "SELECT COUNT(*) AS resultcount FROM event_entries where eventid=272" strSQL = "SELECT * from event_entries where eventid=272 ORDER BY compsurname ASC" Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open countSQL, dConn, 1, 3 resultcount = eventRS("resultcount") eventRS.Close if resultcount <> "0" then eventRS.Open strSQL, dConn, 1, 3 data = eventRS.GetRows() iRecFirst = LBound(data, 1) iRecLast = UBound(data, 2) eventRS.Close Set eventRS = Nothing end if if resultcount <> "0" then For I = iRecFirst To iRecLast compid = data(0,I) eventid = data(1,I) userid = data(2,I) compfirstname = data(3,I) compsurname = data(4,I) compstate = data(8,I) compclubname = data(13,I) compclubcode = data(15,I) regcountry = data(16,I) regno = data(17,I) regsailno = data(18,I) regdesign = data(19,I) comppn = data(24,I) compstateflag = compstate 'if compstate = "SA" then compstateflag = "asa" if regcountry = "USA" then compstateflag = "usa" if regcountry = "NZL" then compstateflag = "nzl" if regcountry = "SGP" then compstateflag = "sgp" Set countRS = Server.CreateObject("ADODB.recordset") countSQL = "SELECT COUNT(*) AS recordcount from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " countRS.Open countSQL, dConn, 1, 3 recordcount = countRS("recordcount") countRS.close set countRS=nothing strSQL = "SELECT * from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " Set clubRS = Server.CreateObject("ADODB.recordset") clubRS.Open strSQL, dConn, 1, 3 if recordcount <> "0" then compclubcode = clubRS("clubwebname") end if clubRS.Close Set clubRS = Nothing response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" next end if if resultcount = "0" then response.write "" %>
Name State/Country Club Reg No. Sail No. Design
" & i +1 & "." & ucase(compsurname) & ", " & compfirstname & "" response.write "  " & compstate & "" & compclubcode & "" & regcountry & " " & regno & "" & regsailno if comppn = "on" then response.write "   Personal No." response.write "" & regdesign & "
We do not have any entries for this event.
Personal No. Denotes Personal No.


INTERNATIONAL MARBLEHEAD - REGISTERED COMPETITORS


<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) countSQL = "SELECT COUNT(*) AS resultcount FROM event_entries where eventid=273" strSQL = "SELECT * from event_entries where eventid=273 ORDER BY compsurname ASC" Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open countSQL, dConn, 1, 3 resultcount = eventRS("resultcount") eventRS.Close if resultcount <> "0" then eventRS.Open strSQL, dConn, 1, 3 data = eventRS.GetRows() iRecFirst = LBound(data, 1) iRecLast = UBound(data, 2) eventRS.Close Set eventRS = Nothing end if if resultcount <> "0" then For I = iRecFirst To iRecLast compid = data(0,I) eventid = data(1,I) userid = data(2,I) compfirstname = data(3,I) compsurname = data(4,I) compstate = data(8,I) compclubname = data(13,I) compclubcode = data(15,I) regcountry = data(16,I) regno = data(17,I) regsailno = data(18,I) regdesign = data(19,I) comppn = data(24,I) compstateflag = compstate 'if compstate = "SA" then compstateflag = "asa" if regcountry = "USA" then compstateflag = "usa" if regcountry = "NZL" then compstateflag = "nzl" if regcountry = "SGP" then compstateflag = "sgp" Set countRS = Server.CreateObject("ADODB.recordset") countSQL = "SELECT COUNT(*) AS recordcount from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " countRS.Open countSQL, dConn, 1, 3 recordcount = countRS("recordcount") countRS.close set countRS=nothing strSQL = "SELECT * from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " Set clubRS = Server.CreateObject("ADODB.recordset") clubRS.Open strSQL, dConn, 1, 3 if recordcount <> "0" then compclubcode = clubRS("clubwebname") end if clubRS.Close Set clubRS = Nothing response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" next end if if resultcount = "0" then response.write "" %>
Name State/Country Club Reg No. Sail No. Design
" & i +1 & "." & ucase(compsurname) & ", " & compfirstname & "" response.write "  " & compstate & "" & compclubcode & "" & regcountry & " " & regno & "" & regsailno if comppn = "on" then response.write "   Personal No." response.write "" & regdesign & "
We do not have any entries for this event.
Personal No. Denotes Personal No.


INTERNATIONAL A CLASS - REGISTERED COMPETITORS


<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) countSQL = "SELECT COUNT(*) AS resultcount FROM event_entries where eventid=271" strSQL = "SELECT * from event_entries where eventid=271 ORDER BY compsurname ASC" Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open countSQL, dConn, 1, 3 resultcount = eventRS("resultcount") eventRS.Close if resultcount <> "0" then eventRS.Open strSQL, dConn, 1, 3 data = eventRS.GetRows() iRecFirst = LBound(data, 1) iRecLast = UBound(data, 2) eventRS.Close Set eventRS = Nothing end if if resultcount <> "0" then For I = iRecFirst To iRecLast compid = data(0,I) eventid = data(1,I) userid = data(2,I) compfirstname = data(3,I) compsurname = data(4,I) compstate = data(8,I) compclubname = data(13,I) compclubcode = data(15,I) regcountry = data(16,I) regno = data(17,I) regsailno = data(18,I) regdesign = data(19,I) comppn = data(24,I) compstateflag = compstate 'if compstate = "SA" then compstateflag = "asa" if regcountry = "USA" then compstateflag = "usa" if regcountry = "NZL" then compstateflag = "nzl" if regcountry = "SGP" then compstateflag = "sgp" Set countRS = Server.CreateObject("ADODB.recordset") countSQL = "SELECT COUNT(*) AS recordcount from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " countRS.Open countSQL, dConn, 1, 3 recordcount = countRS("recordcount") countRS.close set countRS=nothing strSQL = "SELECT * from clubs where clubname like '" & ltrim(left(compclubname,8)) & "%' " Set clubRS = Server.CreateObject("ADODB.recordset") clubRS.Open strSQL, dConn, 1, 3 if recordcount <> "0" then compclubcode = clubRS("clubwebname") end if clubRS.Close Set clubRS = Nothing response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" next end if if resultcount = "0" then response.write "" %>
Name State/Country Club Reg No. Sail No. Design
" & i +1 & "." & ucase(compsurname) & ", " & compfirstname & "" response.write "  " & compstate & "" & compclubcode & "" & regcountry & " " & regno & "" & regsailno if comppn = "on" then response.write "   Personal No." response.write "" & regdesign & "
We do not have any entries for this event.
Personal No. Denotes Personal No.


Copyright © 2018 mySailingResults.com - All Rights Reserved.