<% set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../fpdb/CS.mdb") conn.Open DSNtemp sqlstmt = "SELECT * from PRODUCT where ACTIVE_FLAG = 'y' and SALE_FLAG = 'y' order by PRODUCT_TYPE" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conn, 3, 3 found = 0 On Error Resume Next rs.MoveFirst do while Not rs.eof %> " end if %> <% if rs.Fields("DESCRIPTION") <> "" then response.write "" end if %>

<% if rs.Fields("THUMB_IMAGE") <> "" then response.write "
Model Number: <%= rs.Fields("MODEL_NUMBER") %>	Retail Price: $<%= rs.Fields("RETAIL_PRICE") %>	<% if rs.Fields("SALE") = "y" then set csprice = rs.Fields("SALE_PRICE") else set csprice = rs.Fields("CS_PRICE") end if set found = 1 %> Our Sale Price: $<%= csprice %>
Product Description: " + rs.Fields("Description") + "

<% rs.MoveNext loop if found = 0 then response.write "