Case Category
<%
sqllar="select * from CClass where gb='ch' and ParentID=0 order by Orders asc"
set rs = conn.execute ( sqllar )
if rs.bof and rs.eof then
else
ab = 0
do while not rs.eof
%>
<%
sql="select * from cclass where ParentID="&rs("ID")&" order by orders asc"
set rsmid = conn.execute ( sql )
if rsmid.bof and rsmid.eof then
gid=cint(request("Parentid"))
cid=rs("ID")
%>
- " <% if gid=cid then %>class="cur"<% End If %>><%= rs("classname") %>
<%
end if
rsmid.close
set rsmid = nothing
%>
<%
rs.movenext
ab = ab + 1
loop
end if
rs.close
set rs = nothing
%>