% 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 %>
Note: This page gets updated weekly every Monday
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")) %> |
If you would like to know more about sponsorship levels and opportunities please contact us at info@ardoradventures.com