7 svar · 231 visningar · startad av Asa
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 " "
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!