<%
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
%>
Please note: Some limited quantities of this original driver may still
be available in our inventory. If you are specifically interested in this
original Air Hammer driver, please contact us.