变量缺少值

试试这个：

Dim aDo while not rows.Eof    a = rows.Collect("specialty")    Response.Write("<option value=""" & Replace(a, """", "&quot;") & """>" & a & "</option>")    rows.MoveNextLoop