<% chedsn = Application ("dbcon") rid = request.QueryString("rid") if rid = "" then rid = request.form("rid") end if 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=128 and eventid='" & rid &"'" else strSQL = "Select count(*) as Total from events where eventno=128" 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 <> "" then strSQL = "Select * from events where eventno=128 and eventid='" & rid & "' order by lname;" else strSQL = "Select * from events where eventno=128 order by lname;" end if set oRs = Server.CreateObject("ADODB.Recordset") 'oRs.CursorLocation = 3 ' adUseClient oRs.Open strSQL, cn 'Execute the SQL statement 'oRs.PageSize = 20 'intPageCount = oRs.PageCount ' Select Case Request("Action") ' case "<<" ' intpage = 1 ' case "<" ' intpage = Request("intpage")-1 ' if intpage < 1 then intpage = 1 ' case ">" ' intpage = Request("intpage")+1 ' if intpage > intPageCount then intpage = IntPageCount ' Case ">>" ' intpage = intPageCount ' case else ' intpage = 1 ' end select %>


Arctic Circle Turkey Trot

Race Details

When: November 22, 2018
Start Time: 9:00 AM
Start Location: Rogue Brewery, Newport, OR

Registration Confirmations

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

2018 Registrations: All | 5K | 10K | Kids Run

<% Count = 1 Do While Not oRs.EOF 'and Count < oRs.PageSize %> <% Count = Count + 1 oRs.MoveNext Loop oRs.Close set oRs = nothing 'Loop %>
No Bib Name City Shirt Size Age Group Race
<% = count %> <% = ucase(oRs.Fields("bib")) %> <% = 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 %>