<% 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 PRODUCT_TYPE = 'Other' 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") %>.00	<% if rs.Fields("SALE_PRICE") > 0 then set csprice = rs.Fields("SALE_PRICE") & " sale" else set csprice = rs.Fields("CS_PRICE") end if set found = 1 %> Our Price: $<%= csprice %>.00
Product Description: " + rs.Fields("Description") + "

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