html kode eller ej?

hva er galt her?
jeg har brug at den tekst folk skriver i "nyhed" fungerer såles at når vedkommende bruger enter knappen at den så virker sålades at teksten ikke bare kommer i een laaaang smøre....

enter knappen skal således fungere ligesom <br>.


vmh.

fas

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")


    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   

    if (Request.Form("title") <> "" AND Request.Form("nyhed") <> "" AND Request.Form("smiley") <> "" AND Request.Form("forfatter") <> "" AND Request.Form("hjemmebane") <> "" AND Request.Form("udebane") <> "" AND Request.Form("btw") <> "" AND Request.Form("halveg") <> "" AND Request.Form("fuldtid") <> "" AND Request.Form("maalscorer") <> "" AND Request.Form("assists") <> "" AND Request.Form("tilskurer") <> "" AND Request.Form("mom") <> "" AND Request.Form("holdet") <> "" AND Request.Form("positivt") <> "" AND Request.Form("negativt") <> "" AND Request.Form("vi") <> "" AND Request.Form("de") <> "") then
   
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from nyheder"
    rs.Open strsql, conn, 1, 3
   

    rs.AddNew
    rs("title") = (Request("title"))
    rs("nyhed") = (Request("nyhed"))
    rs("smiley") = (Request("smiley"))
    rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
    rs("hjemmebane") = Server.HTMLEncode(Request("hjemmebane"))
    rs("udebane") = Server.HTMLEncode(Request("udebane"))
    rs("btw") = Server.HTMLEncode(Request("btw"))
    rs("halveg") = Server.HTMLEncode(Request("halveg"))
    rs("fuldtid") = Server.HTMLEncode(Request("fuldtid"))
    rs("maalscorer") = (Request("maalscorer"))
    rs("assists") = (Request("assists"))
    rs("tilskurer") = (Request("tilskurer"))
    rs("mom") = (Request("mom"))
    rs("holdet") = (Request("holdet"))
    rs("positivt") = (Request("positivt"))
    rs("negativt") = (Request("negativt"))
    rs("vi") = Server.HTMLEncode(Request("de"))
    rs("de") = Server.HTMLEncode(Request("de"))
    rs("dato") = Now()
    rs.update
   
    Response.Write("<strong><font size='1' color='red'>Du har sendt referatet!</font><br><br></strong>")
   
    rs.Close
    set rs = nothing
   
    else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
    end if
    end if
%>