2019 ARYA Australian Championships

RESULTS

If your browser is having problems viewing the results, try the following.

<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) eventid=274 strSQL = "SELECT eventname, eventstartdate, eventenddate, racescompleted, liveevent, resulttemplate, eventlocation, clubname, clubshortname, eventstate, events.showclub, showflag, showstate, showcountry, showdesign, showheatcode, showcompcat from events INNER JOIN clubs ON events.eventclubid = clubs.clubid where eventid = " & eventid Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open strSQL, dConn, 1, 3 eventname = eventRS("eventname") eventstartdate = eventRS("eventstartdate") eventenddate = eventRS("eventenddate") if eventstartdate <> eventenddate then eventstartdate = formatdatetime(eventstartdate,2) & " - " & formatdatetime(eventenddate,2) racescompleted = eventRS("racescompleted") liveevent = eventRS("liveevent") resulttemplate = eventRS("resulttemplate") clubname = eventRS("clubname") clubshortname = eventRS("clubshortname") eventlocation = eventRS("eventlocation") eventstate = eventRS("eventstate") showclub = eventRS("showclub") showflag = eventRS("showflag") showstate = eventRS("showstate") showcountry = eventRS("showcountry") showdesign = eventRS("showdesign") showheatcode = eventRS("showheatcode") showcompcat = eventRS("showcompcat") eventRS.close %>

<%=eventname%> - RESULTS

<% response.write "" response.write "" response.write "" if racescompleted < 26 AND showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" for m=1 to racescompleted response.write "" strSQL = "SELECT overall_results.compid, diva_pos, divb_pos, posmove, event_entries.compsailno, event_entries.compboatdesign,ttlpts from overall_results, event_entries where overall_results.eventid = " & eventid & " AND overall_results.compid=event_entries.compid ORDER BY diva_pos ASC" Set resultsRS = Server.CreateObject("ADODB.recordset") resultsRS.Open strSQL, dConn, 1, 3 do until resultsRS.eof compid = resultsRS("compid") diva_pos = resultsRS("diva_pos") divb_pos_text = resultsRS("divb_pos") compsailno = resultsRS("compsailno") compboatdesign = ucase(resultsRS("compboatdesign")) posmove = resultsRS("posmove") if resultsRS("divb_pos") = 0 then divb_pos_text = "-" ttlpts = resultsRS("ttlpts") strSQL = "SELECT * from event_entries where compid = " & compid & " AND eventid = " & eventid Set compRS = Server.CreateObject("ADODB.recordset") compRS.Open strSQL, dConn, 1, 3 compuserid = compRS("userid") compfirstname = compRS("compfirstname") compsurname = ucase(compRS("compsurname")) compclubname = ucase(compRS("compclubname")) compregcountry = ucase(compRS("compregcountry")) compclubcode = ucase(compRS("compclubcode")) compstate = ucase(compRS("compstate")) compcat = ucase(compRS("compcat")) compRS.close if compuserid <> 0 or session("userid") = "" then showlock = "N" else showlock = "Y" end if 'if len(clubstate) > 0 then clubstate = "(" & clubstate & ")" if showcountry = "No" then compregcountry = "" flagfile = compstate %> <% j=0 resultdisplay = "" if racescompleted > 0 then grosspoints=0 set raceRS = Server.CreateObject("ADODB.RecordSet") raceSQL = "SELECT * from racedata where compid = " & compid & " AND eventid = " & eventid & " ORDER BY raceno ASC;" raceRS.Open raceSQL,dConn, 1,3 racerecordcount = raceRS.recordcount do until raceRS.eof j=j+1 racepts = raceRS("racepts") disgard = raceRS("disgard") racecode = raceRS("racecode") if showheatcode <> "Yes" then racecode = "" if racecode <> "" then racecode = "
" & racecode grosspoints = grosspoints + racepts if disgard = "N" then resultdisplay = resultdisplay & "" else resultdisplay = resultdisplay & "" end if raceRS.movenext loop raceRS.close set raceRS = Nothing else 'resultdisplay = resultdisplay & "" end if response.write "" response.write "" if racescompleted < 33 AND showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showstate = "Yes" AND showflag <> "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" response.write resultdisplay resultsRS.movenext loop resultsRS.close if resultcount = "0" then response.write "" rowcount = 8 + racescompleted if racescompleted < 26 then rowcount = rowcount -2 if showflag = "Yes" then rowcount = rowcount +1 if showclub = "Yes" then rowcount = rowcount +1 if showcountry = "Yes" then rowcount = rowcount +1 if showcountry <> "Yes" then rowcount = rowcount +1 if showdesign = "Yes" then rowcount = rowcount +1 response.write "" response.write "" %>

	Pos	Name	State/Nat.		Sail No	Sail No	Design	Nett	Tot	R" & m & "" next response.write "
