<%
Dim FSO
Dim Files
Dim File
Dim Count
Const Columns = 5
Const ImageWidth = 100
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(Server.MapPath("./")).Files
Set FSO = Nothing
Response.Write "
"
Response.Write "
"
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 "