<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim fArray fArray = "1979-2008,302/2005-2008,302/1999-2004,302/1994-1998,302/1979-1993,302/1999-2003,303" fArray = split(fArray, "/") '-------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------- 'get the main category for parts dim xMain xMain = "" qryMain = "select * from tblPartsTypes where ptNo <> 2309 order by ptName" set rsMain = oConn.execute(qryMain) while not rsMain.eof xMain = xMain & rsMain("ptNo") & "," & rsMain("ptName") & "\" rsMain.movenext wend rsMain.close set rsMain = nothing xMain = split(xMain, "\") 'create the array '-------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------- ' get the selected parts dim vh, yr, pts dim xVehicle, xYear, ptsNo if request.querystring("vh") = "" then xVehicle = 302 vh = 302 else xVehicle = request.querystring("vh") vh = request.querystring("vh") end if if request.querystring("yr") = "" then xYear = "1979-2008" yr = "1979-2008" else xYear = request.querystring("yr") yr = request.querystring("yr") end if if request.querystring("pts") = "" then ptsNo = 36810 pts = 36810 else ptsNo = request.querystring("pts") pts = 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) 'change the vehicle sub filterVehicle xFilter = split(request("filter"), ",") response.redirect("mm_catalog.asp?vh=" & xFilter(1) & "&yr=" & xFilter(0) & "&pts=" & pts) end sub if request("go") = ">" then filterVehicle end if 'name the vehicle if vh = 302 then vhName = "Mustang" elseif vh = 303 then vhName = "Lightning" else vhName = "Ford GT" end if %> Mustang Motorsports, Inc. - Part Catalog - UPR Products, Sniper Tuning, Saleen, Vortech

Parts Catalog

Vehicle Filter

Parts Selection

<% for m = 0 to ubound(xMain) - 1 xMainThis = split(xMain(m), ",") %>

[+] <%=ucase(xMainThis(1))%>

<% next %>
<% if rsPart.eof then qryPartName = "select ptsNo, ptsName from tblPartsTypesSub where ptsNo = " & ptsNo set rsPartName = oConn.execute(qryPartName) dim partName partName = rsPartName("ptsName") rsPartName.close set rsPartName = nothing %>

There are currently no parts matching your criteria of <%=partName%> for <%=xYear(0)%>-<%=xYear(1)%> <%=vhName%>. Please check back often.

<% else %>

<%=yr%> <%=vhName%>: <%=rsPart("ptsName")%>

<% while not rsPart.eof %>
" rel="lightbox"> " width="100" />

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

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

TO ORDER: Call 239-225-7529

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

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

<% rsPart.movenext wend %> <% end if %>