<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim xRange, xPosition, xType ' sets the range of vehicles to present if request.querystring("range") = "" then xRange = "1979-2020" yRange = "1979-2020" else xRange = request.querystring("range") yRange = xRange end if xRange = split(xRange, "-") 'sets the position to start from if request.querystring("position") = "" then xPosition = 0 else xPosition = request.querystring("position") end if qryRides = "select rNo, rYear from tblRides where rYear >= " & cInt(xRange(0)) & " and rYear <= " & cInt(xRange(1)) & " order by rYear desc" set rsRides = oConn.execute(qryRides) dim xRides ' dimension variable to hold the array xRides = "" ' make an array of the ride numbers to iterate through in the next query while not rsRides.eof xRides = xRides & rsRides("rNo") & "\" rsRides.movenext wend 'response.write(xRides) xRides = split(xRides, "\") dim xNo, xLinks, xLinkPosition, xLinkNo xNo = 1 'counter to make sure only 10 rides are displayed per page xLinks = "" ' variable to hold the links to the other pages w/ matching request criteria xLinkNo = 1 xLinkPosition = 0 'create the links for the additional pages do until xLinkPosition >= ubound(xRides)' - 1 if cInt(xPosition) = cInt(xLinkPosition) then xLinks = xLinks & "Page " & xLinkNo & " | " xLinkNo = xLinkNo + 1 xLinkPosition = xLinkPosition + 12'10 else xLinks = xLinks & "Page " & xLinkNo & " | " xLinkNo = xLinkNo + 1 xLinkPosition = xLinkPosition + 12'10 end if loop %> Mustang Motorsports, Inc. - Customer Rides - SVT Cobra, Saleen, Rousch, GT, 5.0, 4.6, Ford Lightning

Customer Rides

MORE RIDES: <%=xLinks%> Filter Results:

<% do until xNo >= 13'11 if cInt(xPosition) >= ubound(xRides) then exit do end if qryRides = "select * from tblRides where rNo = " & xRides(xPosition) set rsRides = oConn.execute(qryRides) %>

<%=rsRides("rName")%>

" rel="lightbox" class="ride"> " width="210" class="ride" /> <% if rsRides("rPic2Thumb") <> "" then %> " rel="lightbox" class="ride"> " width="65" class="ride" /> <% end if %> <% if rsRides("rPic3Thumb") <> "" then %> " rel="lightbox" class="ride"> " width="65" class="ride" /> <% end if %> <% if rsRides("rPic4Thumb") <> "" then %> " rel="lightbox" class="ride"> " width="65" class="ride" /> <% end if %>

YEAR: <%=rsRides("rYear")%>

MODEL: <%=rsRides("rModel")%>

MODIFICATIONS: <%=rsRides("rDesc")%>

<% if xNo = 4 or xNo = 8 then %>
<% end if xNo = xNo + 1 xPosition = xPosition + 1 loop rsRides.close %>

MORE RIDES: <%=xLinks%>