" & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write("| [To Parent Directory] | " )
theActFolder = Request.Servervariables("PATH_TRANSLATED") & "\..\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set actFolder = fso.GetFolder(theActFolder)
actFolderLen = Len(actFolder.Path) + 2
Set actFileList = actFolder.Files
actFileCount = actFolder.Files.Count
dim fototeller
fototeller=0
For Each actFile In actFolder.Files
actSubPart = Mid(actFile, actFolderLen)
actName = actFile.Name
if UCASE(right(actName,3))="JPG" or UCASE(right(actName,3))="BMP" or UCASE(right(actName,3))="GIF" then
actLine = ""
actLine = actLine & " | "
Response.Write(actLine)
fototeller=fototeller+1
if fototeller>actFileCount then
exit for
end if
if fototeller=4 then
response.write ""
fototeller=0
end if
end if
next
Response.Write(" " & vbCrLf)
%>
|
