Udskriv database i tabeller

Fx. sådan her:

<table>
<%
  While Not objRs.EOF
%>
  <tr>
    <td><%= objRs("feltnavn")</td>
  </tr>
<%
  objRs.MoveNext()
  Wend
%>
</table>

//>Rune

Her har du det hele:


<%
Set objRs = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db1.mdb")

strSQL = "SELECT * FROM tblTabelnavn"
Set objRs = objConn.Execute(strSQL)
%>

<table>
<%
  While Not objRs.EOF
%>
  <tr>
    <td><%= objRs("feltnavn")</td>
  </tr>
<%
  objRs.MoveNext()
  Wend
%>
</table>

//>Rune

HOv.. :

<%
Set objRs = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db1.mdb")

strSQL = "SELECT * FROM tblTabelnavn"
Set objRs = objConn.Execute(strSQL)
%>

<table>
<%
  While Not objRs.EOF
%>
  <tr>
    <td><%= objRs("feltnavn") %></td>
  </tr>
<%
  objRs.MoveNext()
  Wend
%>
</table>

//>Rune

det var ikke lige helt det jeg mente. jeg skal have det gjort således at den fx. 3 rækker i hver kolone og efter følgende laver en ny kolone med 3 rækker.

Måske sådan her så?!

<%
Set objRs = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db1.mdb")

strSQL = "SELECT * FROM tblTabelnavn"
Set objRs = objConn.Execute(strSQL)
%>

<table>
<tr>
<%
  intTmp=0
  While Not objRs.EOF
    intTmp = intTmp + 1
   
    Response.Write("<td>" & objRs("feltnavn") & "</td>")

    If intTmp = 0 Or intTmp = 3 Then
      Response.Write("</tr>")
      intTmp = 0
    End If
  objRs.MoveNext()
  Wend
%>
</table>

//>Rune

tak skal du have.

Anytime...
Thx 4 Poinz

//>Rune