<%option explicit%> <% '************************************************************ ' VP-ASP 6.50 list all unprocess orders ' Apr 2, 2003 '*************************************************************** Dim rs, dbc ShopCheckAdmin "shopa_displayorders.asp" AdminPageHeader ' Normal page header Openorderdb dbc strsql=getsess("sqlquery") if strsql="" then shoperror getlang("langnoorders") end if Set rs = dbc.execute(strSQL) If rs.EOF Then shopwriteerror getlang("LangNoOrders") End If Do While Not rs.EOF isubtotal=0 Response.Write "

" ShopFormatOrder dbc, rs("orderid"), "Admin" Response.Write "

" rs.MoveNext Loop rs.close Set rs = Nothing ShopCloseDatabase dbc AdminPageTrailer ' Normal Shop page trailer %>