<%option explicit%> <% '****************************************************** ' VP-ASP 6.50 allow restore order ' Administration Display Orders ' March 8, 2004 SUn ASP 4.0 fix '****************************************************** dim myconn ShopCheckAdmin "shopa_displayorders.asp" AdminPageHeader 'PrintPageHeader 'VP-ASP 6.09 - precautionary security fix oid=request.querystring("OID") if not isnumeric(oid) then shoperror "Order ID must be numeric" end if Openorderdb myconn 'oid=request.querystring("OID") GenerateDisplayHeaderFlat GenerateDisplayBodyHeader %> <%If getconfig("xtracking")="Yes" then%> <%end if%> <%'VP-ASP 6.50 - quick add order to hacker table dim hackerrs set hackerrs = myconn.execute("select oemail, ipaddress from orders where orderid = " & oid)%> <%closerecordset hackerrs%>

Order List

<%=getlang("langEditOrder")%>

<%=getlang("langOrderItems")%>

<%=getlang("langTracking")%>

<%=getlang("LangRestoreOrder")%>

Finalize Order

<%=getlang("LangCommonCancelOrder")%>

Add to Hacker

<% dim xoid xoid=oid ShopFormatOrder myconn, xOid, "Admin" If getconfig("xtracking")="Yes" then ShopFormatTracking myconn, Oid, "Admin" end if GenerateDisplayBodyFooter AdminPageTrailer ' Normal Shop page trailer shopclosedatabase myconn %>