iisCART Documentation | ![]() |
iisCART DISPLAYORDERS.ASP |
DisplayOrders.asp Source |
<html> <head> <title>System Requirements</title> </head> <body BGCOLOR="#FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0" link="#000000" vlink="#000000" alink="#000000"> <table WIDTH="100%" CELLPADDING="3" CELLSPACING="0" BORDER="0"> <tr> <td width="50%" bgcolor="#000080"><font color="#FFFFFF" face="Arial"><small>iisCART™ Order Manager</small></font></td> <td width="50%" bgcolor="#000080" align="right"> </td> </tr> </table> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=iisCART;UID=;Password=;" If Request("Delete") <> "" Then Conn.Execute "delete from OrderItems where OrderID = " & Request("id"), RowsAffected, 1 Conn.Execute "delete from Orders where ID = " & Request("id"), RowsAffected, 1 End If strSQL = "select id, OrderDate, ShipName, ShipCompany, ShipAddress1, ShipAddress2, ShipCity, ShipStateProvince, ShipZipPostal, ShipCountry, ShipEmail, ShippingType, OrderTotal, Name, Company, Address1, Address2, City, StateProvince, ZipPostal, Country, Phone, Email, CCType, CCNumber, CCMonth, CCYear, CCName, Tax, Shipping, PaymentType from Orders order by OrderDate" Set Orders = Conn.Execute(strSQL, RowsAffected, 1) Do While Not Orders.EOF %> <p align="center"> </p> <div align="center"><center> <table border="0" width="600"> <tr> <td align="center" bgcolor="#000080" colspan="8"><font color="#FFFFFF" face="Arial"><strong>ORDER ID: <% = Orders("id")%> submitted on <% = Orders("OrderDate")%></strong></font></td> </tr> <tr> <td align="center" colspan="8"><hr> </td> </tr> <tr> <td bgcolor="#2793D3" colspan="8"><font color="#FFFFFF" face="Arial"><strong>Order Overview:</strong></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Shipping Type: <% = Orders("ShippingType")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Shipping Total: <% = Orders("Shipping")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Payment Type: <% = Orders("PaymentType")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Tax Total: <% = Orders("Tax")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial"> </font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Order Total: <% = Orders("OrderTotal")%></font></td> </tr> <tr> <td colspan="8"><hr> </td> </tr> <tr> <td bgcolor="#2793D3" colspan="8"><font color="#FFFFFF" face="Arial"><strong>Shipping Address Information:</strong></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Name: <% = Orders("ShipName")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Company: <% = Orders("ShipCompany")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Address: <% = Orders("ShipAddress1")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">City, State/Prov: <% = Orders("ShipCity")%>, <% = Orders("ShipStateProvince")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Postal/Zip: <% = Orders("ShipZipPostal")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Country: <% = Orders("ShipCountry")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Email: <% = Orders("ShipEmail")%></font></td> <td bgcolor="#CFDFFC" colspan="6"> </td> </tr> <tr> <td colspan="8"><hr> </td> </tr> <tr> <td bgcolor="#2793D3" colspan="8"><font color="#FFFFFF" face="Arial"><strong>Billing Address Information:</strong></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Name: <% = Orders("Name")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Company: <% = Orders("Company")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Address: <% = Orders("Address1")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">City, State/Prov: <% = Orders("City")%>, <% = Orders("StateProvince")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Postal/Zip: <% = Orders("ZipPostal")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Country: <% = Orders("Country")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Email: <% = Orders("Email")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Phone: <% = Orders("Phone")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Credit Card Type: <% = Orders("CCType")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">Expiry Date: <% = Orders("CCMonth")%>/<% = Orders("CCYear")%></font></td> </tr> <tr> <td bgcolor="#CFDFFC" colspan="2"><font face="Arial">Name On Card: <% = Orders("CCName")%></font></td> <td bgcolor="#CFDFFC" colspan="6"><font face="Arial">CC Number: <% = Orders("CCNumber")%></font></td> </tr> <tr> <td colspan="8"><hr> </td> </tr> <tr> <td bgcolor="#2793D3" colspan="8"><font color="#FFFFFF" face="Arial"><strong>Order Details:</strong></font></td> </tr> <tr> <td bgcolor="#CFDFFC"><font face="Arial">ITEM ID:</font></td> <td bgcolor="#CFDFFC"><font face="Arial">Name:</font></td> <td bgcolor="#CFDFFC"><font face="Arial">Quantity:</font></td> <td bgcolor="#CFDFFC" colspan="5"><font face="Arial">Properties:</font></td> </tr> <% strSQL = "select Items.ItemID, ItemName, Quantity, Property1, Property2, Property3, Property4, Property5 from Items, OrderItems where OrderItems.ItemID = Items.ItemID and OrderID = " & Orders("id") Set Items = Conn.Execute(strSQL, RowsAffected, 1) Do While Not Items.EOF %> <td bgcolor="#CFDFFC"><% = Items("ItemID")%></TD><td bgcolor="#CFDFFC"><% = Items("ItemName")%></TD><td bgcolor="#CFDFFC"><% = Items("Quantity")%></TD><td bgcolor="#CFDFFC"><% = Items("Property1")%> </TD><td bgcolor="#CFDFFC"><% = Items("Property2")%> </TD><td bgcolor="#CFDFFC"><% = Items("Property3")%> </TD><td bgcolor="#CFDFFC"><% = Items("Property4")%> </TD><td bgcolor="#CFDFFC"><% = Items("Property5")%> </TD><TR> <% Items.MoveNext Loop %> <tr> <td colspan="8"><FORM METHOD=GET ACTION="DisplayOrders.asp" NAME="DisplayOrders"> <INPUT TYPE=HIDDEN NAME=ID VALUE="<% = Orders("id")%>"> <INPUT TYPE=SUBMIT NAME=Delete VALUE=Delete> </FORM></p> </form> </td> </tr> </table> </center></div> <% Orders.MoveNext Loop %> <p align="center"> </p> <table WIDTH="100%" CELLPADDING="3" CELLSPACING="0" BORDER="0"> <tr> <td width="50%" bgcolor="#000080"><font color="#FFFFFF" face="Arial"><small>© Corporate Web Solutions 1998, 1999.</small></font></td> <td width="50%" bgcolor="#000080" align="right"> </td> </tr> </table> </body> </html> |
Methods / Properties / Objects used: |
None |
Description / Comments: |
DisplayOrders.asp is pure ASP script provided as an example of an interface to the orders. One could have orders submitted through SSL and then view them back through SSL using this interface, print them for fullfillment and then delete them all using a web interface. |
© Corporate Web Solutions 1998, 1999. | ![]() |