fel på min listruta

jag hämtar info från tabel städer och skriver ut i en listruta

i tabelen har jag över 50 olika städer

men jag får bara dom 5 första posterna

Set RecSet3 = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * From stader2"
Set RecSet3 = Connect.Execute(SQL)

stad =""
s="7"
Do Until RecSet3.EOF

stad = stad & \_
"\<OPTION VALUE ='" & RecSet3("stadid") & "'"
if cINT(RecSet("stadsnamn")) = cINT(RecSet3("stadid")) then
stad = stad & "selected"
s = "1"
end if
stad = stad & "\>" & \_
 RecSet3("namn") & \_
"\</OPTION\>"

RecSet3.MoveNext
Loop
if not s = 1 then

stad = stad & "<OPTION value=0 selected>Nya stader</option>"

end if
RecSet3.close
______________________

<select name="stadsnamn" id=stadsnamn class="listrutor"> <%=stad %> </SELECT>