Linie skift i formular!

Inden du sætter din tekst i databasen kan du konvertere alle linjeskift til <br> sådan her:

NyTekst = Replace(tekst, vbCrLf, "<br>")

Gider du ikke lige paste dit script her ind.

Dim NyhedsID, Overskrift, Beskrivelse, Tekst, BrugerID

NyhedsID = Request.Form("NyhedsID")
Overskrift = Request.Form("Overskrift")
Beskrivelse = Request.Form("Beskrivelse")
Tekst = Request.Form("Tekst")
BrugerID = Request.Form("BrugerID")

Set rsSubNyhed = Server.CreateObject("ADODB.Recordset")

   

strSQL = "INSERT INTO TblSubNyhed (" &_

    "SubNyhedsID, Overskrift, Korttekst, Tekst, BrugerID) " &_

    "values('" & NyhedsID & "', '" & Overskrift & "', '" & Beskrivelse & "', '" & Tekst & "', '" & BrugerID & "')"

rsSubNyhed.Open strSQL, strCon

Response.write"Oprettet"

Du kan gøre sådan her:

Beskrivelse = Request.Form("Beskrivelse")
Beskrivelse = Replace(Beskrivelse, vbCrLf, "<br>")

Det er det der skriver nyheden, hvis du skal bruge mere så bare sig til..

Ok.. 2 sek så prøver jeg lige..

Den skriver det stadig som én linie..

Eller blot:

<%=Replace((rs("feltnavn")),chr(13),"<br>")%>

Når nu trækker dit felt ud.

kan du ikke sende det hele fra start til slut... så jeg kan se det hvor du sender til database

Hmm, ok skal jeg ligge det når jeg opdaterer den eller i selve formen..??

Det hele ligger på én side..
Det kommer her:

<table width="100%" bgcolor="#E5E5E5">
  <tr>
    <td width="100%" class='headtext'>&nbsp;<a href="../default.asp" class='headtext'>Web-Town.dk</a>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#65946B" align="center" class="text">
<tr>
  <td>
  <table width="100%" border="0" cellspacing="1" cellpadding="3" height="14" bgcolor="#FFFFFF">
  <td bgcolor="#EFEFEF" background="../images/tabel_bg.gif" class="theading">Forside</td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#EFEFEF" background="images/tabel_bg_sub.gif" class="tiHeading">Indhold</td>
  <tr>
    <td bgcolor="#EFEFEF">
    <table width="100%">
    <tr>
      <td valign="top">
<%
if request.querystring("Nyhed") = "Tilfojet" then

Dim NyhedsID, Overskrift, Beskrivelse, Tekst, BrugerID

NyhedsID = Request.Form("NyhedsID")
Overskrift = Request.Form("Overskrift")
Beskrivelse = Request.Form("Beskrivelse")
Beskrivelse = Replace(Beskrivelse, vbCrLf, "<br>")
Tekst = Request.Form("Tekst")
BrugerID = Request.Form("BrugerID")

Set rsSubNyhed = Server.CreateObject("ADODB.Recordset")

   

strSQL = "INSERT INTO TblSubNyhed (" &_

    "SubNyhedsID, Overskrift, Korttekst, Tekst, BrugerID) " &_

    "values('" & NyhedsID & "', '" & Overskrift & "', '" & Beskrivelse & "', '" & Tekst & "', '" & BrugerID & "')"

rsSubNyhed.Open strSQL, strCon

Response.write"Oprettet"


Else
%>
<%
If Session("GruppeID") = 1 = False Then
Response.Write "Beklager, kun medlemmer med nødvendig tilladelse kan få adgang til denne side."
Else
%>
<%
Set rsNyhed = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblNyhed Order By NyhedsID"
    rsNyhed.Open strSQL, strCon
%>
<form method="POST" action="tilfoj_nyhed.asp?Nyhed=Tilfojet">
Nyhedskategori:<br>
  <select size="1" name="NyhedsID">
<%
    If NOT rsNyhed.EOF Then
    Do Until rsNyhed.EOF
%>
  <option value="<%=rsNyhed("NyhedsID")%>"><%=rsNyhed("Kategorier")%></option>
<%
If NOT rsNyhed.EOF Then rsNyhed.Movenext
Loop
End If
rsNyhed.Close
Set rsNyhed = Nothing
  %>
  </select><br><br>
Overskrift:<br>
<input type="text" name="Overskrift" size="20"><br><br>
Kort Beskrivelse:<br>
<textarea rows="2" name="Beskrivelse" cols="60" maxlength="150"></textarea><br><br>
Tekst:<br>
<textarea rows="5" name="Tekst" cols="60"></textarea><br><br>
<input type ="hidden" type="text" name="BrugerID" size="20" value="<%= session("BrugerID") %>">
<input type="submit" value="Send" name="B1">&nbsp;&nbsp;<input type="reset" value="Nulstil" name="B2">
</form>
<%
End If
End If
%>
      </td>
    </table>
    </td>
  </tr>
  </table>
  </td>
</tr>
</table>

I levende live ligger sciptet på http://www.web-town.dk/default.asp
Du kan logge ind med Administrator/admin
Og så bare vælge tilføj nyheder i brugermenuen, hvis det kan hjælpe..:)

http://www.web-town.dk/nyhed.asp?SubNyheds_ID=4

Når du trækker det ud fra din db:

<%=Replace((rs("feltnavn")),chr(13),"<br>")%>

Det virker jo sørme..:)

Men hvis jeg nu vil skrive der til databasen, hvordan får jeg det sat ind..??

Hmm, ok glem det sidste.. Jeg fandt ud af det, en lille fejl..;)
--> pelkjaer
Du kan lige sende et svar så får du nogle point..

Fx. sådan

Function DBFix(tempString)
  tempString = Replace(Trim(tempString), vbCrLf, "<br>")
  DBFix = tempString
End Function

og i din insert into

DBFix(Request.Form("Comment"))

ok

Takker lige for hjælpen én gang mere.:)