Today's Special Categories <% Dim resultset,sqlstring,conn,hassubcategory ShopOpenDatabase conn sqlstring ="Select * from categories where highercategoryid=0 and cathide is null " If getconfig("xselectproductsbylanguage")="Yes" and getsess("language")<>"" then sqlstring=sqlstring & " and (catlanguage='" & getsess("language") & "'" sqlstring=sqlstring & " or catlanguage is null)" end if sqlstring=sqlstring & " order by " & Getconfig("xsortcategories") Set resultset=conn.execute(sqlstring) While Not resultset.EOF hassubcategory=resultset("hassubcategory") If isnull(hassubcategory) then hassubcategory="" end if if hasSubcategory ="" then response.Write "" & resultset("catdescription") & " " else response.Write "" & resultset("catdescription") & "... " end if resultset.MoveNext Wend ShopCloseDatabase conn %> Shop By Price Under $10 $10 - $30 $30 - $50 $50 - $100 $100 - $250 $250 - $500 +500 Customer Comments