Ayuda con Do While

[Maxon]

Tengo este codigo.... pero los resultados se me multiplican....

Como puedo hacer para evitarlo???

Gracias

SQL="SELECT * FROM categorias, 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>"

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
%>

[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
%>