<br> i <textarea> ?

\n er ihvertfald enter

? er ikke helt med.. det skal lige siges at jeg ikke kan ret meget asp.. så forklaringer skal være grundige :)

<%= Replace(objRs("felt"), vbCrLf, "<br>" %>

//>Rune

hvor skal koden placeres? eller det er måske lige meget :)

Teksten=Replace(Teksten,vbCrLf,"<br>")

Hvis teksten ikke skal redigeres igen, så udfør det før du gemmer den i databasen, eller så udfør det når du udskriver.

Altså der hvor du vil ha' udskrevet din tekst skal du skrive:

<%= Replace(objRs("felt"), vbCrLf, "<br>" %>

I Access bliver linjeskift gemt som vbCrlf, så replacer du bare vbCrLf med <br> som er normal HTML...

//>Rune

jeg smider lige noget af koden...

<% mode = request("mode") %>
<% Response.buffer = true %>

<% if mode = "" then %>

<%
'Connection til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb")
strSQL = "select* from forside ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "<font face=""Verdana"" size=""2"">Der er ingen indlæg i databasen!</font>"
else
Do Until rs.EOF
%>


<form name="formular" style="display: inline" method="POST" action="forside.asp?mode=Update">


<textarea name="forsideb" cols="65" rows="15" ><%=RS("forside")%></textarea></td>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
<% end if %>

<% if mode = "Update" then %>
<%
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") & ";UID=editkontakt;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * FROM forside WHERE id=" & request.form("id")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.form("delete") = "ON" then
      Rs.delete
Response.Redirect "forside.asp"
%><% end if %>

<% 
    rs.Update
      rs("forside") = Request.form("forsideb")
   
   
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect "forside.asp"
%>
<% end if %>

det er kun alt asp'en og (access databasen). Kan i ikke vise hvordan det skal står så :)

<% mode = request("mode") %>
<% Response.buffer = true %>

<% if mode = "" then %>

<%
'Connection til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb")
strSQL = "select* from forside ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "<font face=""Verdana"" size=""2"">Der er ingen indlæg i databasen!</font>"
else
Do Until rs.EOF
%>


<form name="formular" style="display: inline" method="POST" action="forside.asp?mode=Update">


<textarea name="forsideb" cols="65" rows="15" ><%= Replace(RS("forside"), "<br>", vbCrLf %></textarea></td>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
<% end if %>

<% if mode = "Update" then %>
<%
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") & ";UID=editkontakt;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * FROM forside WHERE id=" & request.form("id")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.form("delete") = "ON" then
      Rs.delete
Response.Redirect "forside.asp"
%><% end if %>

<% 
    rs.Update
      rs("forside") = Request.form("forsideb")
   
   
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect "forside.asp"
%>
<% end if %>

//>Rune

hmm jeg får fejl? HTTP 500 - Intern serverfejl
Internet Explorer

Kan det være koden det er kalt med... virkede fint uden :)

De skal ikke med i koden hvor du lægger det ind i din textarea, men hvor du viser teksten.

hmm der virker ikke..