% 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 %>
When: November 22, 2018
Start Time: 9:00 AM
Start Location:
Rogue Brewery, Newport, OR
2018 Registrations: All | 5K | 10K | Kids Run
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")) %> |