La idea no sería algo asi, me saca las 4 filas solo que al final me pone:
Microsoft OLE DB Provider for ODBC Drivers error '80040e24'
El conjunto de filas no admite recuperación hacia atrás.
j=1
do while not rs2.eof
if j>4 then
rs2.movelast
else
response.Write("<table width='90%' align='center'>")
response.Write("<tr><td class='texto_responsables'><table width='100%'><tr><td align='left' valign='top'>"&rs2("titulo")&"</td><td align='right' valign='top'>"&rs2("fecha")&"</td></tr></table></td></tr>")
response.Write("<tr><td><table width='100%'><tr><td align='left' valign='top'><img src='imagenes/"&rs2("foto")&"' alt='' name='foto' width='130' height='80' id='foto'/></td><td width='3%'></td><td align='left' valign='top' class='texto_actividad'>"&rs2("tema")&"</td></tr></table></td></tr>")
response.Write("<tr><td colspan='2'>")
response.Write("<hr>")
response.Write("</td></tr></table>")
j=j+1
end if
rs2.movenext
loop