Прокрутите набор результатов и добавьте строку с запятой в ASP Classic

Question

Вот мой ASP Classic:

set irs  = recordset(sql,PageDB)            
    if not irs.eof then

        dim new_list
        new_list = ""

        do while not irs.eof

            'Add irs("name") to new_list and separate by comma      

        irs.movenext

        loop

    end if

kill(irs)

Как мне добавить irs(name) к new_list и разделить запятой?

Answer 1

set irs  = recordset(sql,PageDB)            
    if not irs.eof then

        dim new_list
        new_list = ""

        do while not irs.eof

            new_list = new_list & irs("name") & ","     

        irs.movenext

        loop

        new_list = left(new_list, len(new_list)-1)

    end if

kill(irs)