<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim xVehicle, xYear, ptsNo if request.querystring("vh") = "" then xVehicle = 302 else xVehicle = request.querystring("vh") end if if request.querystring("yr") = "" then xYear = "2005-2008" else xYear = request.querystring("yr") end if if request.querystring("pts") = "" then ptsNo = 36810 else ptsNo = request.querystring("pts") end if xYear = split(xYear, "-") qryPart = "select * from tblParts inner join tblVehicles on tblParts.pVehicle = tblVehicles.vNo inner join tblPartsTypesSub on tblParts.pTypeSub = tblPartsTypesSub.ptsNo " & _ "inner join tblManufacturer on tblParts.pMan = tblManufacturer.manNo where pTypeSub = " & ptsNo & " and " & xYear(0) & " >= pMin and " & xYear(1) & " <= pMax and pVehicle = " & xVehicle & " order by pName" set rsPart = oConn.execute(qryPart) %> Mustang Motorsports - Customer Rides

Mustang Motorsports Parts Catalog " target="_parent">Detach Parts Catalog

<% if rsPart.eof then %> There are currently no parts matching your criteria. Please check back often. <%=ptsNo%> | <%=xYear(0)%>-<%=xYear(1)%> <% else while not rsPart.eof %>

" width="100" />

FITS: <%=rsPart("pMin")%>-<%=rsPart("pMax")%>

PRICE: <%=formatcurrency(rsPart("pPrice"))%>

<%=rsPart("manName")%> <%=ucase(rsPart("pName"))%>

DESCRIPTION: <%=rsPart("pDesc")%>

TO ORDER: Call 239-225-7529

<% rsPart.movenext wend end if %>

<% rsPart.close set rsPart = nothing %>