<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rcshipping__var
rcshipping__var = "1"
If (CCcart_Subtotal <> "") Then
rcshipping__var = CCcart_Subtotal
End If
%>
<%
Dim rcshipping
Dim rcshipping_numRows
Set rcshipping = Server.CreateObject("ADODB.Recordset")
rcshipping.ActiveConnection = MM_cntPaintingList_STRING
rcshipping.Source = "SELECT * FROM tblshipping where minPurchase <= " + Replace(rcshipping__var, "'", "''") + " and MaxPurchase >" + Replace(rcshipping__var, "'", "''") + ""
rcshipping.CursorType = 0
rcshipping.CursorLocation = 2
rcshipping.LockType = 1
rcshipping.Open()
rcshipping_numRows = 0
%>
<%
Dim rcVAT__MMColParam
rcVAT__MMColParam = "france"
If (Request("MM_EmptyValue") <> "") Then
rcVAT__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rcVAT
Dim rcVAT_numRows
Set rcVAT = Server.CreateObject("ADODB.Recordset")
rcVAT.ActiveConnection = MM_cntPaintingList_STRING
rcVAT.Source = "SELECT * FROM tblCountries WHERE CountryName = '" + Replace(rcVAT__MMColParam, "'", "''") + "'"
rcVAT.CursorType = 0
rcVAT.CursorLocation = 2
rcVAT.LockType = 1
rcVAT.Open()
rcVAT_numRows = 0
%>
<%
Dim rcOrders__MMColParam
rcOrders__MMColParam = "1"
If (Request.QueryString("OrderID") <> "") Then
rcOrders__MMColParam = Request.QueryString("OrderID")
End If
%>
<%
Dim rcOrders
Dim rcOrders_numRows
Set rcOrders = Server.CreateObject("ADODB.Recordset")
rcOrders.ActiveConnection = MM_cntPaintingList_STRING
rcOrders.Source = "SELECT * FROM tblorders WHERE OrderID = " + Replace(rcOrders__MMColParam, "'", "''") + ""
rcOrders.CursorType = 0
rcOrders.CursorLocation = 2
rcOrders.LockType = 1
rcOrders.Open()
rcOrders_numRows = 0
%>
<%
Dim Rsorderdetail
Dim Rsorderdetail_numRows
Set Rsorderdetail = Server.CreateObject("ADODB.Recordset")
Rsorderdetail.ActiveConnection = MM_cntPaintingList_STRING
Rsorderdetail.Source = "SELECT * FROM tblorderdetails"
Rsorderdetail.CursorType = 0
Rsorderdetail.CursorLocation = 2
Rsorderdetail.LockType = 1
Rsorderdetail.Open()
Rsorderdetail_numRows = 0
%>
<%
'
'Add shiping costs to cart
'
CCcart_Shipping="100"
%>
<%
'
'Add sales tax from value in recordset
'
if not rcVAT.eof then
CCcart_SalesTax=(CCcart_SubTotal + CCcart_Shipping - CCcart_Discount) * rcVAT("VATrate")
end if
%>
<%
'
'Insert record into Orders recordset when form is submitted
'and store the unique OrderID
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
rcOrders.AddNew
rcOrders("TimeKey")=TimeKey
For Each fld in rcOrders.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rcOrders.Update
rcOrders.Requery
rcOrders.Filter= "TimeKey='" & TimeKey & "'"
Session("OrderID")=rcOrders("OrderID")
end if
%>
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
'Bindingvalues=(",,,,")
UniqueIdValue=Session("OrderID")
UniqueIdColumn="UnitPrice"
CC_RedirectURL="index.asp"
sub SaveToDatabase(ODRecordset)
ODRecordset.AddNew
ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue
Rsorderdetail.Update
end sub
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) <> "" then
Call SaveToDatabase(Rsorderdetail)
end if
next
Response.Redirect "index.asp"
end if
%>
Nati Poulin Artiste Peintre
