<%
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"))%>
Xnum
Part
#
Model
For
Part
Price
<%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%>
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%>