<%option explicit%> <% '****************************************************** ' VP-ASP 6.50 Printer Friendly Page ' Display Orders ' Feb 4, 2003 '****************************************************** dim myconn,myrs %> <%=getconfig("xemailname")%>
<%=getlang("langcommonprint")%> | <%=getlang("LangCommonBack")%>
<% oid=request("oid") if not isnumeric(oid) then oid = "" If oid="" then shoperror getlang("langordernone") end if Openorderdb myconn 'VP-ASP 6.09 - check if this order belongs to logged in customer set myrs = myconn.execute("select orderid from orders where orderid = " & oid & " AND ocustomerid = " & getsess("customerid")) if myrs.eof then closerecordset myrs shopclosedatabase myconn shoperror getlang("langordernone") end if closerecordset myrs ShopFormatOrder myconn, oid, "NoAdmin" %>
<%=getlang("langcommonprint")%> | <%=getlang("LangCommonBack")%>
<% shopclosedatabase myconn %>