Liste over billeder

Prøv sådan her:



<%
billedeSti = "/images/"  'Husk / som sidste karakter

Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(Server.Mappath(billedeSti))
Set fc = f.Files 

picsPrRow = 7  'Antal billeder pr. række
noPics = 0

Response.Write "<table>"
For Each fil in fc
  if noPics = 0 then Response.Write "<tr>"
%> 
  <td><a href="<%=billedeSti%><%=fil.name%>"><%=billedeSti%><%=fil.name%></a></td>
<% 
  noPics = noPics + 1
  if noPics = picsPrRow then
    noPics = 0
    Response.Write "</tr>"
  end if
next
if noPics > 0 then Response.Write "</tr>"
Response.Write "</table>"
%>

Cool, tak...