<%option explicit%>
<%
const Xorderfailed="No"
const xorderfailedtemplate="tmp_orderfail.txt"
shopcheckadmin "shopa_displayorders.asp"
'*******************************************************
' Customer Service Menu
' VP-ASP Version 5,0 April 20, 2003
' add more menus at the botom of this code
' Septv 26, 2003 add redeem points
'*******************************************************
Dim menus(20), urls(20), menucount
Dim loginError, infomsg
Dim NumProc
dim LoginFlag
dim oid
NumProc = 0
oid=request("oid")
shopcheckadmin "shopa_displayorders.asp"
SetSess "CurrentUrl","shopa_orderaction.asp"
adminpageHeader
SetupMenus
AddMenu
AddNewUser
adminpageTrailer
'**********************************************************************
' Version 6.50
' Shopadmin.asp forces relogin
' shopadmin1.asp (this routine checks to see if you are already logdded in
'***********************************************************************
Sub AddMenu
dim i
FormatHeader
For i = 0 to menucount
Formatrow Menus(i), urls(i)
next
FormatTrailer
end sub
'
Sub FormatHeader
dim msg
Response.write "" & Custadmintable
Response.write CustAdminHeaderRow
msg=getlang("LangMailOrderNumber") & " " & oid
Response.write CustAdminHeaderFont & msg & CustAdminHeaderEnd
end sub
'
Sub FormatRow (name, url)
NumProc=Numproc+1
response.write CustAdminRow
Response.write CustAdminNumColumn & NumProc & "." & CustAdminNumEnd
Response.write CustAdminColumn & "" & CustAdminFont & name & "" & CustAdminColumnEnd & vbcrlf
end sub
'
Sub FormatTrailer
%>
<%
end sub
'
Sub AddMenuItem (caption, url)
menus(menucount)=caption
urls(menucount)=url
menucount=menucount+1
end sub
'
Sub addnewUser
response.write ("" & getlang("langadmindisplayorders") & "
")
end sub
Sub SetUpMenus
'***********************************************************************
' First field is the caption the customer sees
' Second is URL to go to
' Third is "Yes" (case sensitive) If Yes menu is displayed
'************************************************************************
dim url
menucount=0
Url="shopa_editrecord.asp?which=" & oid & "&table=orders&idfield=orderid"
addmenuitem getlang("langEditOrder"), url
Url="shopa_formatorder.asp?oid=" & oid
addmenuitem getlang("langcommonview"), url
url="shopa_displayoitems.asp?orderid=" & oid
addmenuitem getlang("langOrderItems"), url
If getconfig("xtracking")="Yes" then
url="shopa_trackingorder.asp?oid=" & oid
addmenuitem getlang("langTracking"), url
end if
url="shopa_restoreorder.asp?oid=" & oid
addmenuitem getlang("LangRestoreOrder"), url
url="shopa_ordercancel.asp?oid=" & oid
addmenuitem getlang("LangCommonCancelOrder"),url
menucount=menucount-1
end sub
%>