<%'---------------------------------------------------------------
'**** Set SQL search string - dependant on URL query strings. **
'---------------------------------------------------------------
category = validatestring(Request("cat"))
if category = "" then category = "All Products"
if category = "All Products" then
mysqlstring = "SELECT * FROM PRODUCTS order by title;"
elseif category = "sculptures" or category = "murals" or category = "paintings" then
mysqlstring = "SELECT * FROM PRODUCTS WHERE CATEGORY = """ & category & """ order by title;"
else
mysqlstring = "SELECT * FROM PRODUCTS WHERE CATEGORY like ""%" & category & "%"" "
mysqlstring = mysqlstring&"or subcat like ""%" & category & "%"" "
mysqlstring = mysqlstring&"or title like ""%" & category & "%"" "
mysqlstring = mysqlstring&"or description like ""%" & category & "%"" "
mysqlstring = mysqlstring&"or dimensions like ""%" & category & "%"" "
mysqlstring = mysqlstring&"order by title;"
end if
' ORDER BY TITLE Desc;"
'------------------------------------------------
'**** Open DB connection and retrieve results. **
'------------------------------------------------
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
conn.cursorlocation=3
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ProductsDSN
'** Check for errors and end page if error found
If Err.number <> 0 then
response.write Err.description
%>