Udskrivning nedad i 2 kolonner

Den "rigtige" metode:
<table>
<%
dim dataArray, count, half, a, b
redim dataArray(1,0)
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.open "select tekst from aaTest order by tekst", oConn, 1, 1
count = oRs.recordcount
if count mod 2 = 0 then
    half = (count/2)-1
else
    half = int(count/2)
end if
redim dataArray(1,half)
a=0
b=0
while not oRs.eof
    if a<=half then
        dataArray(0,b) = oRs("tekst")
    else
        dataArray(1,(b-half)-1) = oRs("tekst")
    end if
    a=a+1
    b=b+1
    oRs.MoveNext
wend

for a=0 to half
    Response.write "<tr>"
    for b=0 to 1
        Response.write "<td>"& dataArray(b,a) &"</td>"
    next
    Response.write "</tr>"
next
%>
</table>

Den nemme metode:
<table>
<tr>
    <td valign="top">
<%
dim half, count, a
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.open "select tekst from aaTest order by tekst", oConn, 1, 1
count = oRs.recordcount
if count mod 2 = 0 then
    half = (count/2)
else
    half = int(count/2)+1
end if
a=0
while not oRs.eof
    if a=half then Response.write "</td><td valign=""top"">"
    Response.write oRs("tekst") &"<br>"
    a=a+1
    oRs.MoveNext
wend
%>
    </td>
</tr>
</table>

Sorry for den sene tilbagemeldelse...

Jeg får -1 ud i count = oRs.recordcount????

Hej igen FENNEC
Læg et svar, det virker fint, jeg kan dog ikke få count til at virke, jeg tæller op ved først at løbe dem igennem og tælle dem op...

Se mit count problem her: http://www.eksperten.dk/spm/745516

Svar bitte :)

.o) <-- One Eyed Jack