[ASP] ASP에서 DB 결과 객체를 함수에 전달하여 사용하기

function GetStatusTxt(obj)
    Dim strResult : strResult = "" 

    if obj("price") > 0 and obj("status") = 1 then
        strResult = "완료"
    else
        strResult = "미완료"
    end if 

    GetStatusTxt = strResult
end function 
    
set objResult = server.createobject("adodb.recordset")
dbQeury = "SELECT price, status FROM viewOrder"
objResult.open dbQeury,dbConn,1

if objResult.bof = true then
    response.write "데이터가 없다"
else
    do until objResult.eof
        response.write GetStatusTxt(objResult) & "<br/>"    
        objResult.MoveNext
    Loop
end if

objResult.Close
set objResult = nothing