" & FormatNumber(racepts,1) & racecode & "	(" & FormatNumber(racepts,1) & ")" & racecode & "	-	" & diva_pos & "	" & compsurname & ", " & compfirstname & "	" & compcat & "	" & compstate & "	" & compclubcode & "	" & compstate & "	" & compregcountry & " " & compsailno & "	" & compsailno & "	" & compboatdesign & "	" & FormatNumber(ttlpts,1) & "	" & FormatNumber(grosspoints,1) & "
We do not have any entries for this event.
Cat: (O) Open Division, (M) Master, (GM) Grand Master, (JUN) Junior

<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) eventid=272 strSQL = "SELECT eventname, eventstartdate, eventenddate, racescompleted, liveevent, resulttemplate, eventlocation, clubname, clubshortname, eventstate, events.showclub, showflag, showstate, showcountry, showdesign, showheatcode, showcompcat from events INNER JOIN clubs ON events.eventclubid = clubs.clubid where eventid = " & eventid Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open strSQL, dConn, 1, 3 eventname = eventRS("eventname") eventstartdate = eventRS("eventstartdate") eventenddate = eventRS("eventenddate") if eventstartdate <> eventenddate then eventstartdate = formatdatetime(eventstartdate,2) & " - " & formatdatetime(eventenddate,2) racescompleted = eventRS("racescompleted") liveevent = eventRS("liveevent") resulttemplate = eventRS("resulttemplate") clubname = eventRS("clubname") clubshortname = eventRS("clubshortname") eventlocation = eventRS("eventlocation") eventstate = eventRS("eventstate") showclub = eventRS("showclub") showflag = eventRS("showflag") showstate = eventRS("showstate") showcountry = eventRS("showcountry") showdesign = eventRS("showdesign") showheatcode = eventRS("showheatcode") showcompcat = eventRS("showcompcat") eventRS.close %>

<%=eventname%> - RESULTS

<% response.write "" response.write "" response.write "" if racescompleted < 26 AND showcompcat="Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" for m=1 to racescompleted response.write "" strSQL = "SELECT overall_results.compid, diva_pos, divb_pos, posmove, event_entries.compsailno, event_entries.compboatdesign,ttlpts from overall_results, event_entries where overall_results.eventid = " & eventid & " AND overall_results.compid=event_entries.compid ORDER BY diva_pos ASC" Set resultsRS = Server.CreateObject("ADODB.recordset") resultsRS.Open strSQL, dConn, 1, 3 do until resultsRS.eof compid = resultsRS("compid") diva_pos = resultsRS("diva_pos") divb_pos_text = resultsRS("divb_pos") compsailno = resultsRS("compsailno") compboatdesign = ucase(resultsRS("compboatdesign")) posmove = resultsRS("posmove") if resultsRS("divb_pos") = 0 then divb_pos_text = "-" ttlpts = resultsRS("ttlpts") strSQL = "SELECT * from event_entries where compid = " & compid & " AND eventid = " & eventid Set compRS = Server.CreateObject("ADODB.recordset") compRS.Open strSQL, dConn, 1, 3 compuserid = compRS("userid") compfirstname = compRS("compfirstname") compsurname = ucase(compRS("compsurname")) compclubname = ucase(compRS("compclubname")) compregcountry = ucase(compRS("compregcountry")) compclubcode = ucase(compRS("compclubcode")) compstate = ucase(compRS("compstate")) compcat = ucase(compRS("compcat")) compRS.close if compuserid <> 0 or session("userid") = "" then showlock = "N" else showlock = "Y" end if 'if len(clubstate) > 0 then clubstate = "(" & clubstate & ")" if showcountry = "No" then compregcountry = "" flagfile = compstate %> <% j=0 resultdisplay = "" if racescompleted > 0 then grosspoints=0 set raceRS = Server.CreateObject("ADODB.RecordSet") raceSQL = "SELECT * from racedata where compid = " & compid & " AND eventid = " & eventid & " ORDER BY raceno ASC;" raceRS.Open raceSQL,dConn, 1,3 racerecordcount = raceRS.recordcount do until raceRS.eof j=j+1 racepts = raceRS("racepts") disgard = raceRS("disgard") racecode = raceRS("racecode") if showheatcode <> "Yes" then racecode = "" if racecode <> "" then racecode = "
" & racecode grosspoints = grosspoints + racepts if disgard = "N" then resultdisplay = resultdisplay & "" else resultdisplay = resultdisplay & "" end if raceRS.movenext loop raceRS.close set raceRS = Nothing else 'resultdisplay = resultdisplay & "" end if row = row + 1 if row = 3 then row =1 response.write "" response.write "" if racescompleted < 33 AND showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showstate = "Yes" AND showflag <> "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" response.write resultdisplay resultsRS.movenext loop resultsRS.close if resultcount = "0" then response.write "" rowcount = 8 + racescompleted if racescompleted < 26 then rowcount = rowcount -2 if showflag = "Yes" then rowcount = rowcount +1 if showclub = "Yes" then rowcount = rowcount +1 if showcountry = "Yes" then rowcount = rowcount +1 if showcountry <> "Yes" then rowcount = rowcount +1 if showdesign = "Yes" then rowcount = rowcount +1 response.write "" response.write "" %>

	Pos	Name	State/Nat.		Sail No	Sail No	Design	Nett	Tot	R" & m & "" next response.write "
