Need to come Out Of DO loop when my recordset gets empty

[Gurvinder Bains]

Ok here is my Problem.

I am trying to place some data from my recordset onto the page ,
Just 4 in a row and next four should come in second line
But the problem is my recordset gets empty befor the end of my second line and i get

error '80020009'
/asp/index.asp, line 229


The code is as follows

<table width="450" cellpadding="2" cellspacing="2">
<% '=-=--=-=-=-=-=-=-=-=-===-==-==-=-==-=-=-=-=-=-=-=-=-=-
Do While Not rsSponsor.EOF
'-=-=-=-=-=-=-=-==-===-=-=-=-=-=-=-=-=-=-=-=--=-=-=-==-=-=%>
<tr>
<td width="100">
<%
If rsSponsor.EOF Then
rsSponsor.Close
Else
rsSponsor.MoveNext
End If
Response.write("<a href =" & rsSponsor("Sponser_Link") &" target= blank>")
Response.write("<img border = '0' src = images_sponsors/" & rsSponsor("Sponser_Logo") &">")
Response.write("</a>")
%>
</td>
<%
If rsSponsor.EOF Then
rsSponsor.Close
Else
rsSponsor.MoveNext
End If
%>
<td width="100">
<%
Response.write("<a href =" & rsSponsor("Sponser_Link") &" target= blank>")
Response.write("<img border = '0' src = images_sponsors/" & rsSponsor("Sponser_Logo") &">")
Response.write("</a>")
%>
</td>
<%
If rsSponsor.EOF Then
rsSponsor.Close
Else
rsSponsor.MoveNext
End If
%>
<td width="100">
<%
Response.write("<a href =" & rsSponsor("Sponser_Link") &" target= blank>")
Response.write("<img border = '0' src = images_sponsors/" & rsSponsor("Sponser_Logo") &">")
Response.write("</a>")
%>
</td>
<%
If rsSponsor.EOF Then
rsSponsor.Close
Else
rsSponsor.MoveNext
End If
%>
<td width="100">
<%
Response.write("<a href =" & rsSponsor("Sponser_Link") &" target= blank>")
Response.write("<img border = '0' src = images_sponsors/" & rsSponsor("Sponser_Logo") &">")
Response.write("</a>")
%>
</td>
<%
If rsSponsor.EOF Then
rsSponsor.Close
Else
rsSponsor.MoveNext
End If
%>
</tr>
<%
Loop
%>
</table>

[jhardman]

try:

If rsSponsor.EOF Then
   exit do

or is it "exit loop"? One of the two.

the better way would be to run through the loop just once per record, instead of once per four records and keep a running count of how many records you have on that line:

i = i + 1
if i = 4 then
   'I already have four on this line
   response.write "</tr><tr>"
   i = 0
end if

For every record the counter i is increased by one until it reaches 4, then the counter is reset and the new row is started.

Let me know if this helps.

Jared

[iam_clint]

don't even use do

while not rs.eof

rs.movenext
wend