Microsoft VBScript runtime error '800a0007'

[Ragol1]

please help

Out of memory: 'Server.CreateObject'

/includes/sidebar/expanded.asp, line 107


set MyObjC = Server.CreateObject("ADODB.Recordset&quot
MyObjC.open "SELECT navbarid,status,parentid FROM NavBar where status = 1 and NavBarID = " & curNavBarID, MyDSN, adOpenStatic, adLockReadOnly
if not MyObjC.EOF then
if IsNull(MyObjC("navbarid&quot) then
ExpandBar = false
exit function
end if
if MyObjC("parentid&quot = 0 then
if MyObjC("navbarid&quot = curBaseParent then
ExpandBar = true
exit function
else
ExpandBar = false
exit function
end if
end if
Expandbar = Expandbar(MyObjC("parentid&quot, curBaseParent)
end if
end function


navbarid = Request("navbarid&quot
if navbarid = "" then
navbarid = 1
end if

 

[Veep]

Couple of things:
1. Don't use a DSN. Use the native OLE DB provider for your database.

http://www.able-consulting.com/ADO_Conn.htm

2. You don't need a recordset object for what you are trying to accomplish. Get rid of it. Makes for less code & easier debugging.

strSql="SELECT navbarid,status,parentid FROM NavBar where " _
& " status = 1 and NavBarID = " & curNavBarID
set conn=Server.createobject("ADODB.CONNECTION&quot
conn.open YourConnectionString
set rs=conn.execute(strSql)
IF not rs.eof then...

3. What is this? Expandbar = Expandbar(MyObjC("parentid&quot, curBaseParent). A function? Are you sure it's not going into an endless loop?