Untagelse opstod

Hvorfor siger den untagelse opstod ? Mit script virker fint nok med 2 men når der kommer over 2 i databasen kommer der den fejl... mit script er således:

<%

Set conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={MySql}; SERVER=webonnet; DATABASE=cup; UID=root; PWD="
Conn.Open strConnect

Set rs = Conn.Execute("Select * from Tilmeldte")

If rs.EOF then

Response.Write "Der er ingen der tilmeldte endnu!"

else

Response.Write "<center><font style='font:10 verdana'>"

Do

Response.Write "<b>" & rs("tag") & "</b> vs. <b>" & rs.Movenext & rs("tag") & "</b><br>"

rs.Movenext
Loop While Not rs.EOF

Response.Write "</font></center>"

end if

Conn.Close
Set Conn = Nothing

%>