我想做一个无极分类，哪位高人进来挑战下啊？

<%
  dim p  
  Function SelectClassPath(ID)
  sql = "select ID,ParentID,ClassName from Classsys where ID="&ID
set rs = conn.execute(sql)  
if rs("ParentID") <> 0 then
p = SelectClassPath(rs("ID"))&"<a href='#'>"&rs("ClassName")&"</a>"
else
p = p&" >> <a href='#'>"&rs("ClassName")&"</a>" 
end if
rs.close
SelectClassPath = p
  End Function
%>

这段代码的意思是想根据ID查询出该类完整路径，可是 if rs("ParentID") <> 0 then 这句话发生意外 … 怎么办？

矮油 无极分类到底怎么做 ？

发生什么意外？？ 地震了？

把错误信息打印出来，在 set rs = conn.execute(sql) 之后
if err.number<>0 then
response.write err.description
end if