Forse non è il top della perfomance, ma è la prima cosa che mi viene in mente...

Metti un contatore, e nell'ultima riga metti un if sul contatore, una cosa di questo genere:

Do Until Rs.EoF
x = x +1 %>
<table>
<tr>
<td>titolo</td>
</tr>
<tr>
<td>data</td>
</tr>
<% If x <> 3 Then %>
<tr>
<td>immagine</td>
</tr>
<% End If %>
</table>
<% x = x 1
Rs.MoveNext
Loop %>

In questo modo all'ultimo ciclo non ti mette l'immagine!! (sempre considerando che siano 3 i record!)

Ciaooooo