%Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/cliffharveyangling.mdb") IF Request.Querystring("secondgroup")="" THEN set rs=conn.execute("SELECT * FROM products where maingroup = '" & Request.Querystring("maingroup") & "' ORDER BY item") IF Request.Querystring("secondgroup")>"" THEN set rs=conn.execute("SELECT * FROM products where maingroup = '" & Request.Querystring("maingroup") & "' AND secondgroup = '" & Request.Querystring("secondgroup") & "' ORDER BY item") IF Request.Querystring("search")>"" AND Request.Querystring("category")="all" THEN set rs=conn.execute("SELECT * FROM products where descriptiontext LIKE '%"&Request.Querystring("search")&"%' OR item LIKE '%"&Request.Querystring("search")&"%' OR secondgroup LIKE '%"&Request.Querystring("search")&"%'") IF Request.Querystring("search")>"" AND Request.Querystring("category") <>"all" THEN set rs=conn.execute("SELECT * FROM products where maingroup = '" & Request.Querystring("category") & "' AND descriptiontext LIKE '%"&Request.Querystring("search")&"%' OR maingroup = '" & Request.Querystring("category") & "' AND item LIKE '%"&Request.Querystring("search")&"%' OR maingroup = '" & Request.Querystring("category") & "' AND secondgroup LIKE '%"&Request.Querystring("search")&"%'") set rs2=conn.execute("SELECT DISTINCT secondgroup FROM products where maingroup = '" & Request.Querystring("maingroup") & "' ORDER BY secondgroup") %>
|