求救！asp调试报错：内存不足

Question

asp程序调试连续出现以下错误提示：

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A0007)
内存不够: 'Conn.ExeCute'
/工作工程/shuizhu/System/Manage/News_Add.asp, 第 645 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)

请高手不吝赐教，感激不尽！！
代码是这样的：
'生成栏目树
Sub CreateClassTree1(ParentId,CuClassId)
Dim Sql
Sql="Select * From ClassList Where Parent="&ParentId
Dim Rs
Set Rs=Conn.ExeCute(Sql)
Dim radioSelected
While Not Rs.Eof
If CuClassId=Rs("Id") Then
radioSelected="checked"
Else
radioSelected=""
End If
If Rs("Parent")=SysAdmin.AdminTopClassId Then
Response.Write " root1.CreateNode("&Rs("Id")&",-1,""<INPUT "&radioSelected&" TYPE=\""radio\"" NAME=\""radioBoxItem\"" value=\"""&Rs("Id")&"\"">"&Rs("Title")&""")" & vbCrLf
Else
Response.Write " root1.CreateNode("&Rs("Id")&","&Rs("Parent")&",""<INPUT "&radioSelected&" TYPE=\""radio\"" NAME=\""radioBoxItem\"" value=\"""&Rs("Id")&"\"">"&Rs("Title")&""")" & vbCrLf
End If
CreateClassTree1 Rs("Id"),""
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
End Sub
我现在只需要“Parent”为64的那一项，但将select语句改为以下：Sql="Select * From ClassList Where Parent=64"后就出“内存不够”的错误.

Answer 1

看看程序里是不是有死循环?还有就是用 do while ... loop,之间读数据时,没有移动指针 rs.movenext?
如果都不是就要把程序发上来看看了.

Answer 2

这个是代码错误，应该出现死循环的情况，你看一下代码的654行，是否有错误！

Answer 3

因该是楼上说的吧可能有死循环。自己看看循环的部分。