Zeilenumbruch mit ASP aus einer SQL-Datenbank auslesen

[Markus]

Hallo,

wie lese ich mit ASP aus einer SQL-Datenbank (MS SQL SErver 7) die Zeilenumbrüche aus.

Dieses Bsp. funktioniert nicht.

<%Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

Danke für die Hilfe

[Stefan Falz]

Hallo,

wie lese ich mit ASP aus einer SQL-Datenbank (MS SQL SErver 7) die Zeilenumbrüche aus.

Dieses Bsp. funktioniert nicht.

<%Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

Danke für die Hilfe

Hallo,

Du solltest das Ergebnis ausgeben:
<%=Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%> oder
<%Response.Write Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

Eigentlich sollte Dein Beispiel einen Laufzeitfehler auslösen.

Tschau, Stefan

[Markus]

Danke

im ganzen baue ich es so auf

<%
IF ISNULL(RS1("Nachricht")) THEN
  Nachricht_STR = ""
ELSE
  Nachricht_STR = Replace(RS1("Nachricht"), vbCrLf, "<BR>" & vbCrLf)
END IF
%>

<%Response.Write(Nachricht_STR)%>

Diese IF-Anweisung mache ich weil ich sonst bei einem leeren Nachrichtenfeld einen Fehler bekomme, da Replace hier nicht funktioniert.

Das komische ist, wenn ich in die SQL-Datenbank direkt einen Zeilenumbruch einfüge, dann liest er es aus. Doch wenn die Daten über ein Formular in die Datenbank eingetragen werden, kann er sie nicht auslesen.

Danke

[Stefan Falz]

<%

»»  IF ISNULL(RS1("Nachricht")) THEN

Nachricht_STR = ""

»»  ELSE

Nachricht_STR = Replace(RS1("Nachricht"), vbCrLf, "<BR>" & vbCrLf)

»»  END IF

%>

<%Response.Write(Nachricht_STR)%>

Das komische ist, wenn ich in die SQL-Datenbank direkt einen Zeilenumbruch einfüge, dann liest er es aus. Doch wenn die Daten über ein Formular in die Datenbank eingetragen werden, kann er sie nicht auslesen.

Hallo,

versuch mal folgendes:
Nachricht_STR = Replace(RS1("Nachricht"), vbCr, "<BR>" & vbCrLf)

Es kann sein, daß dein Modul den Zeilenumbruch nur als vbCr (Ascii 10) und nicht als vbCrLf (Ascii 13) umsetzt.

Tschau, Stefan

P.S.: Wenn Du ein Beispiel hast, das man sich online anschauen kann,
gehts vielleicht schneller. Der Quellcode des Eintragsmoduls wäre
auch nicht schlecht.

[Markus]

Hallo Stefan,

erstmal einen ganz grossen Dank - genau daran liegt es.
Bei der Eingabe wird (ASCII 10) übergeben und beim direkten Eintrag wird es als (ASCII 13) dargestellt.

Kann ich mit einmal beide Zeichen in <BR> umwandeln?
Sonst müsste ich bei den Formularen immer ein Replace einfügen *g*

Danke noch einmal

Markus

[Stefan Falz]

Hallo Stefan,

erstmal einen ganz grossen Dank - genau daran liegt es.
Bei der Eingabe wird (ASCII 10) übergeben und beim direkten Eintrag wird es als (ASCII 13) dargestellt.

Kann ich mit einmal beide Zeichen in <BR> umwandeln?
Sonst müsste ich bei den Formularen immer ein Replace einfügen *g*

Danke noch einmal

Markus

Hallo,

mach doch einfach folgendes:

<%
strNeu = strAlt
strNeu = Replace(strNeu, vbCr, "<_br_>")
strNeu = Replace(strNeu, vbCrLf, "<_br_>")
strNeu = Replace(strNeu, "<_br_>", "<br>" & vbCrLf)
%>

Tschau, Stefan

[Holger Lersch]

<%Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

MoinMoin !

Das funktionier scho, nur REPLACE ist eine Funktion und das Ergebnis einer Funktion musst du in eine
Variable schreiben ...

<%Nachricht = Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

...oder direkt ausgeben ...

<% = Replace(RS("Nachricht"), vbCrLf, "<BR>" & vbCrLf)%>

Gruß
Holger