XP ENGINEERING - BMW Parts and High Performance

<%@ 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)='Stock')) 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 Stock Replacement Parts Catalog. Please select the year and model of your BMW and make your selection. We are continually adding parts to our online catalog, so please check back often. If there's a part that you can't find, please contact XP Engineering or call (714) 921-3BMW 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 %>

<% lblModel.display %>

<% lstModel.display %>

<% lblPart.display %>

<% lstPart.display %>

<% btnViewParts.display %>

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