Prueba esto
<% do while not rs.eof and contador <= cint(pag) >
<table border="0" cellpadding="0" cellspacing="4" width="505" bgcolor="#000000" style="border-collapse: collapse" height="1">
<tr>
<td width="59">
<img src="galeria/<%=RS("image")%>" height=210 width=180 border=0 alt="Pulsa para ampliar" align="right">
</td>
<%rs.movenext
contador=contador+1
If rs.Eof Then Exit Loop
%>
<td width="59">
<img src="galeria/<%=RS("image")%>" height=210 width=180 border=0 alt="Pulsa para ampliar" align="right">
</td>
</tr>
</table>
<%rs.movenext
contador=contador+1
loop%>