<%On Error Resume Next%> <% Dim thePATH,theDB,DBTable,rsData,dbConn,dbRec thePATH = "d:\inetpub\wwwroot\merrifield.com/products\" theDB = "product_store.mdb" DBTable = "products" 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 %>
Products

Welcome to the Merrifield Consulting Group products page. To view information about a product, add a product to your shopping cart, or remove a product from your shopping cart simply click on its title from the list below. Once you have added items to your shopping cart, click the "VIEW YOUR SHOPPING CART" button to complete the order process.

Reseller List

= Indicates that this item is in your shopping cart.

<% do while not dbRec.eof %> <% dbRec.MoveNext %> <% loop %>

Title Price
<% if isInCart(dbRec("ID")) then %> <% else %> <% end if %> "><%=dbRec("Title")%> <% if dbRec("InStock") Then %> US <%=FormatCurrency(dbRec("Price"),2) %> <%else%> Out of Stock! <%end if%>

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