<% '------------- Mainline processing ----------------------------------------- response.write vbCrlf & FormatHeader("Entry List", "", "") response.write FormatTableStart("","") Call OpenDBConnect strSQL = "SELECT events, skipperlastname, skipperfirstname, crewlastname, crewfirstname, skipperisafid, crewisafid, countryrep " _ & " FROM tblEntry WHERE eventid = " & SQLStr(gblSite) & " ORDER BY countryrep, skipperlastname, skipperfirstname " Set rs = objConnect.Execute(strSQL) blnLineOne = True intCount = 0 while not rs.EOF intCount = intCount + 1 if intCount = 1 then DoHeadings End if response.write(vbCrlf & "") if rs("skipperisafid") & "" = "" then pfx = "" sfx = "" else pfx = "" sfx = "" end if response.write(vbCrlf & " " & pfx & rs("skipperfirstname") & " " & rs("skipperlastname") & sfx & "") if rs("crewisafid") & "" = "" then pfx = "" sfx = "" else pfx = "" sfx = "" end if response.write(vbCrlf & " " & pfx & rs("crewfirstname") & " " & rs("crewlastname") & sfx & "") response.write(vbCrlf & " " & rs("countryrep") & "") response.write(vbCrlf & " " & rs("events") & "") rs.movenext wend if intCount = 0 then Session("Msg") = "There are currently no competitors entered" DoHeadings End if Call CloseDbConnect response.write FormatTableEnd response.write "

Number of competitors: " & intCount & "" response.write FormatFooter '----------------------------- Sub DoHeadings response.write(vbCrlf & "") response.write(vbCrlf & " Skipper") response.write(vbCrlf & " Crew") response.write(vbCrlf & " Country") response.write(vbCrlf & " Events") ' response.write(vbCrlf & "Action") response.write(vbCrlf & "") end sub %>