<%
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 = 'Cue' or PRODUCT_TYPE = 'Shaft') 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 = 'Cue' or PRODUCT_TYPE = 'Shaft') 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
if rs.Fields("THUMB_IMAGE") <> "" then
response.write "
"
end if
%>
Model Number: <%= rs.Fields("MODEL_NUMBER") %>
Retail Price: $<%= rs.Fields("RETAIL_PRICE") %>
<%
if rs.Fields("SALE_FLAG") = "y" then
csprice = rs.Fields("SALE_PRICE")
else
csprice = rs.Fields("CS_PRICE")
end if
set found = 1
%>
Our Price: $<%= csprice %>
<%
if rs.Fields("SALE_FLAG") = "y" then
response.write " (sale)"
end if
%>
<%
if rs.Fields("DESCRIPTION") <> "" then
response.write "
