%option explicit%>
<%
'******************************************************
' VP-ASP 5.00 allow restore order
' Administration Display Orders
' Jan 5, 2003
'******************************************************
dim myconn
ShopCheckAdmin "shopa_displayorders.asp"
PrintPageHeader
Openorderdb myconn
oid=request.querystring("OID")
Response.write tableDef
Response.write tablerow
Response.write tablecolumn
response.write "" & getlang("langEditOrder") & ""
Response.write tablecolumnend
Response.write tablecolumn
response.write " " & getlang("langOrderItems") & ""
Response.write tablecolumnend
If getconfig("xtracking")="Yes" then
Response.write tablecolumn
response.write " " & getlang("langTracking") & ""
Response.write tablecolumnend
end if
Response.write tablecolumn
response.write " " & "Restore Order" & ""
Response.write tablecolumnend
Response.write tablerowend
response.write tabledefend
ShopFormatOrder myconn, Oid, "Admin"
If getconfig("xtracking")="Yes" then
ShopFormatTracking myconn, Oid, "Admin"
end if
PrintPageTrailer ' Normal Shop page trailer
shopclosedatabase myconn
%>