Loop problemer

Hejsa!!

Den looper bare i en uendelighed :o(

------->


<%
i = 0
do while not RS_varer.eof
%> 

<%
If i = 0 Then
%>
<%
Set RS_picture1 = Server.CreateObject("ADODB.RecordSet")
RS_picture1.open "Select * From [billeder] WHERE billednummer = " & rs_varer("billede") &"", Conn_market, 1, 3
%>

  <tr>
    <td width="15%" height="10" bgcolor="#FFFFFF"><a href="vis_vare.asp?varenummer=<%=rs_varer("varenummer")%>"><img src="img/<%=RS_picture1("filnavn")%>" border="0" width="70" height="70"></a></td>
    <td width="43%" height="10" bgcolor="#FFFFFF"><a href="vis_vare.asp?varenummer=<%=rs_varer("varenummer")%>"><%=RS_varer("varenavn")%></a></td>
    <td width="11%" height="10" bgcolor="#FFFFFF"></td>
    <td width="15%" height="10" bgcolor="#FFFFFF"></td>
    <td width="20%" height="10" bgcolor="#FFFFFF"></td>
  </tr>
<%
i = 1
Else
%> 
 
 
<%
Set RS_picture2 = Server.CreateObject("ADODB.RecordSet")
RS_picture2.open "Select * From [billeder] WHERE billednummer = " & rs_varer("billede") &"", Conn_market, 1, 3
%>

  <tr>
    <td width="15%" height="10" bgcolor="#CCCCCC"><a href="vis_vare.asp?varenummer=<%=rs_varer("varenummer")%>"><img src="img/<%=RS_picture2("filnavn")%>" border="0" width="70" height="70"></a></td>
    <td width="43%" height="10" bgcolor="#CCCCCC"><a href="vis_vare.asp?varenummer=<%=rs_varer("varenummer")%>"><%=RS_varer("varenavn")%></a></td>
    <td width="11%" height="10" bgcolor="#CCCCCC">&nbsp;</td>
    <td width="15%" height="10" bgcolor="#CCCCCC">&nbsp;</td>
    <td width="20%" height="10" bgcolor="#CCCCCC">&nbsp;</td>
  </tr>
<%
i = 0
End If
%> 
<%
Loop
%>