Ver Mensaje Individual
  #37 (permalink)  
Antiguo 25/06/2004, 01:16
Avatar de affv
affv
 
Fecha de Ingreso: diciembre-2002
Ubicación: Ahora aqui
Mensajes: 485
Antigüedad: 22 años, 5 meses
Puntos: 0
Creo que llegue tarde pero aun asi dejo algo de codigo para quien le sirva.

Código PHP:
<%
MyDirectory Server.MapPath("images/")
Set MyFso CreateObject("Scripting.FileSystemObject")
Set MyFolder MyFso.GetFolder(MyDirectory)
Set MyFiles MyFolder.Files

Response
.Write("<table>")
Response.Write("<tr>")

For 
Each MyFile in MyFiles
Response
.Write("<td><img src='images/"&MyFile.Name&"'></td>")
MyCounter MyCounter 1
If MyCounter Mod 3 0 Then Response.Write "</tr><tr>" End If
Next

Response
.Write("</tr>")
Response.Write("</table>")

Set MyFile Nothing
Set MyFso 
Nothing
%> 
__________________
Todo tiene un comienzo y un fin!!
Postea tus proyectos