Tabel og dens rammer.

CSS :-)

Ja men hvordan?


TDS

Det her indsættes i Headeren:

<style type="text/css" media="screen"><!--
.StregHer  { border-bottom: 2px solid black }
--></style>


Og sådan ser tabelen ud:

<table width="180" border="0" cellspacing="0" cellpadding="2">
<tr>
<td class="StregHer">A1</td>
<td class="StregHer">B1</td>
<td class="StregHer">C1</td>
</tr>
<tr>
<td class="StregHer">A2</td>
<td class="StregHer">B2</td>
<td class="StregHer">C2</td>
</tr>
<tr>
<td class="StregHer">A3</td>
<td class="StregHer">B3</td>
<td class="StregHer">C3</td>
</tr>
</table>

Ja men nu er problemmet jo bare at jeg ikke kan se alle de der <td>'er
de laver kommer jo når mine .asp fil modtager oplysninger fra min .mdb fil.

TDS

Nu er jeg så ikke helt med? ... Hvor asp-videne er du? ... Er det fordi du ikke kender antallet af <tr> ? eller har du en meget underlig struktur på din DB(mdb)?

i min database har jeg en masse oplysninger. Når jeg åbner mit .asp dokument på min hjemmeside går .asp dokumentet selv ind og henter de oplysninger den skal bruge. og så laver den selv tabellen, ud fra hvor mange felter der er ned af i databasen.
Jeg ved altid at der er 7 <td>'er i en <tr>. Men antalet af <tr>'er afhænger af hvor mange felter der er i databasen. i mine tilfælde er der 6. Men de bliver jo kun udskrevet i mit .asp dokument når jeg åbner det på min hjemmeside.

TDS

TDS

Her er scriptet der henter oplysninger i min database.



<table border="0" cellspacing="0" cellpadding="3" bordercolor="#CC0000">
<tr>
<td width="25" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Placering.</b></font></td>
<td width="150" valign="top"><font face="Tahoma" color="#FFFFFF" size="2"><b>Hold</font></b></td>
<td width="49" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Spillede kampe</font></b></td>
<td width="51" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Vundet kampe</font></b></td>
<td width="53" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Uafgjorte kampe</font></b></td>
<td width="49" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Tabte kampe</font></b></td>
<td width="52" valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><b>Mål</b></font></td>
<td width="52" valign="top" align="right"><font face="Tahoma" color="#FFFFFF" size="2"><b>Point</font></b></td>
</tr>
<tr>
                <%Dim Apples

Set Apples = Server.CreateObject("ADODB.Connection")

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("table.mdb")
Apples.Open(ConnStr)

Position = "SELECT * FROM Pos ORDER BY Pos ASC"
Teams = "SELECT * FROM List ORDER BY Points DESC"

Set rs = Apples.Execute(Position)
Set rss = Apples.Execute(Teams)
%>
                <%If rss("Played") = 0 then%>
                <%
    Teams = "SELECT * FROM List ORDER BY Team ASC"
    Position = "SELECT * FROM Pos ORDER BY Pos ASC"
    Set rss = Apples.Execute(Teams)
    Set rs = Apples.Execute(Position)
    while not rss.eof
    %>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rs("Pos")%>&nbsp;</font></td>
<td valign="top"><font face="Tahoma" color="#FFFFFF" size="2"><b><%=rss("Team")%></b>&nbsp;</font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Played")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Victories")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Draws")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Defeats")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Made")%>-<%=rss("Let")%>&nbsp;(<%=rss("Made")-rss("Let")%>)</font></td>
<td valign="top" align="right"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Points")%></font></td>
</tr>
              <%rs.MoveNext
        rss.MoveNext
        Wend
        rss.Close
        rs.Close
        Apples.Close
        set Apples = Nothing%>
              <%Else%>
              <%
    Teams = "SELECT * FROM List ORDER BY Points DESC, Made-Let DESC, Team ASC"
    Position = "SELECT * FROM Pos ORDER BY Pos ASC"
   
    Set rss = Apples.Execute(Teams)
    Set rs = Apples.Execute(Position)
    while not rss.eof
    while not rs.eof
    %>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rs("Pos")%>&nbsp;</font></td>
<td valign="top"><font face="Tahoma" color="#FFFFFF" size="2"><b><%=rss("Team")%></b>&nbsp;</font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Played")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Victories")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Draws")%></font></td>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Defeats")%></font></td>
<% If rss("Made")-rss("Let") < 0 Then %>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Made")%>-<%=rss("Let")%>&nbsp;(<%=rss("Made")-rss("Let")%>)</font></td>
<%End If%>
<% If rss("Made")-rss("Let") > 0 Then %>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Made")%>-<%=rss("Let")%>&nbsp;(+<%=rss("Made")-rss("Let")%>)</font></td>
<%End If%>
<% If rss("Made")-rss("Let") = 0 Then %>
<td valign="top" align="center"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Made")%>-<%=rss("Let")%>&nbsp;(+-<%=rss("Made")-rss("Let")%>)</font></td>
              <%End If%>
<td valign="top" align="right"><font face="Tahoma" color="#FFFFFF" size="2"><%=rss("Points")%></font></td>
</tr>
              <%
rs.MoveNext
rss.MoveNext
Wend
Wend
rss.Close
rs.Close
Apples.Close
set Apples = Nothing%>
              <%End if%>
              </tr>
            </table>

lukker