Gæstebog

Jeg har lavet en gæstebog.

Dataerne fra gæstebogen stammer fra en Acces Database.

Når jeg vil have mit script til at spytte teksten  ud fra min gæstebog, sætter den ikke linjeskift, når teksten har nået dertil hvor sætningen fylder hele skærmen. Kære experts hvordan ændrer jeg det?

Mit script er:

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Anbefalinger</title>
</head>

<body>
<%
\' ADODB connection objektet
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db\\anbefalinger.mdb\")
\' Åben databaseforbindelsen
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"Select * from personer\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<table width =\"200\">
<tr>
<td>
<%Do
  \' Udskriv værdien af kolonnen navn, firma, tekst, og sætter linje
Response.Write \"<b>Kunde:</b>\" & rs(\"Navn\") & \"<br>\" & \"<br>\" & \"<b>Firma/Organisation: </b>\" & rs(\"Firma\") & \"<br>\" & \"<br>\" & \"<b>Anbefaling:</b>\" & \"<br>\" & \"<br>\" & Replace(Server.HTMLEncode(rs(\"Tekst\")),vbCrLf,\"<br>\") & \"<br>\" & \"<br>\" & \"<hr>\" & \"<br>\" 
  \' Gå til næste Record i rs
  rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
%>
</td>
</tr>
</table>
<%
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Set strSQL = Nothing

%>


</body>
</html>