array med 5 poster ad gangen

Først laver du et loop der kører indtil record.eof, så laver du et loop der kører indtil x = 5 læg 1 til x i slutning af loopet. Lav din sql sætning og hiv dataen ud af databasen og lav dit array - sæt dem ind i tabellen...
Ved ikke helt om jeg har forstået dig rigtigt, men hvis er det sådan jeg ville gøre det.... Ellers må du lige poste lidt mere info :)

det var også sådan nogenlunde det jeg havde tænkt mig... men ville gerne have lidt kode... evt bare lidt pseudo kode frem...

<%@ Language=VBScript %>
<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")
Sql = "SELECT * FROM test ORDER BY Navn"
Set Record = Con.Execute(Sql) %>
<HTML>
<HEAD>
<title>Array sjov med fætter</title>
</HEAD>
<BODY>
<%
Dim testArray()
Do until record.eof
Redim testArray(4)
Dim x
x = 0
Do until x = 5
if not record.eof then
testArray(x) = Record("Navn")
Record.movenext
end if
if record.eof then
testArray(x) = "-"
end if
x = x + 1
Loop %>
<table border="1">
<tr>
<%
Dim y
y = 0
Do until y = 5
if not testArray(y) = "-" then%>
<td>
<% Response.write testArray(y)%>
</td>
<%
else
end if
y = y + 1
Loop
Loop
%>
</tr>
</table>
</BODY>
</HTML>
<% Con.Close
Set Con = Nothing %>

<%@ Language=VBScript %>
<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")

' Her henter vi dataen ud
Sql = "SELECT * FROM test ORDER BY Navn"
Set Record = Con.Execute(Sql) %>
<HTML>
<HEAD>
<title>Array sjov med fætter</title>
</HEAD>
<BODY>
<%
' Vi definerer vores array
Dim testArray()
' Den skal fortsætte indtil der ikke er mere i db'en
Do until record.eof
' Vi skal have tømt arrayet efter hvert loop...
Redim testArray(4)
' Vi siger at den skal lave et arrayet udfra 5 records...
Dim x
x = 0
Do until x = 5
if not record.eof then
testArray(x) = Record("Navn")
Record.movenext
end if
' Hvis der ikke er mere i databasen skal den ikke lave flere <td>'er
if record.eof then
testArray(x) = "-"
end if
x = x + 1
Loop %>
<table border="1">
<tr>
<%
Dim y
y = 0
Do until y = 5
if not testArray(y) = "-" then%>
<td>
<% Response.write testArray(y)%>
</td>
<%
else
end if
y = y + 1
Loop
Loop
%>
</tr>
</table>
</BODY>
</HTML>
<% Con.Close
Set Con = Nothing %>

Hov! Der skulle ikke komme 2 :(
Anyway, det der burde virke... Bare du kalder din db for data.mdb :)
Btw. håber det var access du brugte til db...
Hvis det ikke virker kan du altid flame mig på icq: 127200992 eller mail: mrt@broze.dk ;)

jeg prøver det lige en gang :)