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