레코드셋 읽어서 변수 자동 생성

http://www.mungchung.com/xe/?mid=protip&category=3006&page=2&document_srl=3259

Sub MakeRsVar(pRs)
    dim obj, i : i = 0
    for each obj in pRs.Fields
        Response.Write "Dim db_" & obj.name & "<br>"
    next
    Response.Write "<br>"
    for each obj in pRs.Fields
        Response.Write "db_" & obj.name & " = rs(" & i & ")<br>"
        i = i + 1
    next
End Sub


사용법 간단
Set rs = DBCon.Execute(쿼리문)
Call MakeRsVar(rs)