Error al mostrar imagens de una carpeta

[nene16803]

Hola, estoy intentando mostrar las imagenes que tengo en una carpeta, pero.... no se por que, siempre me muestra 1 menos, me explico.
Si le digo que me muestre de 4 en 4 , me muestra 3 y la 4, la 8, la 12 etc... no me las muestra. Os estaria muy agradecido si alguien ve donde tengo el error.

El codigo es:

Set MyDirectory=Server.CreateObject("Scripting.FileSys temObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("foto s"))

r = 1
for each filefound in MyFiles.files
If r=4 then
response.write"</tr>"
r= 1
else


Response.Write ("<td align='center' valign='top'><table style='border: 1px solid rgb(141, 141, 141); background-color: rgb(255, 255, 255);'><tr><td align='center'><br><br><a href='fotos/"& filefound.Name &"'><img class='photo' id='img-mwsf-14' src='fotos/"& filefound.Name &"' width='159' height='136'border='0' />Foto Nº "& filefound.Name &"<br> Pinche para ampliar</a><br></td></tr></table></td>")


r = r + 1
end if
next


Gracias por anticipado

[nene16803]

..:: CORREGIDO ::..

Os dejo el codigo que funciona


Set MyDirectory=Server.CreateObject("Scripting.FileSys temObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("foto s"))

r = 1
for each filefound in MyFiles.files


Response.Write ("<td align='center'><a href='fotos/"& filefound.Name &"'><img class='photo' id='img-mwsf-14' src='fotos/"& filefound.Name &"' width='145' height='93'border='0' /></a><font color='#000000' size='1' face='Arial, Helvetica, sans-serif'>FOTO Nº </font> <font color='#FF0000' size='1' face='Tahoma, Geneva, sans-serif'>"& filefound.Name &" </font><br> Pinche para ampliar<br></td>")



if r mod 4 =0 then
Response.Write ("</tr><tr>")
end if


r = r + 1
next