<%option explicit%>
<%
Dim dbc, oid
Dim ssl
dim slash, action, tmpstr, rc
'*******************************************************************
' Version 6.50 Feb 7, 2004 create order
' for administrator after then restored the order
'********************************************************************
oid=getsess("adminorderid")
if oid="" then
shoperror "oid= missing for admininstration order creation"
end if
setsess "orderid",oid
action = request.form("action")
if action="" then
action = request.form("action.x")
end if
' no action so display final form in this session
SetSess "CurrentURL","shopa_createorder.asp"
if Action="" then
AdminPageHeader
generatedisplayheader "Create Order"
generatedisplaybodyheader
response.write ""
DisplayForm
response.write ""
generatedisplaybodyfooter
AdminPageTrailer
else
SaveThisOrderAdmin
responseredirect "shopa_displayorders.asp"
end if
Sub SaveThisOrderAdmin
ShopAddOrderAdmin ' add order to database
oid=GetSess( "orderId")
setsess "Admincreateorder",""
end sub
'
Sub DisplayForm
Response.write getconfig("xfont")
%>
Save this order.
Only order items will be changed.
Customer Details are not altered with this facility.
<%
End Sub
'
Sub ShopAddOrderAdmin
Dim arrCart, scartItem
Dim dbc
Dim oid, sqlo
Dim i
dim newdate, newtime
dim ipaddress
dim osql
arrCart = GetSessA("CartArray") ' get shopping cart data
scartItem = GetSess("CartCount")
ShopopenOtherdb dbc, getconfig("xorderdb")
oid=getsess("adminorderid")
dbc.execute "delete from oitems where orderid = " & oid
SetSess "oid", oid
arrCart = GetSessA("CartArray") ' get shopping cart data
scartItem = GetSess("CartCount")
ShopopenOtherdb dbc, getconfig("xorderdb")
Set rsorder = Server.CreateObject ("adodb.recordset")
osql="select * from orders where orderid=" & oid
rsorder.Open osql, dbc, adOpenKeyset, adLockPessimistic, adCmdText
GetCustomerSessionData ' make sure we have session into local
Errors="" ' no errors
updatefield "orderamount", getsess("ordertotal")
updatefield "oshipmethodtype",getsess("shipmethod")
updatefield "oshipcost",getsess("smprice")
updatefield "otax",getsess("taxes") ' 2.13 fix
updatefield "odiscount", getsess("discount")
updatefield "ohandling", getsess("handling")
updatefield "canceled",0
updatefield "hackeryesno",0
rsorder.Update
rsorder.Close
set rsorder=nothing
' add Items To Database
Dim rsitem,productaddress
Set rsitem = Server.CreateObject ("adodb.recordset")
rsitem.Open "oitems", dbc, adOpenKeyset, adLockOptimistic , adcmdtable
For i = 1 To scartItem
rsitem.AddNew
rsitem("orderid") = oid
rsitem("catalogid") = arrcart(cproductid,i)
rsitem("numitems") = arrcart(cquantity,i)
rsitem("itemname") = arrcart(cproductname,i)
rsitem("unitprice") = arrcart(cunitprice,i)
rsitem("dualprice") = arrcart(cdualprice,i)
If arrcart(cProductfeatures,i)<>"" then
rsitem("features") = arrcart(cProductfeatures,i)
end if
if isnumeric (arrcart(csupplierid,i)) then
rsitem("supplierid") = arrCart(csupplierid,i)
else
rsitem("supplierid") = 0
end if
if getconfig("XdeliveryAddress")="Yes" then
ConvertDeliverytoString arrCart(cDelivery,i), ProductAddress
If ProductAddress="" then
ProductAddress=NULL
end if
rsitem("address")=ProductAddress
end if
rsitem.Update
Next
rsitem.Close
set rsitem=nothing
ShopCloseDatabase dbc
'VP-ASP 6.08 - After restore order, remove order details after restore complete
shopcancelorder
End Sub
%>