Databaser og tabeller

<%
X = 0
Do wHile Not rs.EOF
  If X = 0 Then 
    Response.Write \"<tr>\"
  End If
  Response.Write \"<td>\" & rs(\"Navn\") & \"</td>\"
  X = X + 1
  If X = 3 Then
    Response.Write \"</tr>\"
    X = 0
  End If
  rs.MoveNext
Loop
%>

Prøv evt. den her også:

<html>
<head>

</head>

<body bgcolor=\"#FFFFFF\">
<%
Dim DataConn
Dim rs
Dim MYSQL
   
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
   
DataConn.Open \"DBQ=\" & Server.Mappath(\"db/kode.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
   
MYSQL = \"SELECT * FROM kode\"


rs.Open MYSQL, DataConn

%> <% Do until rs.EOF %>

<table width=\"100%\" border=\"1\" cellpadding=\"1\" cellspacing=\"1\" bordercolorlight=\"#666666\" bordercolordark=\"#333333\">
  <tr>
    <td width=\"53%\"><%= rs(\"overskrift\") %></td>
    <% rs.movenext %>
    <td width=\"47%\"><% if not rs.eof then %><%= rs(\"id\") %><% rs.movenext %><% end if %></td>
  </tr>
</table>
<p><%
Loop
rs.Close
DataConn.Close
%></p>
<p> </p><p> </p>
</body>
</html>

Skal vist lige rettes lidt til..

Jens

Hej Jens

Tak for dine forslag
Jeg har prøvet det første eksemple, og har valgt at kave to kolonner.
Det virker også godt nok i første række, men resten af resultatet skrives i næste række, resultat:

--------------------------------------------------
|        Resultat 1      |    Resultat 2      |
--------------------------------------------------
| Resultat 3 | Resultat 4 | Resultat 5 | Res. 6  |
--------------------------------------------------

Har du et forslag til, hvorfor dette sker?
Min kode ser således ud:

<%
X = 0
    do while not cQry.EOF
        if X = 0 then
            Response.Write(\"<tr>\")
        end if
        Response.Write \"<td>\" & cQry.Fields(\"Description\") & \"</td>\"
        X = X + 1
        if X = 2 then
            Response.Write(\"</tr>\")
        end if
        cQry.MoveNext
    loop
%>

tror du skal prøve det næste forslag jeg lagde ud.

Det virkede sq.
Takker.