Visning af tumbnails med 4 i hver række
Er der nogen der kan hjælpe mig her, den udskriver kun ét billede i hver række ???<HEAD>
</HEAD>
<BODY>
<table border="0" width="100%">
<%
' Vi sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/xsmo/gallery/thumbnails/"
cellCount = 0
' Vi laver et objekt, der kan navigere i filsystemet = filesystemobject
Set objFS = CreateObject("Scripting.FileSystemObject")
' Vi bruger filsystemobjektet til at åbne det interessante katalog
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
' Vi putter alle filer i kataloget ind i variablen objFiles
Set objFiles = objFolder.Files
' Her tager den en fil ad gangen og skriver den - dvs billedet - på skærmen
For Each Image In objFiles
if right(image.name,3) = "gif" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "GIF" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "jpg" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "JPG" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "bmp" then response.write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "BMP" then response.write "<img src=" & ImageDir & Image.Name &"> "
cellCount = cellCount + 1
if cellCount = 1 then Response.Write "<tr valign=""middle"">" & vbCrlf
Response.Write "<td width=""120"" align=""center"">"
if cellCount = 4 then Response.Write "</tr>" & vbCrlf
cellCount = 0
Next
Set objFS = Nothing
%>
</td>
</table>
</BODY>
</HTML>
