linie skift

******************************************************
Problem -> Den laver ikke linie skift når texten når ud til borderen på tablen .... !
******************************************************

******************************************************
kode ->
******************************************************
Const adLockOptimistic = 3

strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news.mdb\") & \";UID=admin;PWD=;\"
If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strKommentar = Trim(Request.Form(\"Kommentar\"))
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM news WHERE (ID = 0)\"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"Dato\") =Date()
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
%>
<html>

<head>
<title>Nyheder</title>
</head>
<link href=\"../style.css\" rel=\"stylesheet\" rev=\"stylesheet\">
<body>
<div align=\"center\"><center>

<table width=\"488\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\">
  <tr>
    <td class=\"color\" align=\"center\" width=\"488\">-= Nyheder =-</td>
  </tr>
  <tr align=\"center\">
    <td width=\"100%\"><%
Select Case strMode
Case \"add\"
%>
<%
Case Else
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT top 5 * FROM news ORDER BY Dato DESC;\"
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<table border=0 cellpadding=3 cellspacing=0>\"
        Do While Not rs.EOF
Select Case weekday(rs(\"Dato\"))
case 1 dag = \"Søndag\"
case 2 dag = \"Mandag\"
case 3 dag = \"Tirsdag\"
case 4 dag = \"Onsdag\"
case 5 dag = \"Torsdag\"
case 6 dag = \"Fredag\"
case 7 dag = \"Lørdag\"
End Select

Select Case month(rs(\"Dato\"))
case 1 maaned = \" januar \"
case 2 maaned = \" februar \"
case 3 maaned = \" marts \"
case 4 maaned = \" april \"
case 5 maaned = \" maj \"
case 6 maaned = \" juni \"
case 7 maaned = \" juli \"
case 8 maaned = \" august \"
case 9 maaned = \" september \"
case 10 maaned = \" oktober \"
case 11 maaned = \" november \"
case 12 maaned = \" december \"
End Select


Response.Write \"<tr class=\'color\'><td><font face=arial size=2><B>\" & dag &  \" d. \" & day(rs(\"Dato\")) & maaned & year(rs(\"Dato\")) & \" - \" & rs(\"Overskrift\") & \"</B></td></tr>\"
\'response.write year(rs(\"Dato\"))

Response.Write \"<tr><td><font face=arial size=2>\" & rs(\"kommentar\") & \"<br></td></tr>\"
            rs.MoveNext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<p><font face=arial size=2>Der er endnu ikke nogle nyheder i databasen endnu</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
End Select
%>
</td>
  </tr>
</table>
<br>
<center>
<a href=\"indlaeg.asp\" target=\"_self\">Admin</a>
</center>

</center></div>
</body>
</html>
******************************************************

Hjælp Søges Hurtigt !!