Ayuda con Do While

[Maxon]

PUES HICE ESTO.... duplique esto

SQL="SELECT * FROM tabla"
set Rs = Con.Execute(SQL)

ES CORRECTO

ESTE ES EL CODIGO=============================

SQL="SELECT * FROM estados"
set Rs = Con.Execute(SQL)

RS.movefirst
Response.Write "<select name=""st"">"
Do While not RS.eof
Response.write ("<option>"&RS("st")&"")
RS.movenext
Loop
response.write "</select>"


SQL="SELECT * FROM categorias"
set Rs = Con.Execute(SQL)

RS.movefirst
Response.Write "<select name=""cat"">"
Do While not RS.eof
Response.write ("<option>"&RS("cat")&"")
RS.movenext
Loop
response.write "</select>"

Rs.Close
set Rs = nothing
Con.Close
set Con = nothing
%>