<%=title%>

<% 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 "" counter = counter+1 If counter mod 5 = 0 Then Response.Write "" counter = 0 End If End If Next %>

" Response.Write "" Response.Write "" Response.Write "