<%@LANGUAGE="VBSCRIPT"%> <% Dim rsRiders Dim rsRiders_cmd Dim rsRiders_numRows Set rsRiders_cmd = Server.CreateObject ("ADODB.Command") rsRiders_cmd.ActiveConnection = MM_connData_STRING rsRiders_cmd.CommandText = "SELECT * FROM qryRiders ORDER BY LastName ASC" rsRiders_cmd.Prepared = true Set rsRiders = rsRiders_cmd.Execute rsRiders_numRows = 0 %> <% Dim rsStages__MMColParam rsStages__MMColParam = "stage" If (Request("MM_EmptyValue") <> "") Then rsStages__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsStages Dim rsStages_cmd Dim rsStages_numRows Set rsStages_cmd = Server.CreateObject ("ADODB.Command") rsStages_cmd.ActiveConnection = MM_connData_STRING rsStages_cmd.CommandText = "SELECT * FROM tblCategories WHERE catGroup = ? ORDER BY catname ASC" rsStages_cmd.Prepared = true rsStages_cmd.Parameters.Append rsStages_cmd.CreateParameter("param1", 200, 1, 50, rsStages__MMColParam) ' adVarChar Set rsStages = rsStages_cmd.Execute rsStages_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRiders_numRows = rsRiders_numRows + Repeat1__numRows %> Peace Pedalers The World-Wide Invitation to Ride
riders route journals store sponsors media contact
 
 
hdr peace ride
About Route Riders Events Music Volunteers Sponsors

Peace Pedalers Guest Riders

View guest riders by stage here >

<% While ((Repeat1__numRows <> 0) AND (NOT rsRiders.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsRiders.MoveNext() Wend %>
Name Location Stages
    1 2 3 4 5 6

"><%=(rsRiders.Fields.Item("FirstName").Value)%> <%=(rsRiders.Fields.Item("LastName").Value)%>


<%=(rsRiders.Fields.Item("CITY-NAME").Value)%>, <%=(rsRiders.Fields.Item("STATE-NAME").Value)%> <% ' Show IF Conditional region1 If (rsRiders.Fields.Item("ppStage1").Value) <> 0 Then %> <% End If ' End Conditional region1 %> <% ' Show IF Conditional region2 If (rsRiders.Fields.Item("ppStage2").Value) <> 0 Then %> <% End If ' End Conditional region2 %> <% ' Show IF Conditional region3 If (rsRiders.Fields.Item("ppStage3").Value) <> 0 Then %> <% End If ' End Conditional region3 %> <% ' Show IF Conditional region4 If (rsRiders.Fields.Item("ppStage4").Value) <> 0 Then %> <% End If ' End Conditional region4 %> <% ' Show IF Conditional region5 If (rsRiders.Fields.Item("ppStage5").Value) <> 0 Then %> <% End If ' End Conditional region5 %> <% ' Show IF Conditional region6 If (rsRiders.Fields.Item("ppStage6").Value) <> 0 Then %> <% End If ' End Conditional region6 %>

View guest riders by stage here >


©Peace Pedalers 2001-2009

Website design by Merideth Tennant Creative Design / www.tennantdesign.com

Fast and Reliable hosting provided by Infoquest / www.infoquest.com

 
<% rsRiders.Close() Set rsRiders = Nothing %> <% rsStages.Close() Set rsStages = Nothing %>