Hvordan?

Du kan bruge en tæller i dit loop + Modulus funktionen til at bestemme om der skal skiftes række.

If i Mod 5 = 0 Then
....
Else
...
End If

Du kan måske bruge dette:

strSQL = "SELECT * FROM tabel"
set rs = conn.Execute(strSQL)

noColPrRow = 0
maxColsPrRow = 10
Response.Write "<table><tr>"
do while not rs.EOF
  if noColPrRow = 0 then
    Response.Write "<td valign=""top""><table>"
  end if
  Response.Write "<tr><td>" & rs("navn") & "</td></tr>"
 
  noColPrRow = noColPrRow + 1
  if noColPrRow = maxColsPrRow then
    noColPrRow = 0
    Response.Write "</table></td>"
  end if
  rs.MoveNext 
loop
if noColPrRow <> 0 then
  Response.Write "</table></td>"
end if
Response.Write "</tr></table>"

Bliver det ikke halv besværligt ??

eagleeye: Nu er det file system objektet jeg benytter og ikke sql..!!

Ja det men det kan let laves om .. har noget som bruger FSO:


<html>
<head></head>
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath(".")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="100%">

<%
noColPrRow = 0
maxColsPrRow = 5
for each file in folder.files
  indexExt = inStrRev(file.name, ".")
  if indexExt > 0 then
    fileExt = lcase(mid(file.name,indexExt+1))
  else
    fileExt = ""
  end if
 
  if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
    if noColPrRow = 0 then
      Response.Write "<tr>"
    end if
%> 
  <td><img src="<%=file.name%>" alt="<%=file.name%>"></td>
<%
    noColPrRow = noColPrRow + 1
    if noColPrRow = maxColsPrRow then
      Response.Write "<tr>"
      noColPrRow = 0
    end if
   
  end if
next
%>
</table>

</body>
</html>

Har du selv et sølvfad, for nu er der serveret :-)

det var det jeg skulle bruge tak ;o)

Det er bare kanon ;-) Var lige selv gået i gang med at skrive det om... meeen nej nej det behøvedes slet ikke :o) Jeg siger tusind tak