Prøv med det her:
<% Response.Buffer = True
\'---------- Indstillinger -----------
Path = \"brugermappe/\" \' Mappen indeholdende brugernes mapper
ThisFile = Request.ServerVariables(\"URL\") \' Filnavnet på DENNE fil
ThumbWidth = 100 \' Bredden på thumbnails (pixels)
ThumbHeight = 100 \' Højden på thumbnails (pixels)
PicWidth = 500 \' Bredden på billederne (pixels)
PicHeight = 500 \' Højden på billederne (pixels)
TableMax = 5 \' Antal billeder der vises på én linie
\'------------------------------------ %>
<html>
<head>
<title>minijensen1.com</title>
<script language=\"JavaScript\">
<!-- // Hide from old browsers
function see(imagesrc, filename)
{
nytvindue = window.open(\'<%=Path%>\', \'_blank\', \'width=<%=PicWidth%>,height=<%=PicHeight + 20%>\');
nytvindue.document.clear()
nytvindue.document.open()
nytvindue.document.write(\"<html><head><title>\" + filename + \"</title></head><body topmargin=\'0\' rightmargin=\'0\' leftmargin=\'0\' bottommargin=\'0\'><img src=\'\" + imagesrc + \"\' width=\'<%=PicWidth%>\' height=\'<%=PicHeight%>\'><br><div align=\'center\'><a href=\'java script:Print()\'>Udskriv</a></div></body></html>\");
nytvindue.document.close();
}
//-->
</script>
</head>
<body>
<% Set FileObj = Server.CreateObject(\"Scripting.FileSystemObject\")
If Request(\"bruger\") = \"\" Then
Set MainFolder = FileObj.GetFolder(Server.MapPath(Path))
Set Folders = MainFolder.SubFolders
For Each Folder In Folders
Response.Write \"<a href=\"\"\" & Request.ServerVariables(\"URL\") & \"?bruger=\" & LCase(Folder.Name) & \"\"\">\" & Folder.Name & \"</a><br>\"
Next
Set MainFolder = Nothing
Set Folders = Nothing
Else
TableCount = 0
Set MainFolder = FileObj.GetFolder(Server.MapPath(Path & Request(\"bruger\")))
Set Files = MainFolder.Files
Response.Write \"<table cellpadding=\"\"3\"\"><tr>\"
For Each File In Files
Accept = False \' Gør filen uaccepteret, da den ikke er checket endnu
Select Case Right(File.Name, 3) \' Finder filtype, og checker om den er godtkendt
Case \"jpg\": Accept = True \' Filtypen jpg er godkendt
Case \"gif\": Accept = True \' Filtypen gif er godkendt
Case \"bmp\": Accept = True \' Filtypen bmp er godkendt
Case Else: Accept = False \' Alle andre filtype er ikke godkendt
End Select
If Accept Then
TableCount = TableCount + 1 \' Skriver i variablen TableCount, hvor mange billeder der står på linien
Response.Write \"<td align=\"\"center\"\"><a href=\"\"java script:see(\'\" & LCase(Path & Request(\"bruger\") & \"/\" & File.Name) & \"\', \'\" & LCase(File.Name) & \"\')\"\"><img src=\"\"\" & Path & Request(\"bruger\") & \"/\" & File.Name & \"\"\" width=\"\"\" & ThumbWidth & \"\"\" height=\"\"\" & ThumbHeight & \"\"\" border=\"\"0\"\"></a><br><font face=\"\"verdana\"\" size=\"\"1\"\">\" & LCase(File.Name) & \"</font></td>\"
If TableCount = TableMax Then \' Checker om der er for mange billeder på linien
TableCount = 0 \' Hvis der er for mange så skriv variablen TableCount til nul og
Response.Write \"</tr><tr>\" \' start en ny linie
End If
End If
Next
Response.Write \"</tr></table>\"
Set MainFolder = Nothing
Set Folders = Nothing
End If
Set FileObj = Nothing %>
</body>
</html>
