hilfe!

Finder lige et. 2 sec

<%
Function ShowFolderList()
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if right(file, 3) = \"jpg\" OR right(file, 3) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\'></A><BR>\"
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Med den her kan du også bestemme hvor bredde og høje billederne skal være :-)

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if right(file, 3) = \"jpg\" OR right(file, 3) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A><BR>\"
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

jeg får bare en blank skærm!

Har du nogle billeder i samme mappe ?

fandt ud af det, det virker ikke med jpg filer!

Det burde det da, men prøv lige at udskifte det med det her:

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lacse(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A><BR>\"
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Det her der er en lille stavebøf:

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A><BR>\"
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

er det for meget hvis jeg spørger hvordan jeg får 4 billeder på hver linie?

Nej da, sådan her:

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A><BR>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    response.write(\"<BR>\")
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

sludder, sådan her:

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    response.write(\"<BR>\")
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Sludder og vrøvl, sådan her, den er testet :-)

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    tmp = tmp & \"<BR>\"
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

hmm... den viser alt på en linie!

Har du prøvet den seneste ?

sorry, jeg var lige for hurtig der...

Takker og bukker :0)

Det var så lidt :-)