hejsan, jag vet hur man gör för att skriva ut text från databas "neråt"

do until rs.eof

rs("text")

rs.movenext
loop

osv. Men nu vill jag lista fyra på bredd och sedan ska den forsätta så tills det är klart.

| bild1 | bild2 | bild3 | bild4
| bild5 | bild6 | bild7 | bild8

hur kan jag få det att fungera?

det har tagits upp förut.. leta i forumet lite

<code>
<table borders=0>
<tr>
<%
Dim rs
Dim con
Dim Index
Set con = Server.CreateObject("ADODB.Connection")
con.Open ">>>Connection string<<<"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT Text FROM TabellNamn", con

Do Until rs.eof
If Index > 4 Then
Respons.Write "</tr><tr>"
Index = 0
Else
Index = Index + 1
End If

Respons.Write "<td>" & rs("text") & "</td>"

rs.movenext
Loop
rs.Close
Set rs = Nothing

con.Close
Set con = Nothing
%>
</tr>
</table>
</code>