<% dim sdquery
sdquery="SELECT idCategory, categoryDesc FROM categories WHERE idParentCategory=1 and idCategory>1 and iBTOhide=0 ORDER BY priority"
set rsSideCatObj=conlayout.execute(sdquery)
if err.number <> 0 then
response.write " "
else
if rsSideCatObj.eof then
else
Do until rsSideCatObj.eof
sdIdCategory = rsSideCatObj("idCategory")
sdCategoryDesc = rsSideCatObj("categoryDesc") %>
<%
rsSideCatObj.movenext
loop
set rsSideCatObj=nothing
end if
end if %>
<% 'BTO ADDON-S
If scBTO=1 then
If iBTOQuote=1 then %>
<% if session("idCustomer")="0" or session("idCustomer")="" then %>
<% else %>
<%if scWL="-1" then%>
<%end if%><%End If
End if
'BTO ADDON-E %>
<% end if %>
