Tenia varios errores, uno era intentar concatenar en la misma linea instrucciones que funcionan perfectamente cada una en una linea.
Tambien ma faltaba el "end if" como apuntaba alguien.
La solucion esta aqui, por si ayuda a otras personas:
<%
consulta= "select * from Foros"
rs.open consulta
contador= 0
do while not rs.eof
contador =contador +1
response.write "imagen " & contador%>
<img src=/images/<%response.write rs("nombre")%>>
<% if contador=4 then
contador=0%>
"<BR><BR>"
<%end if
rs.movenext
loop
%>
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net