recordset sorteret i kolonner?

læg posterne i variabler med et linieskift efter hvert felt.

er desværre ikke så hård til VB at jeg lige kan gøre det for dig :o)

response.write("<table">)
while not rs.eof
  response.write("<tr>")
  response.write("<td>"& Rs(0) &"</td>")
  response.write("<td>"& Rs(1) &"</td>")
  response.write("</tr>")
  rs.movenext
wend
response.write("</table>")

er det dette du mener?

Nej, umiddelbart ikke... Det skal være dette:

<table>
<tr><td>post 1</td><td>post 3</td><td>post 5</td></tr>
<tr><td>post 2</td><td>post 4</td><td>post 6</td></tr>
</table>

er der altid kun 6 poster?

Næ, nej - der kan være uendeligt mange, så at sige.
Jeg vil gerne kunne bestemme, hvor mange kolonner posterne skal sprede sig over..

kig på dette: http://www.eksperten.dk/spm/299353

Jeg skal ærlig indrømme, at jeg ikke helt er med på, hvad der foregår :-)

Men til nedenstående kode får jeg denne fejlmeddelelse:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
....og så henvises til linie 47, som er "DisplayName = minFelt(1, RowCounter + ColCounter * NumRows-1) & " " & minFelt(2, RowCounter + ColCounter * NumRows-1)"

Jeg viser her den kode, som jeg arbejder med nu:

<%@ Language=VBScript %>
<% Option Explicit %>
<% response.buffer=true %>
<%
dim DSN, oRs, oConn, strSQL, minFelt, colcounter, NumRecords, NumRows, DisplayName, RowCounter

Const NumColumns = 2

Set oConn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../../database.mdb")
oConn.Open DSN

strSQL = "Select Navn from Medarbejdere"
Set oRs = oConn.Execute(strSQL)

minFelt = oRs.GetRows

oRs.close
set oRs = nothing
oConn.close
set oConn=nothing%>


<table ALIGN="CENTER" BORDER="1" CELLPADDING="1"CELLSPACING="1">
<THEAD>
<tr>
<%For colcounter = 1 to NumColumns %>
<th>xxxxx</th>   
<th>yyyyy</th>   
<%next%>
</tr>
</THEAD>

<%
NumRecords = ubound(minFelt,2) + 1

if NumRecords mod NumColumns = 0 then
NumRows = NumRecords\NumColumns
Else
NumRows = NumRecords\NumColumns+1
End if

For RowCounter = 1 to NumRows

  For ColCounter = 0 to NumColumns-1
    if RowCounter + ColCounter * NumRows <= NumRecords then         
          DisplayName = minFelt(1, RowCounter + ColCounter * NumRows-1) & " " & minFelt(2, RowCounter + ColCounter * NumRows-1)
response.write "<td>"& Displayname &"</td><td>" & minFelt(3,RowCounter + ColCounter * NumRows-1) & "</td>"
    Else
        Response.write "<td>&nbsp;</td><td>&nbsp;</td>"
    End if
  Next
response.write "</tr>"
Next%>
</table>

det er fordi du har valgt 2 colonner fra din tabel:
Const NumColumns = 2

Men i din SQL sætning vælger du kun en kolonne nemlig navn. Så du skal vælge mindst 2 fra din tabel.

Med...
strSQL = "Select Navn,Email from Medarbejdere"

...melder siden stadig:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 2]'

Ok, skriv:
strSQL = "Select * from Medarbejdere"

Og dér var der hul igennem!

Nu har jeg puslet lidt med det, og det virker BARE GODT!
Tak Hossein!

selv tak!