<% Dim sPath, sFolder, sQS sQS = "?f=" & Request.QueryString("f") For Each sFolder in Split(Request.QueryString("f"), "|") sPath = sPath + sFolder + "/" Next If sPath <> "" Then If Len(Request.QueryString("img")) > 0 Then Response.Write "" Else Dim fso, f, fc, fl, cnt Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(Server.Mappath(sPath)) Then Response.End Set f = fso.GetFolder(Server.Mappath(sPath)) Set fc = f.Files cnt = 1 For Each fl in fc If InStr(LCase(fl.name), ".jpg") Then Response.Write cnt & ". " Response.Write "   " & vbCrLf If (cnt Mod 2) = 0 Then Response.Write(vbCrLf & "

" & vbCrLf) End If cnt = cnt + 1 End If Next End If End If %>