Primera pregunta a las 02:58 PM
Segunda pregunta a las 03:01 PM
¿3 minutos?
No hay que ser tan impaciente berja2001. Además tampoco has sido muy concreto con la pregunta, o es que querías que te lo dieran todo hecho. Pero bueno, por esta vez pase.
A ver si te vale esto, pero es en ASP ¿eh?
<H1>Listado de imágenes</H1>
<%
Dim FSO
Dim Files
Dim File
Dim Count
Const Columns = 3
Const ImageWidth = 100
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(Server.MapPath("./../images")).Files
Set FSO = Nothing
Response.Write "<TABLE width=""100%"" border=""1"" cellspacing=""0"">"
Response.Write "<TR>"
Count = 0
For Each File In Files
Select Case LCase(Right(File.Name, 3))
Case "jpg", "gif", "bmp", "png"
Count = Count + 1
if Count Mod Columns = 1 Then Response.Write "</TR><TR>"
Response.Write "<TD align=""center"" valign=""top"">"
Response.Write "<A href=""../images/" & File.Name & """>"
Response.Write File.Name
Response.Write "<BR><IMG src=""../images/" & File.Name & """ border=""1"" width=""" & ImageWidth & """><BR>"
Response.Write "</A>"
Response.Write "</TD>"
End Select
Next
Response.Write "</TR>"
Response.Write "</TABLE>"
Set File = Nothing
Set Files = Nothing
%>