递归求子树的函数哪里错了?高手请进

[gyzrich]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="common/inc/conn.asp"-->
<%
public sub findtree(oid)
oid=cint(oid)
'strsql="select *,(select * from classTree where poid="&oid&") as children from classTree T where poid="&oid&" and oid <> "&oid
strsql="select Oid,Poid,Nodename (select Oid,Poid,NodeName from classTree where poid=T.oid) as children from classTree T where poid="&oid&" and oid <> "&oid
'response.write strsql
set objRSsub=server.createobject("adodb.recordset")
objRSsub.open strsql,conn,1,3
response.end
do while not objRSsub.eof
IF objRSsub("children")=0 then
response.write objRSsub("nodeName")&"<br>"
Else
findtree(objRSsub("oid"))
End IF
objRSsub.movenext
loop
End sub

DIM rs,strSQL
set rs=server.createobject("adodb.recordset")
strSQL="select *,(select count(*) from classTree where poid = oid) as children from classTree where poid=oid"
rs.open strSQL,conn,3,3
do while not rs.eof
if rs("children")>0 then
findtree(oid)
end if
rs.movenext
loop
%>

[gyzrich]

表结构：
CREATE TABLE classTree (
OID VARCHAR(20) NOT NULL,
POID VARCHAR(20) NOT NULL,
NodeName VARCHAR(255) NULL,
OrderId INTEGER NULL,
);

ALTER TABLE ClassTree
ADD ( PRIMARY KEY (OID) ) ;

[gyzrich]

出错提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 所编写的一个子查询可在不在主查询的 FROM 子句中使用的 EXISTS 保留字的情况下返回多个字段。 修改子查询的 SELECT 语句以只要求返回一个字段。

[gyzrich]

ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

[kyc]

这样复杂的sql语句随看的懂呀。

function OutPut()


end function

[windancer]

select语句想法好像有错误

[orson]

sql原因

[windancer]

where poid = oid
这样的子句不对吧