Linieskift kommer ikke med....

Hejsa alle sammen.

Jeg har en nyheds system som ikke tager sig af liniskift, lige meget mange man lave.

nyhed.asp er den der tilføjer nyhed i DB:

<%
Response.Buffer = True

' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
END FUNCTION

' Hent data fra formular   
    Nyhed = Request( "Nyhed" )
    Forfatter = Request( "Forfatter" )

' Connection til database.    
Set Con = Server.CreateObject( "ADODB.Connection" )
    DBPath = "DBQ=" & server.mappath("nyheder.mdb")
    Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' ... Ogsaa saetter vi vores data fra formularen ind i databasen
if Request.Servervariables("Content_Length") > 0 THEN
    Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
    Con.Execute Sql

' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet   
    Response.Write "<strong>Tak for din nyhed. </strong>"
   
end if
%>


visnyheder.asp er den der henter nyhederne fra DB:

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
    Set Record =  Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
    <tr>
        <td align="center" colspan="2"><h1><font size="1" face="Verdana">Nyheder</font></h1></td>
    </tr>
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>

<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->

<% Do While Not Record.EOF %>

        <td bgcolor="#999966"><font size="1" face="Verdana"><% Response.Write Record("Dato")%></font></td>
        <td bgcolor="#999966" align="right"><font size="1" face="Verdana">Fra <i><% Response.Write Record("Forfatter")%></i></font></td>
    <tr>
        <td colspan="2"><font size="1" face="Verdana"><% Response.Write Record("nyhed") %></font></td>
    </tr>
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>
<%
Record.MoveNext
Loop
%>

<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

Jeg ved der er en kode til det, men hvilket er den??

Skal den i nyhed.asp eller skal den i visnyheder.asp??

Hvor skal den sidde i koden??

Tak, håber i kan hjælpe mig.