" & FormatNumber(racepts,1) & racecode & "	(" & FormatNumber(racepts,1) & ")" & racecode & "	-	" & diva_pos & "	" & compsurname & ", " & compfirstname & "	" & compcat & "	" & compstate & "	" & compclubcode & "	" & compstate & "	" & compregcountry & " " & compsailno & "	" & compsailno & "	" & compboatdesign & "	" & FormatNumber(ttlpts,1) & "	" & FormatNumber(grosspoints,1) & "
We do not have any entries for this event.
Cat: (O) Open Division, (M) Master, (GM) Grand Master, (JUN) Junior

<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) eventid=273 strSQL = "SELECT eventname, eventstartdate, eventenddate, racescompleted, liveevent, resulttemplate, eventlocation, clubname, clubshortname, eventstate, events.showclub, showflag, showstate, showcountry, showdesign, showheatcode, showcompcat from events INNER JOIN clubs ON events.eventclubid = clubs.clubid where eventid = " & eventid Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open strSQL, dConn, 1, 3 eventname = eventRS("eventname") eventstartdate = eventRS("eventstartdate") eventenddate = eventRS("eventenddate") if eventstartdate <> eventenddate then eventstartdate = formatdatetime(eventstartdate,2) & " - " & formatdatetime(eventenddate,2) racescompleted = eventRS("racescompleted") liveevent = eventRS("liveevent") resulttemplate = eventRS("resulttemplate") clubname = eventRS("clubname") clubshortname = eventRS("clubshortname") eventlocation = eventRS("eventlocation") eventstate = eventRS("eventstate") showclub = eventRS("showclub") showflag = eventRS("showflag") showstate = eventRS("showstate") showcountry = eventRS("showcountry") showdesign = eventRS("showdesign") showheatcode = eventRS("showheatcode") showcompcat = eventRS("showcompcat") eventRS.close %>

<%=eventname%> - RESULTS

