당신의 꿈을 응원 합니다.

Rs 에 계속 접근하기 보다는 배열에 복사에서 사용하는 것이 DB의 부담을 줄일 수 있다고 한다!!

Set Rs2 = Db.Execute(query2)

Dim arrRs '배열 선언

If Not Rs2.EOF Then arrRS = Rs2.GetRows()  '배열에 복사

Rs2.close

Set Rs2 = Nothing




If IsArray(arrRS) Then

  For i = LBound(arrRS, 2) To UBound(arrRS, 2)

    Response.Write arrRS(0, i)

    Response.Write arrRS(1, i)

 Next




Erase arrRS

End if