SQL Server record set temp table closing too early?

[jnkewa777]

When I run the SQL through SQL Server 2008 it works just fine. However when I add it to a classic ASP web page and then call it from there it seems to break. I am not sure what I am missing?\[code\]sql = ""sql = sql & " DECLARE @listStr VARCHAR(MAX)"sql = sql & " DECLARE @temp TABLE ("sql = sql & " DistID varchar(30),"sql = sql & " FName varchar(30),"sql = sql & " LName varchar(30),"sql = sql & " RankID int, "sql = sql & " PSV int,"sql = sql & " ShipCountry varchar(30),"sql = sql & " ShipState varchar(30) )"sql = sql & " INSERT INTO @temp"sql = sql & " EXEC [dbo].[MSGGetList]"sql = sql & " @List = N'" & request("report_type") & "',"sql = sql & " @DistID = " & Session("DistributorID") & ","sql = sql & " @BusCtrID = 1,"' Autoship Filter ParamsIf request("autoship") <> "" Then sql = sql & " @FilterAutoship = '" & request("autoship") & "',"Else sql = sql & " @FilterAutoship = NULL,"End Ifsql = sql & " @ItemID = " & request("item_id") & ","' Order Filter ParamsIf request("orders") <> "" Then sql = sql & " @Orders = '" & request("orders") & "',"Else sql = sql & " @Orders = NULL,"End IfIf request("minvol") <> "" Then sql = sql & " @MinVol = " & request("minvol") & ","Else sql = sql & " @MinVol = NULL,"End IfIf request("minpostamt") <> "" Then sql = sql & " @MinPostAmt = " & request("minpostamt") & ","Else sql = sql & " @MinPostAmt = NULL,"End IfIf request("startdate") <> "" Then sql = sql & " @DateStart = '" & request("startdate") & "',"Else sql = sql & " @DateStart = NULL,"End IfIf request("enddate") <> "" Then sql = sql & " @DateEnd = '" & request("enddate") & "',"Else sql = sql & " @DateEnd = NULL,"End If' Location Filter ParamsIf request("country") <> "" Then sql = sql & " @Country = '" & request("country") & "',"Else sql = sql & " @Country = NULL,"End IfIf request("region") <> "" Then sql = sql & " @Region = '" & request("region") & "',"Else sql = sql & " @Region = NULL,"End If' Rank Filter ParamsIf request("rankid") <> "" Then sql = sql & " @RankID = '" & request("rankid") & "',"Else sql = sql & " @RankID = NULL,"End If'Do Not send listIf request("DoNotSend") <> "" Then sql = sql & " @Exempt = '" & request("DoNotSend") & "',"End If' Volume Filter Paramssql = sql & " @MinPV = " & request("min_pv") & ","sql = sql & " @MaxPV = " & request("max_pv") & ","sql = sql & " @MinGV = " & request("min_gv") & ","sql = sql & " @MaxGV = " & request("max_gv") & ","sql = sql & " @MinLBVRBV = NULL"sql = sql & " SELECT @listStr = COALESCE(@listStr+',' ,'') + DistID FROM @temp"sql = sql & " SELECT @listStr AS ToList"stopresponse.write(sql & "<br />")Set rsToList = GetRecordSet(sql)response.Write(rsToList("ToList"))\[/code\]When I step through the code and look at \[code\]rsToList\[/code\] it says:\[quote\] Operation not allowed when object is closed\[/quote\]Any idea what I am missing here ?!EDIT:\[code\]Function getRecordset(strSQL) If Application("DebugSQL") Then Call WriteSQL(strSQL) End If 'Create Database Connection Set FunctionDBConn = Server.CreateObject("ADODB.Connection") FunctionDBConn.ConnectionTimeout = 180 FunctionDBConn.Open(Application("DB_ConnectionString")) Set adoRS = Server.CreateObject("ADODB.Recordset") adoRS.CursorLocation = 3 adoRS.LockType = 4 'Create Recordset adoRS.Open strSQL, FunctionDBConn Set adoRS.ActiveConnection = Nothing Set GetRecordset = adoRS 'Close Database Connection FunctionDBConn.Close Set FunctionDBConn = Nothing End Function\[/code\]