<%@ Language=VBScript%> <% ' VI 6.0 Scripting Object Model Enabled %> <% if StartPageProcessing() Then Response.End() %>
XP ENGINEERING - BMW Parts and High Performance <% set aodb = server.CreateObject("adodb.connection") aodb.Open "DSN=XPDSN;" if lstYear.getCount() = 0 then sql = "SELECT Cars.year FROM (((Cars INNER JOIN CarPartsXref ON Cars.id = CarPartsXref.CarId) INNER JOIN Parts ON CarPartsXref.PartId = Parts.id) INNER JOIN PartCategories ON Parts.PartCategoryId = PartCategories.id) INNER JOIN PartTypes ON PartCategories.PartTypeId = PartTypes.id WHERE (((PartTypes.PartType)='Performance')) GROUP BY Cars.Year ORDER BY Cars.Year desc;" set rsYear = aodb.execute(sql) lstYear.clear lstYear.addItem "Year", 0 while not rsYear.EOF lstYear.addItem cstr(rsYear("year")), cstr(rsYear("Year")) rsYear.movenext wend set rsYear = nothing end if if Request.QueryString("CId") <> "" and not bSelect then sql = "Select year from cars where id = " & Request.QueryString("CId") set rs = aodb.Execute(sql) lstyear.selectByValue rs("year") set rs = nothing setModel lstModel.selectByValue Request.QueryString("CId") setParts end if set aodb = nothing %>

 

 


 

Welcome to XP Engineering's Performance Catalog.  We carry products from manufacturers like Performance Friction, Dinan, Motul, Ate, Bilstein, Koni, Brembo, and more.  Please select the year and model of your BMW and make your selection.  We are continually adding parts to our online catalog.  If there's a part that you can't find, please contact XP Engineering for more information.

<%if request.querystring("E") = "y" then%> <%end if%>
There was a problem with your page, please make your selection again.
If the problem continues, contact the webmaster.
Select the year: <% lstYear.display %>
<%if bShowModel then%> Select the Model: <% end if%> <% lstModel.display %>
<%if bShowParts then%> Select the Parts: <% end if%> <% lstPart.display %>
<% btnViewParts.display %>
 
 

 

<% ' VI 6.0 Scripting Object Model Enabled %> <% EndPageProcessing() %>