<%
if request.querystring("folder") = "" then
ImageDir = session("ShowSub")
else
ImageDir = request.querystring("folder")
Session("ShowSub") = ImageDir
end if
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 1 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
if request.querystring("fotoid") <> "" then
imagename = request.querystring("fotoid")
else
imagename = Image.Name
end if
Response.Write "![](" & ImageDir & "/" & imagename & ")
"
End If
Next
Set objFS = Nothing
%>