Due cicli non va?

[waitec401]

Devo incolonnare dei record con due tabelle una sotto l'altra in du celle di una tabella che le contiene entrabe, ma nella seconda non visualizzo nulla ecco il mio codice:::

Response.Write "<table width=""360"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & VBCrLf  
iColonne = 5   
i = 0 
Do While Not ObjRs.EOF  i = i + 1    
If i = 1 Then
Response.Write "<tr>" & VBCrLf
 End If  
Response.Write "<td width=""72"" height=""70""><div align=""center"">[img][/img]</div></td>" & VBCrLf
ObjRs.MoveNext
If ObjRs.EOF AND i < iColonne Then
 For j = 1 To iColonne - i
Response.Write "<td width=""72"" height=""70""> </td>" & VBCrLf
 Next 
Response.Write "</tr>" & VBCrLf
ElseIf i MOD iColonne = 0 Then
Response.Write "</tr>" & VBCrLf
i = 0 
End If
Loop
Response.Write "</table>" & VBCrLf
%> 			
			
          </td>
        </tr>
        <tr> 
          <td bgcolor="#000000" height="1">[img]immagini/pixel.gif[/img]</td>
        </tr>
        <tr> 
          <td>
<%
Response.Write "<table width=""360"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & VBCrLf  
iColonne = 2   
i = 0 
Do While Not ObjRs.EOF  i = i + 1    
If i = 1 Then
Response.Write "<tr>" & VBCrLf
 End If  
Response.Write "<td height=""25"" width=""180"">[img][/img]http://"&ObjRs("str_nomegioc")&" "&O...ognomegioc")&"</td>" & VBCrLf
ObjRs.MoveNext
If ObjRs.EOF AND i < iColonne Then
 For j = 1 To iColonne - i
Response.Write "<td width=""180"" height=""25""> </td>" & VBCrLf
 Next 
Response.Write "</tr>" & VBCrLf
ElseIf i MOD iColonne = 0 Then
Response.Write "</tr>" & VBCrLf
i = 0 
End If
Loop
Response.Write "</table>" & VBCrLf
%>

Mi fa vedere benissimo la prima tabella ma la seconda cioè quella sotto si ferma..

COME MAI?==