<% ' Create database connection Dim con Dim cmd Dim rs Dim iIndex iIndex = 1 ' Parameters Dim sCategoryLetter sCategoryLetter = Null IF Request("CategoryLetter") <> "" THEN sCategoryLetter = Request("CategoryLetter") END IF Dim sCategory sCategory = Null IF Request("Category") <> "" THEN sCategory = Request("Category") END IF Dim sModel sModel = Null IF Request("Model") <> "" THEN sModel = Request("Model") END IF Dim sVWPartsNo sVWPartsNo = Null IF Request("VWPartsNo") <> "" THEN sVWPartsNo = Request("VWPartsNo") END IF ' Check for products being added to basket IF Request("ProductID") <> "" AND Request("QtyIndex") <> "" Then Qtys = Split(Request("Qty"), ",") IF (UBound(Qtys) >= CInt(Request("QtyIndex")) - 1) THEN Qty = Qtys(Request("QtyIndex") - 1) Qty = Trim(Qty) IF IsNumeric(Qty) AND IsNumeric(Request("ProductID")) then AddOrderToBasket Request("ProductID"), Qty END IF END IF END IF ' Create connection Set con = Server.CreateObject("ADODB.Connection") With con .ConnectionString = m_sSQL_CONNECTION .Open .BeginTrans End With ' Begin processing order Set cmd = Server.CreateObject("ADODB.Command") With cmd Set .ActiveConnection = con .CommandText = "dbo.Int_Products_Search" With .Parameters .Append cmd.CreateParameter("@VWPartsNo", 200, 1, 50, sVWPartsNo) .Append cmd.CreateParameter("@Model", 200, 1, 50, sModel) .Append cmd.CreateParameter("@Category", 200, 1, 50, sCategory) .Append cmd.CreateParameter("@CategoryLetter", 200, 1, 1, sCategoryLetter) End With .CommandType = 4 .CommandTimeout = 0 .Prepared = True Set rs = .Execute Set cmd = Nothing End With %>

<% IF NOT rs.EOF Then %> Instructions: To order an item enter 1) the quantity required & 2) click <% ' Get first category sCategory = rs("Cat_Name") Do While not rs.EOF %>   <%=sCategory%> <% Do While not rs.EOF %> <% rs.MoveNext iIndex = iIndex + 1 ' Check that it is same category IF NOT rs.EOF THEN IF NOT sCategory = rs("Cat_Name").Value Then sCategory = rs("Cat_Name") Exit Do End IF END IF Loop %> Model Model Desc. Yrs Part No. Description Manufacturer Price Qty. Add to Basket <%=rs("Model_Name")%> <%=rs("Model_Desc")%> <%if (rs.Fields("Model_Lower_Year").Value = "" And rs.Fields("Model_Higher_Year").Value = "") then%>All Years<%End If%> <%if (rs.Fields("Model_Lower_Year").Value <> "" And rs.Fields("Model_Higher_Year").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Model_Lower_Year").Value)%>-<%=Server.HTMLEncode(rs.Fields("Model_Higher_Year").Value)%><%End If%> <%if (rs.Fields("Model_Lower_Year").Value = "" And rs.Fields("Model_Higher_Year").Value <> "") then%>Before <%=Server.HTMLEncode(rs.Fields("Model_Higher_Year").Value)%><%End If%> <%if (rs.Fields("Model_Lower_Year").Value <> "" And rs.Fields("Model_Higher_Year").Value = "") then%>After <%=Server.HTMLEncode(rs.Fields("Model_Lower_Year").Value)%><%End If%> <%=rs("VW_Part_No")%> <%=rs("Info")%> <%=rs("Manufacturer")%> <% IF not IsNull(rs.Fields("Price")) THEN Response.Write(FormatCurrency(rs.Fields("Price"))) END IF%> , <%=iIndex%>)"> <% Loop %> <% END IF %>

<% ' Clean up rs.Close Set rs = Nothing With con .CommitTrans .Close End With Set con = Nothing %>