Missing value from variable

Answer 1

Try this:

Dim a
Do while not rows.Eof
    a = rows.Collect("specialty")
    Response.Write("" & a & "")
    rows.MoveNext
Loop