..:: 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