<% response.write "" response.write "" response.write "" if racescompleted < 33 and showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" for m=1 to racescompleted response.write "" strSQL = "SELECT overall_results.compid, diva_pos, divb_pos, posmove, event_entries.compsailno, event_entries.compboatdesign,ttlpts from overall_results, event_entries where overall_results.eventid = " & eventid & " AND overall_results.compid=event_entries.compid ORDER BY diva_pos ASC" Set resultsRS = Server.CreateObject("ADODB.recordset") resultsRS.Open strSQL, dConn, 1, 3 do until resultsRS.eof compid = resultsRS("compid") diva_pos = resultsRS("diva_pos") divb_pos_text = resultsRS("divb_pos") compsailno = resultsRS("compsailno") compboatdesign = ucase(resultsRS("compboatdesign")) posmove = resultsRS("posmove") if resultsRS("divb_pos") = 0 then divb_pos_text = "-" ttlpts = resultsRS("ttlpts") strSQL = "SELECT * from event_entries where compid = " & compid & " AND eventid = " & eventid Set compRS = Server.CreateObject("ADODB.recordset") compRS.Open strSQL, dConn, 1, 3 compuserid = compRS("userid") compfirstname = compRS("compfirstname") compsurname = ucase(compRS("compsurname")) compclubname = ucase(compRS("compclubname")) compregcountry = ucase(compRS("compregcountry")) compclubcode = ucase(compRS("compclubcode")) compstate = ucase(compRS("compstate")) compcat = ucase(compRS("compcat")) compRS.close if compuserid <> 0 or session("userid") = "" then showlock = "N" else showlock = "Y" end if 'if len(clubstate) > 0 then clubstate = "(" & clubstate & ")" if showcountry = "No" then compregcountry = "" flagfile = compstate ' %> <% j=0 resultdisplay = "" if racescompleted > 0 then grosspoints=0 set raceRS = Server.CreateObject("ADODB.RecordSet") raceSQL = "SELECT * from racedata where compid = " & compid & " AND eventid = " & eventid & " ORDER BY raceno ASC;" raceRS.Open raceSQL,dConn, 1,3 racerecordcount = raceRS.recordcount do until raceRS.eof j=j+1 racepts = raceRS("racepts") disgard = raceRS("disgard") racecode = raceRS("racecode") if showheatcode <> "Yes" then racecode = "" if racecode <> "" then racecode = "
" & racecode grosspoints = grosspoints + racepts if disgard = "N" then resultdisplay = resultdisplay & "" else resultdisplay = resultdisplay & "" end if raceRS.movenext loop raceRS.close set raceRS = Nothing else 'resultdisplay = resultdisplay & "" end if row = row + 1 if row = 3 then row =1 response.write "" response.write "" if racescompleted < 33 AND showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showstate = "Yes" AND showflag <> "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" response.write resultdisplay resultsRS.movenext loop resultsRS.close if resultcount = "0" then response.write "" rowcount = 8 + racescompleted if racescompleted < 26 then rowcount = rowcount -2 if showflag = "Yes" then rowcount = rowcount +1 if showclub = "Yes" then rowcount = rowcount +1 if showcountry = "Yes" then rowcount = rowcount +1 if showcountry <> "Yes" then rowcount = rowcount +1 if showdesign = "Yes" then rowcount = rowcount +1 response.write "" response.write "" %>

	Pos	Name	State/Nat.		Sail No	Sail No	Design	Nett	Tot	R" & m & "" next response.write "
" & FormatNumber(racepts,1) & racecode & "	(" & FormatNumber(racepts,1) & ")" & racecode & "	-	" & diva_pos & "	" & compsurname & ", " & compfirstname & "	" & compcat & "	" & compstate & "	" & compclubcode & "	" & compstate & "	" & compregcountry & " " & compsailno & "	" & compsailno & "	" & compboatdesign & "	" & FormatNumber(ttlpts,1) & "	" & FormatNumber(grosspoints,1) & "
We do not have any entries for this event.
Cat: (O) Open Division, (M) Master, (GM) Grand Master, (JUN) Junior

<% 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dconn = Server.CreateObject("ADODB.Connection") dConn.Open(sconnection) eventid=271 strSQL = "SELECT eventname, eventstartdate, eventenddate, racescompleted, liveevent, resulttemplate, eventlocation, clubname, clubshortname, eventstate, events.showclub, showflag, showstate, showcountry, showdesign, showheatcode, showcompcat, showcompcat from events INNER JOIN clubs ON events.eventclubid = clubs.clubid where eventid = " & eventid Set eventRS = Server.CreateObject("ADODB.recordset") eventRS.Open strSQL, dConn, 1, 3 eventname = eventRS("eventname") eventstartdate = eventRS("eventstartdate") eventenddate = eventRS("eventenddate") if eventstartdate <> eventenddate then eventstartdate = formatdatetime(eventstartdate,2) & " - " & formatdatetime(eventenddate,2) racescompleted = eventRS("racescompleted") liveevent = eventRS("liveevent") resulttemplate = eventRS("resulttemplate") clubname = eventRS("clubname") clubshortname = eventRS("clubshortname") eventlocation = eventRS("eventlocation") eventstate = eventRS("eventstate") showclub = eventRS("showclub") showflag = eventRS("showflag") showstate = eventRS("showstate") showcountry = eventRS("showcountry") showdesign = eventRS("showdesign") showheatcode = eventRS("showheatcode") showcompcat = eventRS("showcompcat") eventRS.close %>

<%=eventname%> - RESULTS

