<% If Len(Request.Cookies("shoppingcart")("ordernum")) > 1 Then set conn = Server.CreateObject("ADODB.Connection") conn.open("orders") tempvar = Request.Cookies("shoppingcart")("ordernum") set RStemp = conn.Execute("select * from orders where ordernumber = " & tempvar & "") If RStemp.EOF then Response.Cookies("shoppingcart")("ordernum") = "" RStemp.close conn.close End If If Len(Request.Cookies("shoppingcart")("ordernum")) > 1 Then ordernum = Request.Cookies("shoppingcart")("ordernum") Dim RSxnums set conn = Server.CreateObject("ADODB.Connection") conn.open("orders") set RSxnums = conn.Execute("select * from orders where ordernumber = " & ordernum & "") %>
Order Number : <%Response.Write("(" & RSxnums("orderclass")& ")" & Request.Cookies("shoppingcart")("ordernum"))%>
<%If RSxnums("item1") <> "empty" or RSxnums("item2") <> "empty" or RSxnums("item3") <> "empty" or RSxnums("item4") <> "empty" or RSxnums("item5") <> "empty" Then total = FormatCurrency("0") X = 1 toggle = 0 Do Until X > 8 If RSxnums("item" & X & "") <> "empty" Then category = Right(RSxnums("item" & X & ""), 10) set conn2 = Server.CreateObject("ADODB.Connection") conn2.open("parts") set RSinfo = conn2.Execute("select * from " & category & " where xnum = " & Left(RSxnums("item" & X & ""), 4) & "") price = RSinfo("cost") / 100 * RSinfo("markup") + RSinfo("cost")%> >
<%conn2.close If toggle = "1" then toggle = "0" Else toggle = "1" End If End If X = X + 1 Loop End If%>
Xnum
Part #
Model
For
Part
Price
 
<%Response.Write(Left(RSxnums("item" & X & ""), 4))%> <%Response.Write(RSinfo("partnum"))%> <%Response.Write(RSinfo("model"))%> <%Response.Write(RSinfo("induction") & " " & RSinfo("byear") & "-" & RSinfo("eyear"))%> <%Response.Write(RSinfo("part"))%> <%price = round(price,2) Response.Write(FormatCurrency(price)) total = total + price%>
Total Price: 
<%Response.Write(FormatCurrency(total))%>
+ Shipping 
   

Comments:
(IF MULTIPLE COLORS ARE AVAILABLE specify them here or the standard finish will be shipped. If you have any other special notes or comments, please put them here as well.)

If you are having problems with an order, please contact us.

  To Order with Credit Card

Click the continue button below, then input your address information and verify the order. More instruction will follow then.

To Order without Credit Card

Click the continue button below, your options for ordering without a credit card will be given and then you can proceed with whatever method you prefer.

 

<%conn.close Else%>Your cart is currently empty.<%End If%>

 
©2001 extremeboost.com