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&#153;
Order Manager</small></font></td>
<td width="50%" bgcolor="#000080" align="right">&nbsp;</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">&nbsp;</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">&nbsp;</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">&nbsp;</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")%>&nbsp;</TD><td bgcolor="#CFDFFC"><% = Items("Property2")%>&nbsp;</TD><td bgcolor="#CFDFFC"><% = Items("Property3")%>&nbsp;</TD><td bgcolor="#CFDFFC"><% = Items("Property4")%>&nbsp;</TD><td bgcolor="#CFDFFC"><% = Items("Property5")%>&nbsp;</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">&nbsp;</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">&nbsp;</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.