MANGLER IMGBOW

Det skal lige siges den køre uden database

Nej men kan da hurtigt lave et :-)

Vil du det??

Synes netsrac skal kommer herned og drikke en pils ;)

<%
Function ShowFolderList()
    folderspec = server.mappath(\"\\\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives

    Set foldercollection = file.Files
    For Each file in foldercollection
   
    tmp = tmp & file.name & \"<BR>\"
       
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

kornfreak >> Hvad dælen er du ikke taget afsted endnu ? *G*

Netsrac.....nej ik endnu..også så jeg dig lave noget istedet for at drikke pils med mig..*G*

Kornfreak >> *G*

Den finder jo alt hvad der ligger i bib. den skal kun finde billeder, og så vise dem

og vise dem ligefrem, finde alle billeder i biblioteket kan jeg lave det om til, men gider ik lige lave det så den viser alle billederne.

ok

Ah så skidt da...

<%
Function ShowFolderList()
    folderspec = server.mappath(\"\\\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives

    Set foldercollection = file.Files
    For Each file in foldercollection
\' jpg,gif og bmp
    if lcase(right(file.name, 4)) = lcase(\".jpg\") OR lcase(right(file.name, 4)) = lcase(\".gif\") OR lcase(right(file.name, 4)) = lcase(\".bmp\") then
\'
\' jpg,gif
\'    if lcase(right(file.name, 4)) = lcase(\".jpg\") OR lcase(right(file.name, 4)) = lcase(\".gif\") then
    tmp = tmp & \"<img src=\'\"file.name & \"\'><BR>\"
       
end if


    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Det virkede desværre ikke