Automatisk generering af tabel

Altså du vil havde det sådan her
[1][2][3][4]
[5][6][7][8]
[9]...

Så prøv med dette kode:


response.write "<table>"
antalPrRow = 4
noRow = 0
for each file in FileCollection
  if noRow = 0 then response.write "<tr>"
  response.write "<td>"
  Response.write "<img src="& EN_ELLER_ANDEN_STI &">"
  response.write "</td>"
  noRow = noRow +1
  if noRow = antalPrRow then
    response.write "</tr>"
    noRow=0
  end if
next
if noRow > 0 then response.write "</tr>"
response.write "</table>"

Du slipper ikke, donslund!
http://www.eksperten.dk/bruger.phtml?sort=%40&order=asc&catid=0&q=&navn=donslund&option=22

Du skrev du selv hvade det med filnavnene i en folder men jeg fandt lige dette som du kan bruge som eks:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = "C:\InetPub\wwwroot\images"
Set objFolder = objFSO.GetFolder(strFolder)

response.write "<table>"
antalPrRow = 4
noRow = 0
For Each File in objFolder.Files
  if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 0 then
    if noRow = 0 then response.write "<tr>"
    response.write "<td>"
    Response.Write "<img src=""" & File.Name & """>"
    response.write "</td>"
    noRow = noRow +1
    if noRow = antalPrRow then
      response.write "</tr>"
      noRow=0
    end if
  end if
Next
if noRow > 0 then response.write "</tr>"
response.write "</table>"

Set objFolder = Nothing
Set objFSO = Nothing
%>