<% response.write "" response.write "" response.write "" if racescompleted < 33 and showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" for m=1 to racescompleted response.write "" strSQL = "SELECT overall_results.compid, diva_pos, divb_pos, posmove, event_entries.compsailno, event_entries.compboatdesign,ttlpts from overall_results, event_entries where overall_results.eventid = " & eventid & " AND overall_results.compid=event_entries.compid ORDER BY diva_pos ASC" Set resultsRS = Server.CreateObject("ADODB.recordset") resultsRS.Open strSQL, dConn, 1, 3 do until resultsRS.eof compid = resultsRS("compid") diva_pos = resultsRS("diva_pos") divb_pos_text = resultsRS("divb_pos") compsailno = resultsRS("compsailno") compboatdesign = ucase(resultsRS("compboatdesign")) posmove = resultsRS("posmove") if resultsRS("divb_pos") = 0 then divb_pos_text = "-" ttlpts = resultsRS("ttlpts") strSQL = "SELECT * from event_entries where compid = " & compid & " AND eventid = " & eventid Set compRS = Server.CreateObject("ADODB.recordset") compRS.Open strSQL, dConn, 1, 3 compuserid = compRS("userid") compfirstname = compRS("compfirstname") compsurname = ucase(compRS("compsurname")) compclubname = ucase(compRS("compclubname")) compregcountry = ucase(compRS("compregcountry")) compclubcode = ucase(compRS("compclubcode")) compstate = ucase(compRS("compstate")) compcat = ucase(compRS("compcat")) compRS.close if compuserid <> 0 or session("userid") = "" then showlock = "N" else showlock = "Y" end if 'if len(clubstate) > 0 then clubstate = "(" & clubstate & ")" if showcountry = "No" then compregcountry = "" flagfile = compstate %> <% j=0 resultdisplay = "" if racescompleted > 0 then grosspoints=0 set raceRS = Server.CreateObject("ADODB.RecordSet") raceSQL = "SELECT * from racedata where compid = " & compid & " AND eventid = " & eventid & " ORDER BY raceno ASC;" raceRS.Open raceSQL,dConn, 1,3 racerecordcount = raceRS.recordcount do until raceRS.eof j=j+1 racepts = raceRS("racepts") disgard = raceRS("disgard") racecode = raceRS("racecode") if showheatcode <> "Yes" then racecode = "" if racecode <> "" then racecode = "
" & racecode grosspoints = grosspoints + racepts if disgard = "N" then resultdisplay = resultdisplay & "" else resultdisplay = resultdisplay & "" end if raceRS.movenext loop raceRS.close set raceRS = Nothing else 'resultdisplay = resultdisplay & "" end if row = row + 1 if row = 3 then row =1 response.write "" response.write "" if racescompleted < 33 AND showcompcat = "Yes" then response.write "" if showflag = "Yes" then response.write "" if showclub = "Yes" then response.write "" if showstate = "Yes" AND showflag <> "Yes" then response.write "" if showcountry = "Yes" then response.write "" if showcountry <> "Yes" then response.write "" if showdesign = "Yes" then response.write "" response.write "" if racescompleted < 26 then response.write "" response.write resultdisplay resultsRS.movenext loop resultsRS.close if resultcount = "0" then response.write "" rowcount = 8 + racescompleted if racescompleted < 26 then rowcount = rowcount -2 if showflag = "Yes" then rowcount = rowcount +1 if showclub = "Yes" then rowcount = rowcount +1 if showcountry = "Yes" then rowcount = rowcount +1 if showcountry <> "Yes" then rowcount = rowcount +1 if showdesign = "Yes" then rowcount = rowcount +1 response.write "" response.write "" %>

	Pos	Name	State/Nat.		Sail No	Sail No	Design	Nett	Tot	R" & m & "" next response.write "
" & FormatNumber(racepts,1) & racecode & "	(" & FormatNumber(racepts,1) & ")" & racecode & "	-	" & diva_pos & "	" & compsurname & ", " & compfirstname & "	" & compcat & "	" & compstate & "	" & compclubcode & "	" & compstate & "	" & compregcountry & " " & compsailno & "	" & compsailno & "	" & compboatdesign & "	" & FormatNumber(ttlpts,1) & "	" & FormatNumber(grosspoints,1) & "
We do not have any entries for this event.
Cat: (O) Open Division, (M) Master, (GM) Grand Master, (JUN) Junior