<% chedsn = Application ("dbcon") EventID = request.QueryString("EventID") rid = request.QueryString("rid") SET cn = Server.CreateObject("ADODB.Connection") 'set up the cn.Open CHEDSN 'open the connection to if rid <> "" then strSQL = "Select count(*) as Total from events where eventno=125 and eventid='" & rid &"'" else strSQL = "Select count(*) as Total from events where eventno=125" end if SET oRs = cn.Execute(strSQL) 'Execute the SQL statement Registrants = oRs("Total") oRs.close set oRs = nothing AgeGroup = request.querystring("AgeGroup") Bib = trim(request.querystring("bib")) fname = trim(request.querystring("fname")) lname = trim(request.querystring("lname")) if rid = "" or rid = 5 then strSQL = "Select * from events where eventno=125 order by lname;" else strSQL = "Select * from events where eventno=125 and eventid='" & rid & "' order by lname;" end if SET oRs = cn.Execute(strSQL) 'Execute the SQL statement Select Case rid Case 0 Select0 = "Select0" case 1 Select1 = "Selected" case 2 Select2 = "Selected" case 3 Select3 = "Selected" Case 4 Select4 = "Selected" Case 5 Select5 = "Selected" End Select %>

Newport Celebration Run

July 4, 2018

Participants, please email us at info@ardoradventures.com with any corrections to be made to the information below.

Registrations by race

Note: This page gets updated weekly every Monday


<% DO WHILE NOT oRs.EOF count = count + 1 on error resume next %> <% oRs.MoveNext Loop %>
No Name City, State Shirt Size Age Group Race
<% = count %> <% = trim(oRs.Fields("LName")) & ", " & oRs.Fields("FName") %> <% = trim(oRs.Fields("City")) & ", " & oRs("State") %> <% = ucase(oRs.Fields("ShirtDesc")) %> <% = oRs.Fields("AgeGroup") %> <% = trim(oRs.Fields("EventDesc")) %>
<% cn.Close 'Close the database connection SET cn = Nothing 'Clean up after yourself %>

If you would like to know more about sponsorship levels and opportunities please contact us at info@ardoradventures.com