<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% qryTypes = "select ptNo, ptName from tblPartsTypes order by ptName" set rsTypes = oConn.execute(qryTypes) dim xType xType = "" while not rsTypes.eof xType = xType & rsTypes("ptNo") & "," & rsTypes("ptName") & "\\" rsTypes.movenext wend rsTypes.close set rsTypes = nothing xType = split(xType, "\\") ' make the array qryMan = "select manNo, manName, manLink from tblManufacturer order by manName" set rsMan = oConn.execute(qryMan) %> Mustang Motorsports - Sitemap

Mustang Motorsports Sitemap

Parts

<% for i = 0 to ubound(xType) - 1 yType = split(xType(i), ",") %>

<%=yType(1)%>

<% qryTypes = "select ptsNo, ptsName, ptsMain from tblPartsTypesSub where ptsMain = " & yType(0) set rsTypes = oConn.execute(qryTypes) while not rsTypes.eof %> " class="sitemap"><%=rsTypes("ptsName")%> | <% rsTypes.movenext wend next %>

Manufacturers

<% while not rsMan.eof %> " target="_blank" class="sitemap"><%=rsMan("manName")%> | <% rsMan.movenext wend %>

Customer Rides

Show All

2005-Present

1999-2004

1994-1998

1979-1993

SVT Lightning (Coming Soon)

Manufacturers

Lentech Automatics

Autometer Gauges

BBK

Ford Racing

Helion

Sniper Tuning

UPR Products

Vortech Superchargers

General Info

Home

Contact

Tuning & Dyno

Parts Bin

Showroom

Video

<% rsMan.close rsTypes.close %>