Foros del Web » Programando para Internet » ASP Clásico »

Error al mostrar imagens de una carpeta

Estas en el tema de Error al mostrar imagens de una carpeta en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 17/05/2012, 10:10
 
Fecha de Ingreso: junio-2004
Mensajes: 47
Antigüedad: 17 años, 5 meses
Puntos: 0
De acuerdo Error al mostrar imagens de una carpeta

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
  #2 (permalink)  
Antiguo 18/05/2012, 08:14
 
Fecha de Ingreso: junio-2004
Mensajes: 47
Antigüedad: 17 años, 5 meses
Puntos: 0
Respuesta: Error al mostrar imagens de una carpeta

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

Etiquetas: filesystemobject, for(), getfolder, mydirectory
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:26.