FSO

Hur gör jag för att baka ihop detta! Jag listar filer i en mapp som ska hamna 3 per rad!

<%Antal = 3

For Each File In Mapp.Files
    Response.Write "<tr>"
For i=1 to Antal
    Response.Write "<td align=center>"
If Mapp.Files.Count = 0 then
    Response.Write "&nbsp;"
Else%>
    <img src="<%=MappNamn%>/<%=File.Name%>" width="150" border="1"><%End If
Response.Write "</td>"
Next
     Response.Write "</tr>"
Next
End If%>

Baka ihop?

<%
cnt = 0
For Each File In Mapp.Files    
      if cnt mod 3 = 0 then 
         if  cnt > 0 then response.write "</tr>"
         Response.Write "<tr>"
      end if
%>
    <td align=center><img src="<%=MappNamn%>/<%=File.Name%>" width="150" border="1"></td> <%
cnt = cnt + 1
next
response.write "</tr>"

Ja - just så! Går ju ej å ha två For vettu! När man raddar upp från databas är det enkelt! Då har man ju Do Until RS.EOF istället för For Each File In Mapp.Files! Första Next är ju RecSet.MoveNext typ!

Supertack LarsG - funkar fint! :)

Men hur får man så att om man vill ha 3 på rad och man bara har en bild och så blir det tomt i de andra två kolumnerna! Alltså! Jag vill ha 3 kolumner jämt!

Du får kontrollera efter loopen om det gick jämnt ut

<%
cnt = 0
For Each File In Mapp.Files
      if cnt mod 3 = 0 then 
         if  cnt > 0 then response.write "</tr>"
         Response.Write "<tr>"
      end if%>
    <td align=center><img src="<%=MappNamn%>/<%=File.Name%>" width="150" border="1"></td> <%
cnt = cnt + 1
next
if cnt mod 3 <> 0 then
   for i = 1 to 3 - cnt mod 3 %>
        <td vad du nu vill ha i de tomma kolumnerna> </td> <%
   next
end if
response.write "</tr>"

Tackar igen för ett bra svar! :)