Mystisk fel...

Jag har kollat igenom denna kod ganska länge nu efter fel, felet är att bara två av 4 banners skrivs ut i topplistan.
Här kommer koden:

<%

		Set Connect = Server.CreateObject("ADODB.Connection") 
		Set RecSet = server.createobject("ADODB.Recordset")
		Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/topplista.mdb")

SQL = "SELECT * From users Order By [in] DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

i = 0
do until i = 20
i = i +1			

Dim om, Banner
If NOT RecSet.EOF Then
om = RecSet("om")
Banner = "<a href='topplista.asp?vad=ut&id="&RecSet("ID")&"' target='_blank'><img src='"&RecSet("banner")&"' border=0 width=460 height=68></a>"
in_ = recset("in")
ut_ = recset("ut")
recset.movenext	

Else
om = ""
banner = "<a href=""registrera.asp""><img src=""joina.gif"" border=""0"" width=460 height=68></a>"
in_ = "&nbsp"
ut_ = "&nbsp"

End If	
%>

<table width="640">

<tr width="640">

<td width="30" style="BORDER-RIGHT: #999999 1px dotted">
<font face="Verdana" size="2">
<b>&nbsp;<%=i%></b>
</td>

<td width="10">

</td>

<td width="480">

<%=Banner%><br>
<font face="Verdana" size="1">

</td>

<td width="50" style="BORDER-LEFT: #999999 1px dotted">
<font face="Verdana" size="1"><center>

<%=in_%>

</td>

<td width="50">
<font face="Verdana" size="1"><center>
<%=ut_%>
</td>
</tr>

<tr width="640">

<td width="30" style="BORDER-RIGHT: #999999 1px dotted">
<font face="Verdana" size="2">
<b>&nbsp;</b>
</td>

<td width="10">

</td>

<td width="480"><font face="Verdana" size="1">
<i><%=om%><i><br><br><br>

</td>

<td width="50" style="BORDER-LEFT: #999999 1px dotted">
<font face="Verdana" size="1"><center>
&nbsp;
</td>

<td width="50">
<font face="Verdana" size="1"><center>
&nbsp;
</td>
</tr>
</table>

<%
if NOT recset.eof then
RecSet.MoveNext
end if

loop

	Connect.Close
	
	Set Connect = Nothing
	Set RecSet = Nothing

%>

Hoppas någon hittar något fel.