<%option explicit%>
<%
ShopCheckAdmin ""
'**************************************************************************
' Version 4.00 Display order items
' September 8, 2001
'**************************************************************************
'
dim mysql
Dim Fieldcount
Dim Captions(10)
Dim Fieldnames(10)
Dim Idfield
Dim SearchFieldvalue, searchfieldname
Dim i
dim orderfieldcount, orderfields
dim sortfield
Dim item
dim dbtable
Dim scriptresponder
Dim editresponder
Dim dbc
dim Orderid
dim fieldname
AdminPageHeader ' Admin page headers are different
Orderid=request("Orderid")
SetFieldNames ' field names for table
OpenOrderDB dbc ' open database
GetInput ' get all form fields
dim field
If Request("Delete")<>"" Then
For each item in Request("DeleteUser")
DeleteRecord Item
Next
End if
GenerateDisplayHeader ' Generate sort button etc
editresponder="shopa_editrecord.asp"
'response.write "sql=" & mysql
ShopopenRecordSet mysql, rsorder, mypagesize, mypage
GenerateTable ' write the tabe
Call PageNavBar (Mysql) ' put bottom navigation bar
rsOrder.close ' close database
set rsOrder=nothing
shopCloseDatabase dbc
AdminPageTrailer ' Write admin trailer
'
Sub GetInput
Idfield="OrderitemID"
Orderid=request("Orderid")
sortfield="OrderitemID"
mypage = Request.querystring("page")
'first time we need everything, othertimes sql is set up
' See how we are sorting
if mypage="" then
mypage=1
GenerateSQL
else
Mysql=GetSess("sqlquery")
end if
maxrecs=Getconfig("xeditdisplaymaxrecords")
mypagesize=maxrecs
end sub
'
' SQL is generate by using fields on form
Sub GenerateSQL
dim sqlproc
dim key
dim sqladd
mysql = "select * from oitems where orderid=" & orderid
mysql = mysql & " order by " & sortfield
SetSess "sqlquery",MySQL
'response.write "generated sql=" & mysql & " "
End sub
'
Sub GenerateTable
dim howmanyfields
dim howmanyrecs
dim my_link
howmanyfields=fieldcount-1
response.write "
" & LangCommonPage & mypage & LangCommonof & maxpages & " "
Response.write ReportTableDef
Response.write ReportHeadrow
Response.write ReportHeadColumn & LangCommonEdit & ReportHeadColumnEnd
'Put Headings On The Table of Field Names
for i=0 to howmanyfields
Response.write ReportHeadColumn & Captions(i) & ReportHeadColumnEnd
next
Response.write ReportHeadColumn & LangMenuDelete & ReportHeadColumnEnd
Response.write ReportRowEnd
' Now lets grab all the records
howmanyrecs=0
DO UNTIL rsorder.eof OR howmanyrecs=maxrecs
response.write ReportDetailRow
Response.write ReportDetailColumn
my_link=editresponder & "?which=" & rsorder(idfield) & "&idfield=" & idfield & "&table=oitems"
%>
<%=LangCommonEdit%>
<%
Response.write ReportDetailColumnEnd
for i = 0 to howmanyfields
fieldname=fieldnames(i)
if ucase(fieldname)="OCUSTOMERID" then
response.write ReportDetailColumn & "" & rsorder(fieldname) & ""
else
if ucase(fieldname)="UNITPRICE" then
response.write ReportDetailColumn & shopformatcurrency(rsorder(fieldname),getconfig("xdecimalpoint")) & ReportDetailcolumnend
else
response.write Reportdetailcolumn & rsorder(fieldname) & Reportdetailcolumnend
end if
end if
next
%>
<%
Response.write ReportRowEnd
howmanyrecs=howmanyrecs+1
if howmanyrecs < maxrecs then
rsorder.movenext
end if
loop
response.write("
")
%>
<%
response.write("")
end sub
'**************************************************************************
'**** Sub SetFieldNames
'**************************************************************************
Sub SetFieldNames
Fieldcount=7
Fieldnames(0)= "catalogid"
Fieldnames(1)= "numitems"
Fieldnames(2)= "itemname"
Fieldnames(3)= "unitprice"
Fieldnames(4)= "dualprice"
Fieldnames(5)= "supplierid"
Fieldnames(6)= "address"
Captions(0)= "catalogid"
Captions(1)= LangProductQuantity
Captions(2)= LangProductName
Captions(3)= LangProductPrice
Captions(4)= LangDualPrice
Captions(5)= LangSupplierNumber
Captions(6)= LangDeliveryPrompt
end sub
Sub DeleteRecord(Item)
dim Rowsaffected
dbc.execute "delete from oitems where orderitemid = " & item
end sub
Sub GenerateDisplayHeader
%>