<%On Error Resume Next%> <% ' DECLARE VARIABLES dim rsData, itemnum Dim thePATH,theDB,DBTable,dbConn,dbRec thePATH = "d:\inetpub\vhosts\merrifield.com\httpdocs\products\" theDB = "product_store.mdb" DBTable = "products" ' CONNECT TO DB sqlRequest = "SELECT * FROM " & DBTable Set dbConn = Server.CreateObject("ADODB.Connection") Set dbRec = Server.CreateObject("ADODB.RecordSet") dbConn.Open "Provider= Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & thePATH & theDB dbRec.Open sqlRequest, dbConn ' GET THE NUMBER OF ITEMS IN THE CART itemnum=ItemsInCart %>
Products

The following is a listing of items in your shopping cart. Please enter the quantities of the items that you have selected, fill in the billing information and click the "PROCEED TO CHECKOUT" button. Please note that this system does not do real time credit card processing. A form will be generated that you must print out and fax to our offices.

<%Do While NOT(dbRec.EOF)%> <%dbRec.MoveNext%> <%Loop%>
Product Name Price Quantity
<%=dbRec("Title")%> US <%=FormatCurrency(dbRec("Price"),2)%> <% if ( isInCart(dbRec("ID")) ) then %> " size="3" maxlength="3" value="1"> <% else %> " size="3" maxlength="3" value="0"> <% end if %>

Billing Information
Your Name:
Company:
Address:
 
City:
State: (US Residents ONLY):
Providence/Other (Non-US Residents ONLY):
Zip Code:
Country:
Phone:
Fax:

<% dbRec.Close Set dbRec=Nothing dbConn.Close Set dbConn=Nothing %>