<%option explicit%> <% '************************************************************ ' VP-ASP 4.50 list all unprocess orders ' May 14, 2002 '*************************************************************** Dim rs, dbc ShopCheckAdmin "shopa_displayorders.asp" AdminPageHeader ' Normal page header Openorderdb dbc strsql=getsess("sqlquery") if strsql="" then shoperror langnoorders end if Set rs = dbc.execute(strSQL) If rs.EOF Then Response.write ErrorFontStart & LangNoOrders & errorFontEnd End If Do While Not rs.EOF Response.Write "

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

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