" end if Conn.Close Set conn = nothing %>

<% listbrand = "null" getbrand = request.querystring("getbrand") if getbrand <> "" then listbrand = getbrand end if 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 = 'Case' order by MODEL_NUMBER" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conn, 3, 3 %> Please choose a brand to view


<% sqlstmt = "SELECT * from PRODUCT where ACTIVE_FLAG = 'Y' and PRODUCT_TYPE = 'Case' and BRAND = '" & listbrand & "' order by MODEL_NUMBER" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conn, 3, 3 set 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 "