Udskriv data via tabeller !!

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

strSQL = "SELECT * FROM tabel"
Set objRs = objConn.Execute(strSQL)

%>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<%
  While Not objRs.EOF
%>
  <tr>
    <td><% Response.Write(objRs("felt")) %></td>
  </tr>
<%
  objRs.MoveNext()
  Wend
%>
</table>

Sådan?

//>Rune

Mener du sådan??

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

strSQL = "SELECT * FROM tabel"
Set objRs = objConn.Execute(strSQL)

Response.Write "<table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"">"

boo_row = false

While Not objRs.EOF
If boo_row = false Then
    Response.Write "<tr><td>"& objRs("felt") &"</td>"
    boo_row = true
Else
    Response.Write "<td>"& objRs("felt") &"</td></tr>"
    boo_row = false
End If

objRs.MoveNext()
Wend
Response.Write "</table>"

%>

Tak, jeg prøver lige begge og ser om det dur!

Jeg har lige prøvet begge og medions virkede ikke for mig, men din whatever ser bedre ud, men jeg havde nogle problemer med at sætte det sammen, vi du ikke prøve at gøre det???


Her er koderne:


<%

Dim strConnect, Conn

'Åbner connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

'sql = "SELECT * FROM kategori, u_katagori WHERE kategori.kategoriId = u_katagori.id" 
sql = "SELECT Kategori.KategoriNavn, U_Katagori.U_KategoriNavn FROM Kategori INNER JOIN U_Katagori ON Kategori.KategoriId = U_Katagori.Id"

Set objRec = Server.CreateObject("ADODB.Recordset")

objRec.open sql, Conn

%>
                                          <table width="260" border="0" cellspacing="0" cellpadding="0">
                                          <% While NOT objRec.EOF %>
                                            <tr>
                                              <td rowspan="2" width="5" valign="top"></td>
                                              <td rowspan="2" width="59" valign="top">
                                                <table width="55" height="55" border="0" cellspacing="0" cellpadding="0">
                                                  <tr>
                                                    <td background="billeder/site/darmer.gif" width="51" height="51">
                                                      <table width="55" border="0" cellspacing="0" cellpadding="0">
                                                        <tr>
                                                          <td rowspan="4" width="2" class="hvid"></td>
                                                          <td colspan="2" height="2" class="hvid"></td>
                                                          <td rowspan="2" width="2" class="hvid"></td>
                                                        </tr>
                                                        <tr>
                                                          <td height="36" width="36"></td>
                                                          <td width="17"></td>
                                                        </tr>
                                                        <tr>
                                                          <td height="17"></td>
                                                          <td colspan="2" rowspan="2" background="billeder/site/forside_transperant.gif" height="19" width="19"></td>
                                                        </tr>
                                                        <tr>
                                                          <td height="2" class="hvid"></td>
                                                        </tr>
                                                      </table>
                                                    </td>
                                                  </tr>
                                                </table>
                                              </td>
                                              <td rowspan="2" width="9" valign="top"></td>
                                              <td width="191" class="overskrift_forside"><a onfocus="this.blur()" href="#"><%=objRec("kategoriNavn")%></a></td>
                                            </tr>
                                            <tr>
                                              <td width="191" valign="top">
                                                <table width="191" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
                                                  <tr>
                                                    <td><a onfocus="this.blur()" href="#"><%=objRec("u_kategoriNavn")%></a></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                            <tr>
                                              <td height="10"></td>
                                            </tr>
<%
objRec.MoveNext()
Wend
%>
                                          </table>
<%
objRec.close
Conn.Close
SEt Conn = Nothing


%>

Hvor vil du præcist have dataen indsat?

Jeg har en tabel på width="520" og det er inde i den, at jeg skal have udskrevet overstående, sådan at denne (<table width="260" border="0" cellspacing="0" cellpadding="0">) ligger sådan:

En her  /  Og en her
En her  /  Og en her
En her  /  Og en her
En her  /  Og en her
osv!

Prøv dette (det er ikke testet):

<%

Dim strConnect, Conn

'Åbner connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

'sql = "SELECT * FROM kategori, u_katagori WHERE kategori.kategoriId = u_katagori.id" 
sql = "SELECT Kategori.KategoriNavn, U_Katagori.U_KategoriNavn FROM Kategori INNER JOIN U_Katagori ON Kategori.KategoriId = U_Katagori.Id"

Set objRec = Server.CreateObject("ADODB.Recordset")

objRec.open sql, Conn

int_count = 0

%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
  <% While NOT objRec.EOF
    If int_count = 0 Then
        Response.Write "<tr>"
    End If
  %>
    <td>   
    <table width="260" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td rowspan="2" width="5" valign="top"></td>
        <td rowspan="2" width="59" valign="top">
          <table width="55" height="55" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td background="billeder/site/darmer.gif" width="51" height="51">
                <table width="55" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td rowspan="4" width="2" class="hvid"></td>
                    <td colspan="2" height="2" class="hvid"></td>
                    <td rowspan="2" width="2" class="hvid"></td>
                  </tr>
                  <tr>
                    <td height="36" width="36"></td>
                    <td width="17"></td>
                  </tr>
                  <tr>
                    <td height="17"></td>
                    <td colspan="2" rowspan="2" background="billeder/site/forside_transperant.gif" height="19" width="19"></td>
                  </tr>
                  <tr>
                    <td height="2" class="hvid"></td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
        </td>
        <td rowspan="2" width="9" valign="top"></td>
        <td width="191" class="overskrift_forside"><a onfocus="this.blur()" href="#"><%=objRec("kategoriNavn")%></a></td>
      </tr>
      <tr>
        <td width="191" valign="top">
          <table width="191" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
            <tr>
              <td><a onfocus="this.blur()" href="#"><%=objRec("u_kategoriNavn")%></a></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td height="10"></td>
      </tr>
    </table>
    </td>
  <%
    If int_count = 1 Then
        Response.Write "</tr>"
        int_count = 0
    Else
        int_count = 1
    End If
   
    objRec.MoveNext()
   
    Wend
%>
    </table>
<%
objRec.close
Conn.Close
SEt Conn = Nothing


%>

Bingo - virker og ingen fejl. Jeg må lige ind og kigge lidt i koden, så jeg også kan det til næste gang. Mange tak!