Oversæt Enter til <br>

strInput = replace(strInput,vbCrLf,\"<br>\")

jeg har samme problem ....
**************************************************

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../db.mdb\")

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From news\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"emne\") = Request.form(\"emne\")
      rs(\"nyhed\") = Request.form(\"nyhed\")
      rs(\"datotid\") = \"\"& Now &\"\"
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect (\"opret_nyhed.asp?mode=added\")
%>

**************************************************
hvor skal din kode være henne ?

hmm ja jeg er jo ikke så klog så jeg vil også gerne vide hvor koden skal være.

koden kan ligge enten inden du gemmer i databasen eller når du udskriver fra databasen eks:

Når man gemmer i databasen:
rs(\"nyhed\") = replace(Request.form(\"nyhed\"),vbCrLf,\"<br>\")

Når man udskriver
response.write replace(rs(\"nyhed\"),vbCrLf,\"<br>\")

Det er kun nødvendigt et sted. Personligt ville jeg ligge kode i udskrivningen, hvis du senre vil kopier fra databasen ind i word så er [Enter] bevaret.

<%
function ReplaceCRLF(fString)
fString = Replace(fString, CHR(13), \"\")
fString = Replace(fString, CHR(10), \"<BR>\")
ReplaceCRLF = fString
end function
%>

rs.AddNew
      rs(\"emne\") = ReplaceCRLF(Request.form(\"emne\"))
      rs(\"nyhed\") = ReplaceCRLF(Request.form(\"nyhed\"))
      rs(\"datotid\") = \"\"& Now &\"\"
      rs.Update