게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

위에거는 DBhelper 소스이고 아래거에서 에러가나는데 뭐가 문제 인지 모르겟습니다.
처음에는 활성연결 속성오류라고 해서 여기저기 찾아봐서 고쳤는데
이것은 도저희 못하겟드라구여;
답변좀 주심 감사하겟습니다.


Public Function ExecSPReturnRS(spName, params, connectionString)
If IsObject(connectionString) Then
If connectionString is Nothing Then
If DefaultConnection is Nothing Then
Set DefaultConnection = CreateObject("ADODB.Connection")
DefaultConnection.Open DefaultConnString
End If
Set connectionString = DefaultConnection
End If
End If

Set rs = CreateObject("ADODB.RecordSet")
Set cmd = CreateObject("ADODB.Command")

cmd.ActiveConnection = connectionString
cmd.CommandText = spName
cmd.CommandType = adCmdStoredProc
Set cmd = collectParams(cmd, params)
'cmd.Parameters.Refresh

rs.CursorLocation = adUseClient
rs.Open cmd, ,adOpenStatic, adLockReadOnly

For i = 0 To cmd.Parameters.Count - 1
If cmd.Parameters(i).Direction = adParamOutput OR cmd.Parameters(i).Direction = adParamInputOutput OR cmd.Parameters(i).Direction = adParamReturnValue Then
If IsObject(params) Then
If params is Nothing Then
Exit For
End If
Else
params(i)(4) = cmd.Parameters(i).Value
End If
End If
Next

Set cmd.ActiveConnection = Nothing
Set cmd = Nothing

If rs.State = adStateClosed Then
Set rs.Source = Nothing
End If

Set rs.ActiveConnection = Nothing

Set ExecSPReturnRS = rs
End Function



=====================================================



Page = injec(Request("page"))
con = injec(Request("con"))
ser = injec(Request("ser"))

PageSize = 10

if page="" then
page=1
end If

Set DBHelper = new clsDBHelper

Dim SpName : SpName = "board_list"

Dim paramInfo(6)
paramInfo(0) = DBHelper.MakeParam("@Page",adInteger,adParamInput,10,Page)
paramInfo(1) = DBHelper.MakeParam("@PageSize",adInteger,adParamInput,10,PageSize)
paramInfo(2) = DBHelper.MakeParam("@con",adVarWChar,adParamInput,50,con)
paramInfo(3) = DBHelper.MakeParam("@ser",adVarWChar,adParamInput,50,ser)

paramInfo(4) = DBHelper.MakeParam("@TotalRecordCnt",adInteger,adParamInput,,0)
paramInfo(5) = DBHelper.MakeParam("@TotalPage",adInteger,adParamInput,,0)
paramInfo(6) = DBHelper.MakeParam("@arrNum",adInteger,adParamOutput,,0)

Set Rs = DBHelper.ExecSPReturnRs(SpName,paramInfo,Nothing)

TotalRecordCnt = DBHelper.GetValue(paramInfo, "@TotalRecordCnt")
TotalPage= DBHelper.GetValue(paramInfo, "@TotalPage")
arrNum= DBHelper.GetValue(paramInfo, "@arrNum")

If NOT RS.EOF Then '' <<<<<<<<<<<<<<<<<<<<<<<<<<<<,여기에서 에러가 납니다
Dim ArrList : ArrList = Rs.GetRows()
End If

rs.Close
Set rs = Nothing

objDBHelper.Dispose
Set objDBHelper = Nothing


==

ADODB.Recordset 오류 '800a0e78'

개체가 닫혀있으면 작업이 허용되지 않습니다.

/list.asp, 줄 34