Deling af data i 2 rækker!

Mit svar holder jeg stadig fast ved:
http://exp.dk/spm/198406

Plus her kan du se om optælning af poster:
http://activedeveloper.dk/aspdigital/kapitel2/count.asp

http://www.eksperten.dk/spm/13784

/Lars

Jeg har prøvet det du skrev og kan ikke få det til at virker ... :-(

Prøv med denne. Jeg har rettet lidt i din kode så du skal nók selv havde sat <font> tags ind igen... Håbe det går:


<html>
<head></head>
<body>


<TABLE BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="20">
<tr>
  <%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Rs = Server.CreateObject("ADODB.Recordset")
  'Modify and use this connection if your database is in your database directory
  'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=db.mdb"
  Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

  SQL = "SELECT Count(Varegruppe) as AntalGrupper FROM Varegruppe;"
  set rs = conn.Execute (SQL)
  antalGrupper = rs("AntalGrupper")
       
  SQL = "SELECT Varegruppe, VaregruppeId FROM Varegruppe ORDER BY Varegruppe"
  set rs = conn.Execute (SQL)
 
  colPrPage = 2  'Angiv hvor mange kolonne du vil havde pr side.
  colOnPageNow = 0
  recorsOnPagePrRow = 0
  if (antalGrupper / colPrPage) > Int(antalGrupper / colPrPage) then
    noPrRow = Int(antalGrupper / colPrPage) + 1
  else
    noPrRow = Int(antalGrupper / colPrPage)
  end if
       
  do while not rs.eof
    if recorsOnPagePrRow = 0 then
    %>
    <td align="center" valign="top" bgcolor="#FFFFFF">
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <%
    end if   
    recorsOnPagePrRow = recorsOnPagePrRow + 1
   
    'URL Convert
    Varegruppe = "<a href='items.asp?Varegruppe=" & rs("VaregruppeId") & "'>" & rs("Varegruppe") & "</a>"
    'End URL Convert
    %>
      <tr><td width="100%"><%=Varegruppe %>
      </td></tr>
    <%
    if recorsOnPagePrRow = noPrRow then
      recorsOnPagePrRow = 0
    %>
    </table>
    </td>
    <%
      colOnPageNow = colOnPageNow + 1
      if colOnPageNow > colPrPage then
        %><td><%
      end if
    end if
    %>
    <%
    rs.MoveNext
  loop
  %>

</tr>
<tr>
</tr>
<tr>

</tr>
</TABLE>

</body>
</html>