Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "Select * From ja_velkommen" rs.open strSQL , conn, 1, 3
' udskifter felternes oplysninger if Request.ServerVariables("REQUEST_METHOD") = "POST" then rs.update rs("velkommen") = Request.form("velkommen") rs.update Response.Write("<br><center>Forsiden er nu blevet opdateret</FONT></center>") end if %>
I HTML er linje skift <br> i et form textarea er linjeskift enter knappen eller konstanten vbCrLf så du skal replace vbCrLf med "<br>" for at få vist linje sift på siden:
tekst = Request.Form("form_felt") tekst = replace(tekst,vbCrLf,"<br>") response.write tekst
Hvis du ændre enter tasten til <br> inden du gemmer teksten i databasen så skal du på samme måde replace <br> med vbCrLf for at få vist linje skift i textarea'et når du vil rette i teksten:
Så vidt jeg kan se så skal du faktsik rette to linjer. Der hvor du gemmer teksten i databasen skal du rette vbCrLf til <br> og hvor du henter ind i textareaet er det modsta.
Den føste linje: rs("velkommen") = Request.form("velkommen")
Skal være sådan her: rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")
Den anden linje: <textarea rows="10" name="velkommen" cols="43"><%=RS("velkommen")%></textarea>
Skal være sådan her: <textarea rows="10" name="velkommen" cols="43"><%=replace(RS("velkommen"),"<br>",vbCrLF)%></textarea>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.