Valla tio, con esto no me aclaro, no se por donde cogerlo, jejeje.
Mira, te dejo el codigo ke pusiste, con algunas variaciones para ke funcione en mi caso.
<%
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("imagenes/galeria/pekenas/")).Files
Set FSO = Nothing
Response.Write "<TABLE width=""100%"" border=""0"" 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=""rigth"" valign=""center"">"
Response.Write "<A href=""imagenes/galeria/grandes/" & File.Name & """>"
//Response.Write File.Name
Response.Write "<BR><IMG src=""imagenes/galeria/pekenas/" & 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
%>
No sabia como poner lo de code, espero ke lo entiendas bien.
Enga, perdona por mi ignorancia, estoy empezando y los comienzos son algo torpes.
Un saludo y gracias por preocuparte.
L3stat