Tabellen opfører sig underligt
Hej Eksperter...Jeg er ved at opbygge et design til en lille fodboldhjemmeside og samtidig tilpasse noget ASP ind i dette design... Jeg har nu fået det problem, at min nyhedstabel bliver underlig, ligeså snart den lægges ud på nettet...
Fejlen ses her: http://www.glostrupfodbold.2biaz.dk
(Den gule og de grønne kolonner ved de 3 første rækker skal slet ikke være så brede, så teksten i stedet har mere plads, og rækkerne nedenunder skal derimod rykkes ind fra venstre...)
Og her er koden:
<div align="left">
<table border="0" width="181" cellspacing="3" cellpadding="0">
<tr>
<td width="10" height="1" rowspan="4"></td>
<td width="1" style="border-style: solid; border-width: 1" bgcolor="#FFCC00" bordercolor="#000000" height="1"> </td>
<td width="125" height="1" style="border-style: solid; border-width: 1" bgcolor="#33CC33" bordercolor="#000000" background="images/box_g01.bmp"><font size="2" color="#FFFFFF"><b>News</b></font></td>
</tr>
<tr><td width='1' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top' bgcolor='#33CC33'> </td>
<td width='125' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top'><font size='1'><b><i>" & rs("dato") & "</i></b><br><a href='profil.asp?id=" & rs("id") & "'>" & rs("overskrift") & "</a></font></td><tr>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")
strSQL = "SELECT top 10 [ID], [overskrift], [dato] FROM [nyhed] ORDER BY [dato] DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write "<tr><td width='1' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top' bgcolor='#33CC33'> </td>"
Response.Write "<td width='125' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top'><font size='1'><b><i>" & rs("dato") & "</i></b><br><a href='profil.asp?id=" & rs("id") & "'>" & rs("overskrift") & "</a></font></td><tr>"
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet nogle nyheder
Response.Write "<tr><td width='1' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top' bgcolor='#33CC33'> </td>"
Response.Write "<td width='125' height='1' style='border-style: solid; border-width: 1' bordercolor='#000000' valign='top'><font size='1'>Der er ingen nyheder!</font></td></tr>"
End If
myConn.Close
Set Conn = Nothing
%>
</table>
</div>
____________________________________________
Håber virkelig, der er nogen, der kan hjælpe mig... For jeg er temmelig lost... Hvorfor gør den det der?
Mv. W13
