tabel med rowspan og colspan

Du har 4 celler i 1. række, men kun 3 celler i række 2 til 4

hvorfor vil du have din tabel i asp ???

Du er her : Eksperten : Programmering : ASP : tabel med rowspan og colspan :



tabel med rowspan og colspan    30 point fra vejmanden
Hvordan opretter man en tabel i asp med rowspan og colspan?

Jeg vil lave en tabel (et skema) som får sine data fra en database, og det er ikke noget problem, men jeg kan ikke få designet skemaet som jeg ellers sagtens kan i ren html, som jeg har gjort her:

<table border="1" cellspacing="0">
  <tr>
    <td rowspan="4">pic</td>
    <td colspan="3">navn</td>
  </tr>
<table cellspacing="0"> 
  <tr>
    <td colspan="3">Link</td>
  </tr>
</table>
<table cellspacing="0"> 
  <tr>
    <td colspan="3">text</td>
  </tr>
</table>
<table cellspacing="0"> 
<tr>
    <td>Celle A</td>
    <td>Celle B</td>
    <td>dato</td>           
  </tr>
</table>

Prøv med dette!
//>Rune

Sikke noget vrøvl :-) Nogen gange går det bare lidt for hurtigt, hvad er det der går galt?

<%

Set rs = Server.createObject("ADODB.Recordset")
rs.Open("SELECT pic, navn, link, text, cella, cellb, dato FROM MyTable")

If Not rs.EOF Then
%>

<table border="1">
  <tr>
    <td rowspan="4"><% = rs("pic").value %></td>
    <td colspan="3"><% = rs("navn").value %></td>
  </tr>
  <tr>
    <td colspan="3"><% = rs("link").value %></td>
  </tr>
  <tr>
    <td colspan="3"><% = rs("text").value %></td>
  </tr>
  <tr>
    <td><% = rs("cella").value %></td>
    <td><% = rs("cellb").value %></td>
    <td><% = rs("dato").value %></td>           
  </tr>
</table>

<%
End If

rs.Close()
Set rs = Nothing

%>

>>>> medions....hvad mener du med det ???

Well, så bliver den i det mindste lidt rigtig... - eller hvordan er det lige han vil ha' det? - Det er ihvertfald ik' sat rigtig op... (tabellerne) - Fik heller ik' læst spm´et rigtig.. <- beklager! ;-)

//>Rune

Hmm, jeg menu nu at tabellen er sat rigtigt op, i min browser ser den således ud:
&#9484;&#9472;&#9472;&#9472;&#9472;&#9516;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;
&#9474;    &#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;    &#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;    &#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9516;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9516;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9492;&#9472;&#9472;&#9472;&#9472;&#9524;&#9472;&#9472;&#9472;&#9472;&#9472;&#9524;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9524;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;

Men jeg skulle måske have lagt lidt mere kode med.

Her har i mine koder til højre frame. Det bliver styret af et valg i venstre frame, og jeg ved godt det ikke er god latin at bruge frames mere, men det vil jeg nu gerne.

<html>
    <head>
    </head>

    <body>
<dl>

    <%
    ' Databaseforbindelse
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("\cgi-bin\personer.mdb")
    Conn.Open DSN

    ' Hent fra databasen afhængig af værdien id fra url
    strSQL = "Select * from tabel Where Id=" & Request.Querystring("id")
    Set rs=Conn.Execute(strSQL)

    ' test for at se om der er forbindelse
    Response.Write "<dt>Navn: </dt><dd>" & rs("Navn") & "</dd>"

    'Tabellen (skemaet) med data fra databasen
    Response.Write "<table>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td>Pic</td>" & VbCrLf
            Response.Write "<td>" & rs("Navn") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td>" & rs("Link") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td>" & rs("Tekst") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td>" & rs("CelleA") & "</td>" & VbCrLf
            Response.Write "<td>" & rs("CelleB") & "</td>" & VbCrLf
            Response.Write "<td>" & rs("Dato") & "</td>" & VbCrLf           
        Response.Write "</tr>" & VbCrLf
    Response.Write "</table>" & VbCrLf
    Conn.Close
    Set Conn=Nothing
    %>
</dl>
    </body>
</html>

Og som i kan se så ligner min kodede tabel ikke rigtigt den jeg kan laver i ren html, og det er sådan set det der er mit problem.

Jeg håber jeg har kastet lidt mere lys over sagen nu.

Mvh Jan Hansen

Hmm det gik ikke så godt, min tabel var tegnet i ascii 850 tegnsæt men det kan åbentbart ikke vises her.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x        x                            x
x        xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x        x                            x
x        xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x        x                            x
x        xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x        x        x          x      x
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Kan i se meningen med denne "tegning"

Mvh Jan Hansen

Du mangler jo col- og rowspan
'Tabellen (skemaet) med data fra databasen
    Response.Write "<table>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td rowspan='4'>Pic</td>" & VbCrLf
            Response.Write "<td colspan='3'>" & rs("Navn") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td colspan='3'>" & rs("Link") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<tdcolspan='3'>" & rs("Tekst") & "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
        Response.Write "<tr>" & VbCrLf
            Response.Write "<td>" & rs("CelleA") & "</td>" & VbCrLf
            Response.Write "<td>" & rs("CelleB") & "</td>" & VbCrLf
            Response.Write "<td>" & rs("Dato") & "</td>" & VbCrLf           
        Response.Write "</tr>" & VbCrLf
    Response.Write "</table>" & VbCrLf

Thanks, det var jo lige det. Jeg anede ikke hvor de skulle sættes ind for at give det rigtige resultat.