DreaMerchant.com

<%@ Language=VBScript %> <%Option Explicit%> <%Response.Buffer=True%> <% Const c_TaxRate=5.75 Dim numProductID, numOrderID, numOrderProductID Dim numQuantity Dim numSubtotal Dim numTax Dim numShipping Dim numTotalShipping numSubtotal=0 numShipping=0 numTotal=0 strSQL="SELECT OrderID " & _ "FROM Orders " & _ "WHERE SessionID=" & Session.SessionID objRS.Open strSQL, objConn If Not objRS.EOF Then numOrderID=objRS("OrderID") Else ' objConn.BeginTrans strSQL="INSERT INTO Orders(SessionID) " & _ "VALUES (" & Session.SessionID & ")" objConn.Execute(strSQL) numOrderID=GetMaxID("Orders", "OrderID") ' objConn.CommitTrans End If objRS.Close numProductID=Request.QueryString("id") If numProductID<>"" And IsNumeric(numProductID) Then strSQL="SELECT * " & _ "FROM Product " & _ "WHERE ProductID=" & numProductID objRS.Open strSQL, objConn If Not objRS.EOF Then strSQL="SELECT * " & _ "FROM OrderProduct " & _ "WHERE OrderID=" & numOrderID & _ " AND ProductID=" & numProductID objRS1.Open strSQL, objConn If Not objRS1.EOF Then strSQL="UPDATE OrderProduct " & _ "SET Quantity=" & objRS1("Quantity")+1 & " " & _ "WHERE OrderProductID=" & objRS1("OrderProductID") objConn.Execute(strSQL) Else strSQL="INSERT INTO OrderProduct (OrderID, ProductID, Quantity) " & _ "VALUES (" & numOrderID & ", " & numProductID & ", 1)" objConn.Execute(strSQL) End If End If objRS.Close End If numOrderProductID=Request("Parameter") Select Case Request("Action") Case "Delete" strSQL="DELETE OrderProduct " & _ "WHERE OrderProductID=" & numOrderProductID objConn.Execute(strSQL) Case "Update" strSQL="SELECT * " & _ "FROM OrderProduct " & _ "WHERE OrderID=" & numOrderID objRS.Open strSQL, objConn Do While Not objRS.EOF numQuantity=Request("Quantity" & objRS("OrderProductID")) If numQuantity<>"" And IsNumeric(numQuantity) Then If CInt(numQuantity)=0 Then strSQL="DELETE OrderProduct " & _ "WHERE OrderProductID=" & objRS("OrderQuantity") objConn.Execute(strSQL) Else strSQL="UPDATE OrderProduct " & _ "SET Quantity=" & numQuantity & " " & _ "WHERE OrderProductID=" & objRS("OrderProductID") objConn.Execute(strSQL) End If End If objRS.MoveNext Loop objRS.Close Case "CheckOut" ' Response.Redirect "http://projects.metrostarsystems.com:8080/securemss/DMO/CreditCard.asp?sid=" & Session.SessionID ' Response.Redirect "https://secure.metrostarsystems.com/DMO/CreditCard.asp?sid=" & Session.SessionID 'Response.Redirect "http://projects.metrostarsystems.com/dreaMerchant/www/book/CreditCard.asp?id=" & Session.SessionID strSQL="SELECT * " & _ "FROM OrderCart " & _ "WHERE OrderID=" & numOrderID objRS.Open strSQL, objConn If objRS.EOF Then Response.Redirect"../book/viewCart.asp" Else Response.Redirect "../book/CreditCard.asp?id=" & Session.SessionID End If End Select %> DreaMerchant.com

<% strSQL="SELECT * " & _ "FROM OrderCart " & _ "WHERE OrderID=" & numOrderID objRS.Open strSQL, objConn If Not objRS.EOF Then Do While Not objRS.EOF %> <% numSubTotal=numSubtotal+CDbl(objRS("ProductPrice"))*objRS("Quantity") numShipping=numShipping+CDbl(objRS("FormatShipping"))*objRS("Quantity") objRS.MoveNext Loop Else %> <% End If objRS.Close numTax=(CDbl(numSubtotal)+CDbl(numShipping))*CDbl(c_TaxRate)/100.0 numTax=Round(numTax*100)/100 If CDbl(numShipping)=0 Then numTotalShipping=0 Else numTotalShipping=CDbl(numShipping)'+8.0 End If numTotal=CDbl(numSubtotal)+CDbl(numTax)+CDbl(numTotalShipping) strSQL="UPDATE Orders SET " & _ "Subtotal='" & numSubtotal & "', " & _ "Tax='" & numTax & "', " & _ "Shipping='" & numTotalShipping & "', " & _ "Total='" & numTotal & "', " & _ "OrderDate='" & Date & " " & Time & "' " & _ "WHERE OrderID=" & numOrderID objConn.Execute(strSQL) %>

Remove	QTY	Item	Format	Unit Price	Total
');">	" type="text" size="2" maxlength="2" value="<%=objRS("Quantity")%>">	<%=objRS("ItemTitle")%> - by <%=objRS("ItemAuthor")%>	<%=objRS("FormatTitle")%>	$<%=ParsePrice1(objRS("ProductPrice"))%>	$<%=ParsePrice1(objRS("ProductPrice")*objRS("Quantity"))%>
The Cart is Empty

				Subtotal	$<%=ParsePrice1(numSubtotal)%>
				Shipping	$<%=ParsePrice1(numTotalShipping)%>
				DC Sales Tax	$<%=ParsePrice1(numTax)%>

				Total	$<%=ParsePrice1(numTotal)%>

HOME | AUTHOR SCRIBBLES | BOOKS | BYTE ME | EXCERPT | CONTACT US

Copyright © 2000-2006 DreaMerchant. All Rights Reserved. Privacy Policy.
Email:contact@dreamerchant.com

<%Disconnect%>