tambien es muy bueno lo que dice Myakire, verificar que tengas resultados, podrías poner un aviso, algo así:
Código:
Response.Write("<select name=""sub_area_id"" class=""input"" id=""sub_area_id"">")
If Rs.eof then
Response.write("<option value="">"Sin Opciones"</option>")
else
Do While Not Rs.EOF
Rsubaid=Rs("sub_area_id")
Rsubanom=Rs("sub_area_nombre")
Response.write("<option value="&Rsubaid&">"&Rsubanom&"</option>")
Rs.MoveNext
Loop
end if