Mangler et simpelt og let ASP galleri

Hvor simpelt skal det være ?
Du kan lave det med FSO, 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
    tmp = tmp & \"<BR>\"
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>
............................................

Eller det kan laves med en (Access) database + Back-end + kategorier + tæller osv. se evt. et eksempel her
http://rodeorm.dk/orm/gal_default.asp

Det er fint, som den simple du har lavet der! Men jeg kan slet ikke asp, så har lige svært ved at gennemskue hvordan opsætningen af billederne på siden bliver?

Jeg kan gennemskue så meget, at den viser alle billederne fra en mappe, i 50x50? og ved klikke på dem, kommer de op i stort billede. Er det korrekt?

Det er korrekt, nogle ting du skal vide / tage dig i agt for er :

Lav thumbnails til dine billeder!
Lige nu loader du billeder i deres fuld størrelse.. dvs, der skal loades 100/200/300 kb per billede!
F.eks. 150 kb * 121 billeder = 18150 kb = 18,150 MB!
Bare på 1 side.

Men så skal du til at ændre (meget) i scriptet.
Prøv her på siden, at søge på "FSO" så ser du *S*

Et fungerende, og mere simpelt script, kan du se et eksempel på her.
http://www.rodeorm.dk/test.asp

****************** Koden Her
<table border="1">
<%
cols=5
dim image_directory, Image_Array, count_image, randomfile, directory, allfiles, image
image_directory = "testmappe"
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(image_directory))
For each image in allfiles.files
Image_Array = image.Name
count=count+1
TRCount=TRCount+1
%>
<td width="<%="" & formatnumber("" & 100/cols & "",0,0) & ""%>%">
<p align="center">
<a href="<%="" & image_directory & "/" & Image_Array & ""%>" target="_self">
<img src="<%="" & image_directory & "/" & Image_Array & ""%>" border="0" width="50">
</a>
</p>
</td>
<%
if TRCount=cols then
Response.Write "</tr>"
Response.Write "<tr>"
TRCount=0
end if
Next
%>

</table>
********************************

Billederne ligger i mappen "testmappe"
Antal billeder Pr. linje ændres her: cols=5
Billede Størrelsen ændres her: width="50"
Tabel Størrelsen ændres her: 100/cols

Det er præcis hvad jeg skal bruge!! Smukt so far! Kigger på det i aften når jeg kommer hjem fra job, og så får du dine point ;)

Tak "so far" ;)

Det er sku klasse det der!

Tak for hjælpen!