Select och Response.write

Jag har lite problem här nu när jag kör denna koden<code>

   <%
   file = Server.MapPath("db.mdb") 
   Set Connect = Server.CreateObject("ADODB.Connection") 
   Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 

   Set RecSet = Server.CreateObject("ADODB.Recordset") 
   SQL = "SELECT * FROM kats ORDER BY fldnamn DESC" 
   RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 
  
   fldadress = RecSet("fldadress")
   fldnamn = RecSet("fldnamn")
   
   Response.write "<select name=kat class=knapp>"
   Do until RecSet.EOF
   Response.write "<option value="& fldadress &">"& fldnamn &"</option>"
   
   RecSet.MoveNext 
   Loop
   
   RecSet.Close 
   Set RecSet = Nothing 
   Connect.close 
   
   Response.write "</select>"
   %>

Så är det bara en poste som loopas igenom t.ex. säg att fldnamn är post2, post2 och post 3 så visad det så här:

post1
post1
post1

varför jag har juh Recset.MoveNext ?