<%
'#######Antal thumbs på rad#######
Antal = 6

'#######Mappen som du vill lista bilder i#######
MappNamn = "../gruvsjo-bildvisning"

'#######Bredd och höjd på thumbbilden#######
height = "50"
width = "50"
%>

<script language="javaScript">
function Show(filename,winTitle)
{
var myImage = new Image();
myImage.src=filename;
properties='height=10,width=10';
var imgWindow = window.open('','',properties);

html = '';
html += '';
html += '';
html += '';
html += '';
html += '';
html += '';
html += '';

imgWindow.document.write(html);
}
</script>



<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))

Set MyDrive = Mapp.subFolders%>

Välj din mapp

---Välj--- <%For Each Folder in MyDrive%> <%=Folder.Name%> <%Next%>

<%If Request.QueryString("visa") = "bilder" Then

MappNamn = Request.QueryString("mapp")

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>



<%If Mapp.Files.Count = 0 Then%>



<%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
Response.Write ""
x = 0
End If%>

<%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%>

<%Next
Response.Write ""
End If
End If%>

Inga bilder finns

<%End If%>