<% '#######Antal thumbs på rad####### Antal = 10 '#######Mappen som du vill lista bilder i####### MappNamn = "fotoalbum" '#######Bredd och höjd på thumbbilden####### height = "50" width = "55" %> <%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject") Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn)) Set MyDrive = Mapp.subFolders%>

Välj vilket album du vill se:
<%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
<%=File.Name%> 

<%End If%>

     
 
 
 
     
 
     
 
@ E-post VMK
Tel: 0706 - 46 09 10 (kvällstid)