<%Option explicit%>
<%
'*******************************************************
' Version 4.0 May 2, 2002
' allows viewing of previous order and restore of orders
' allows user to check the status of their order
' add points logic
'*******************************************************
dim customerid
CustCheckAdmin customerid
dim dbc
dim UsePassword
Dim Fieldname
Dim fieldvalue
dim fields(10)
dim captions(10)
dim fieldcount
Dim strpassword
Dim rc
Dim sAction
Dim Ordernumber
SetSess "CurrentUrl","shopstatus.asp"
Customerid=Getsess("Customerlogincid")
ordernumber=request("ordernumber")
if getconfig("xallowReviewOrders")<>"Yes" then
Response.Redirect "shopcustadmin.asp?msg=" & Server.URLEncode (LangCustNotAllowed)
end if
'
sAction=Request.form("Action")
if saction="" then
sAction=Request.form("Action.x")
end if
mypage=Request("page")
shoppageheader
if mypage<>"" then
sql=GetSess("sqlStatus") ' on recursive calls we stored sql in sessikon variable
displayOrders
else
mypage=1
DisplayOrders
end if
ShopPagetrailer
Sub DisplayOrders
dim maxrecs, cid
dim recordcount
mypagesize=getconfig("xeditdisplaymaxrecords")
maxrecs=mypagesize
OpenOrderDB dbc
cid = clng(customerid)
If ordernumber<>"" then
If not Isnumeric(ordernumber) then
Serror=LangStatusError01
displayErrors
exit sub
end if
end if
SQL= "Select * from orders where ocustomerid=" & cid
sql=sql & " and ( canceled is null or canceled=0 )"
If ordernumber="" then
Sql=SQL & " order by odate DESC"
else
sql=sql & " AND orderid=" & ordernumber
end if
SetSess "sqlstatus",SQL
ShopOpenRecordSet SQL,objRS, mypagesize, mypage
if objRS.eof then
Serror=LangNoOrders & " " & ordernumber
DisplayErrors
objRS.Close
set objRS=nothing
ShopCloseDatabase dbc
exit sub
end if
recordcount=0
Response.write "" & getconfig("xfont") & LangCommonPage & mypage & LangCommonOf & maxpages & "
"
OrderTableHeader
While Not objRS.EOF and recordcount < maxrecs
OrderFormatRow ' actual row is formatted
objRS.MoveNext
recordcount=recordcount+1
Wend
response.write ""
If Ordernumber="" then
Call PageNavBar (SQL)
end if
objRS.Close
set objRS=nothing
ShopCloseDatabase dbc
If getconfig("xpoints")="Yes" then
PointsDisplay cid
end if
End Sub
'
Sub OrderFormatRow
dim i
dim fieldvalue
response.write ""
for i = 0 to fieldcount
Select Case fields(i)
Case "RESTORE"
CreateRestoreLink fieldvalue, objrs("Orderid")
Case "TRACK"
CreateTrackLink fieldvalue, objrs("Orderid")
case "ORDERAMOUNT"
fieldvalue=objrs(fields(i))
fieldvalue=shopformatcurrency(fieldvalue,Getconfig("xdecimalpoint"))
Case "OPROCESSED"
fieldvalue=objrs(fields(i))
DisplayProcessed fieldvalue
case "ORDERID"
CreateViewLink fieldvalue, objrs("Orderid")
case "OSTATUS"
fieldvalue=objrs(fields(i))
DisplayStatus fieldvalue
case "OPOINTS"
fieldvalue=objrs(fields(i))
if isnull(fieldvalue) then
fieldvalue=langcommonNo
end if
Case Else
fieldvalue=objrs(fields(i))
end select
response.write ReportDetailColumn & fieldvalue & ReportDetailcolumnEnd
next
response.write "
"
end sub
'
Sub CreateRestoreLink (fieldvalue, oid)
dim my_link
my_link="shoprestoreorder.asp?Restore=Yes&oid=" & oid
fieldvalue="" & LangCommonYes & ""
end sub
Sub CreateTrackLink (fieldvalue, oid)
dim my_link
my_link="shopcusttracking.asp?oid=" & oid
fieldvalue="" & LangCommonYes & ""
end sub
Sub CreateViewLink (fieldvalue, oid)
dim my_link
my_link="shoprestoreorder.asp?View=Yes&oid=" & oid
fieldvalue="" & Oid & ""
end sub
Sub DisplayProcessed (fieldvalue)
if fieldvalue<>0 then
fieldvalue=LangcommonYes
else
fieldvalue=LangCommonNo
end if
end sub
Sub DisplayStatus (fieldvalue)
dim ocardtype
If isnull(fieldvalue) then
ocardtype=objrs("ocardtype")
end if
end sub
'
Sub OrderTableHeader
dim i
Fields(0)="ORDERID"
Fields(1)="ORDERAMOUNT"
Fields(2)="Odate"
Fields(3)="ofirstname"
Fields(4)="olastname"
Fields(5)="OSTATUS"
Fields(6)="OPROCESSED"
Fields(7)="" ' keyword
Fields(8)="" ' keyword
Captions(0)=LangStatusOrderNum
Captions(1)=LangStatusAmount
Captions(2)=LangStatusDate
Captions(3)=LangCustFirstName
Captions(4)=LangCustLastName
Captions(5)=LangStatusStatus
Captions(6)=LangStatusProcessed
fieldcount=6
If getconfig("xAllowRestoreOrder")="Yes" Then
fieldcount=fieldcount+1
Captions(fieldcount)=LangRestoreOrder
Fields(fieldcount)="RESTORE" ' keyword
end if
If getconfig("xtrackingcustomerread")="Yes" or getconfig("xtrackingcustomerwrite")="Yes" Then
fieldcount=fieldcount+1
Captions(fieldcount)=Langtracking
Fields(fieldcount)="TRACK" ' keyword
end if
If getconfig("xPoints")="Yes" Then
fieldcount=fieldcount+1
Captions(fieldcount)=langpoints
Fields(fieldcount)="OPOINTS" ' keyword
end if
%>
<%=getconfig("xfont")%><%=LangStatus02%>
<%
'
DisplayForm
response.write ReportTableDef
response.write ReportHeadRow
for i = 0 to fieldcount
Response.write ReportHeadColumn & Captions(i) & ReportHeadColumnEnd
next
response.write ReportRowEnd
end sub
'
Sub DisplayForm
Response.Write("