<%On Error Resume Next%> <% id = Request.QueryString("ID") Dim thePATH,theDB,DBTable,rsData,dbConn,dbRec,itemNumber itemNumber = itemsInCart thePATH = "d:\inetpub\vhosts\merrifield.com\httpdocs\products\" theDB = "product_store.mdb" DBTable = "products" sqlRequest = "SELECT * FROM " & DBTable & " WHERE ID =" & id 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

<%if itemNumber=0 OR itemNumber>1 then%> There are <%=itemNumber%> items in your shopping cart. <%else%> There is 1 item in your shopping cart. <%end if%>

<%if itemNumber>0 then%>

<%end if%>

<%=dbRec("Title")%>
<%=dbRec("Name")%>

<%If (dbRec("InStock")) Then%>

BUY NOW FOR US <%=FormatCurrency(dbRec("Price"),2)%>!

<%End If%> <%=dbRec("Description")%> <%If (dbRec("InStock")) Then%> <%if isincart(dbRec("ID")) Then%> ">

<%Else%> ">

<%End If%> <%End If%>

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