<br> og <br><br> kommer ikke med?

du skal vist bruge den her:

    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")

-- xs

Hej excession! Hvor skal det placeres? Jeg har jo ikke lyst til at gennemgå hvad folk skriver og sætte kode ind. Når folk skriver noget med linieskift, skal de jo helst komme af sig selv.

Jeg fik det løst v.hj.a. denne her:

while NOT RS.EOF
  text=left(RS("kommentar"), 200)
  text = replace(text,vbcrLF,"<br>")
  response.write "..."
  response.write "..."
  response.write "..."
  RS.MoveNext
  text=""
wend

Men tak for hjælpen, excession :o)

her er er eksempel:


strSQL = "UPDATE tekster SET forside = '"& replace(request.form("tekst"),vbCrLf,"<br>") & "'"
Conn.Execute (strSQL)

-- xs

Er dit eksempel mere optimeret?

ja måske hvis du laver en funktion som søger og erstatter de ting der skal erstattes.. f.eks:

function FormatStr(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")

    FormatStr = fString
end function

strSQL = "UPDATE tekster SET forside = '"& FormatStr(request.form("tekst")) & "'"
Conn.Execute (strSQL)

-- xs

Er der ikke en der lige kan forklare hvordan jeg også får det sat ind i mit script - det er ved at løbe henover hovedet af mig :(
Mit script er en gæstebog, hvor man kan skrive navn, email og kommentar. (Der er et skjult felt hvor scriptet finder datoen i starten af table'n)
Man kan vælge antal indlæg.
Hvis der bliver skrevet et langt ord, bliver linien 'breaket' og fortsætter ud på næste linie. Fint nok so far. Men hvis jeg gerne vil have liniebreaks når brugeren selv trykker på <ENTER> - hvor sætter jeg koden ind?
Her følger mit script - og jeg sætter 30 point af på det.

<!-- gæstebogen -->
<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" class="maintext">
                    <form name="form" method="post" action="guestbook-skriv.asp" onSubmit="validering();return false";>
                      <tr>
                        <td colspan="2">
                          <input type="hidden" name="dato" value="<%=Now%>">
                        </td>
                      </tr>
                      <tr>
                        <td valign="top">
                          <p>Navn:
                            <input type="text" name="navn">
                          </p>
                        </td>
                        <td valign="top">Email:
                          <input type="text" name="email">
                        </td>
                      </tr>
                      <tr>
                        <td colspan="2">Kommentar:
                          <textarea name="kommentar" wrap="PHYSICAL" cols="60" rows="5" ></textarea>
                        </td>
                      </tr>
                      <tr>
                        <td align="right">
                          <input type="submit" name="send" value="Send">
                        </td>
                        <td>
                          <input type="reset" name="Reset" value="Nulstil">
                        </td>
                      </tr></form>
                      <tr>
                      <td colspan="2">
<script language="Javascript">
function selectIndlaeg()
{
document.limitform.submit();
}
</script>
<form method="post" action="guestbook.asp" enctype="application/x-www-form-urlencoded" name="limitform">
Vis <select name="limitform" onchange="selectIndlaeg()">
<option selected value="">antal</option>
<option  value="10">10</option>
<option  value="25">25</option>
<option  value="50">50</option>
<option  value="75">75</option>
<option  value="100">100</option>
<option  value="*">Alle</option>
</select>
indl&aelig;g</form>
<br>
<h6>Da dette er en g&aelig;stebog, bedes indl&aelig;g holdt under 255 tegn, ellers kommer resten ikke med.</h6>
</td>
</tr>
<tr>
                        <td colspan="2">
                          <hr noshade align="center" size="1">
                        </td>
                      </tr>
                      <tr>
                        <td colspan="2" class="maintext"> 
                          <%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("/guestbook/database.mdb")
Conn.Open DSN

<!-- indsætter breaks i for lange ord -->
Function ParseString(ByVal String)
intCount = 1
Do While intCount <= Len(String)
strCount = strCount + 3
If strCount = 70 Then
New_String = New_String & "<br>" & Mid(String, intCount, 1)
strCount = 0
Else
New_String = New_String & Mid(String, intCount, 1)
End If
intCount = intCount + 1
Loop
ParseString = New_String
End Function

<!-- valg af antal indlæg -->
Dim Count
Count = Request.Form("limitform")
If Count = "*" Then
  strSQL = "Select * FROM data Order by Dato DESC"
ElseIf Count = "" Then
  strSQL = "Select TOP 10 * FROM data Order by Dato DESC"
Else
  strSQL = "Select TOP " & Count & " * FROM data Order by Dato DESC"
End If

Set rs = Conn.Execute(strSQL)
Do

<!-- henter data fra databasen -->
strEmail = rs("email")
strLink = "<a href=mailto:" & rs("email") & ">" & strEmail & "</a><BR><BR>"
Response.Write rs("dato") & "<BR><BR>"
Response.Write "Navn: " & rs("navn") &"<BR>"
Response.Write "Email: " & strLink
Response.Write ParseString(rs("kommentar")) & "<BR><BR><HR noshade size=1>"
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Hvor putter jeg de oplysninger som der står her, på Eksperten, ind?

/Frido