<% Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFiles = objFso.GetFolder(Server.MapPath("."))
Set fileList = objFiles.Files
tonextslash = InStrRev (objFiles, "\")
fulllength = Len(objFiles)
workingdir = Right(objfiles, fulllength-tonextslash)
For Each i in fileList
If i.Type = "GIF Image" or i.Type = "JPEG Image" Then
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write " | "
counter = counter+1
If counter mod 5 = 0 Then
Response.Write "