Problema Com Galeria De Imagens

[Guest - Henrique -]

Boas a todos! Gostaria de um help do pessoal... estou fazendo uma galeria de imagens que puxa de um bd access... até aí tudo bem.. o meu problema está em que estou colocando as imagens em 2 colunas... enqto meu numero de imagens for par... eu visualizo a galeria... mas se no banco eu tiver um numero de registro impar me da esse erro...

ADODB.Field (0x80020009)

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/jobs/george/web/pag05.asp

porque? aonde estou errando?

Abaixo vai o código... quem poder me ajudar... agradeço desde já!

<!--INICIO TABELA THUMBMAIL-->

<%

set rs = Server.CreateObject("adodb.recordset")

set rs = conn.execute("select * from tb_galeria where ID_Status = 1")

if not rs.eof then

%>

<table width="100%" cellpadding="0" cellspacing="0" border="0">

<%while not rs.eof%>

<tr>

<td><img src="images/galeria/<%=rs("IMG_Peq")%>" width="60" height="60" style="border:1px solid #FF9900"></td>

<%rs.movenext%>

<td><img src="images/galeria/<%=rs("IMG_Peq")%>" width="60" height="60" style="border:1px solid #FF9900"></td>

</tr>

<%rs.movenext

wend%>

<%end if

rs.close%>

</table>

<!--FIM TABELA THUMBMAIL-->

[damon_rn]

Cara, eu não testei, se não errei na digitação, tenta isso:

<%
set rs = Server.CreateObject("adodb.recordset")
set rs = conn.execute("select * from tb_galeria where ID_Status = 1")
if not rs.eof then
I = 1
%>
<table width="100%" cellpadding="0" cellspacing="0" border="0">
  <tr>
<%
  while not rs.eof
  
  If (I mod 2)=0 then
     celf="</td></tr>"
  else
     celf="</td>"
  End if
%>

<%I = I+1 %>
  <td><img src="images/galeria/<%=rs("IMG_Peq")%>" width="60" height="60" style="border:1px solid #FF9900"><%=celf%>

<%rs.movenext
wend%>
</table>
<%end if
rs.close%>

O seu erro estava na hora que você mandava dar outro movenext dentro do mesmo loop e o End If deveria estar após o /table.

Damon