Imagens

[{TeRmInAtOr}]

Alguém poderia me ajudar com o seguinte código?

<%
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db.mdb")
Set objrs = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM fotos"
objrs.Open sql, Conex, 1, 1
%>

<%while not objrs.eof%>
<table>
<tr>
<td><img src="imagens/<%=objrs("imagens")%>"></td>
<%objrs.movenext%>
<td><img src="imagens/<%=objrs("imagens")%>"></td>
<%objrs.movenext%>
<td><img src="imagens/<%=objrs("imagens")%>"></td>
<%objrs.movenext%>
</tr>
<%wend%>
</table>

Estou tentanto listar as imagens em três tabelas mas so dá certo se a coluna é preenchida totalmente, se faltar uma imagens para completar a coluna dá erro.

[Eli@ne]

<%

'abre conessao ao database-----------------------

DIM Conex

Set Conex = Server.CreateObject ("ADODB.Connection")

Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db.mdb")

'abre tabela do database---------------------

Dim sql, objrs, Ciclobjrs

   Set objrs = Server.CreateObject("ADODB.RecordSet")

sql  = " SELECT * FROM fotos"

objrs.Open sql, Conex, 1

If NOT objrs.EOF Then

'faz um ciclo di 3 records--------------------------------

  For Ciclobjrs = 1 To 3

   If objrs.EOF Then Exit For

   %>

  <table width="200" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td align="center"><img src="imagens/<%=objrs("imagens")%>"></td>

  </tr>

</table>

<p>&nbsp;</p>

            

              <%

    objrs.MoveNext

  Next

        Else

        End If

  'feixa tabela do database------------------------

      objrs.Close

Set objrs = Nothing

'feixa conessao ao database--------------------------

Conex.Close

Set Conex = Nothing

%>