Radbrytning som inte funkar!

3 svar · 266 visningar · startad av Katarina 20 aug. 2001

KatarinaMedlem sedan aug. 20012 inlägg

Trådstart20 aug. 2001 21:32#1

Har skrivit så här när jag skall plockar upp från databasen.
<%
Dim Namn, Alder, Inlagg, Datum, Tid, Conn, SQL, Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Datum = date()
Conn.Open ("alela")
SQL="SELECT Namn, Alder, Inlagg, Datum, Tid FROM Gastbok WHERE Datum >#" & date() -200 &"# ORDER BY Datum DESC;"
Set Rs=Conn.Execute(SQL)
%>

Sedan kommer tabellen som listar upp Rs från databasen. Här görs ingen radbrytning alls när jag testar detta.
<TD BGCOLOR="white" VALIGN="_top" COLSPAN=2>
<%=Replace(Rs("Inlagg"), vbCrLf, " " & vbCrLf)%>

<HR COLOR="">
</TD>

Har också provat detta förslaget.Men då får jag inte fram någon text alls från databasen.

Finns det inget bättre alternativ eller vad gör jag för fel.
Tack på förhand.

jorgenMedlem sedan feb. 20012 412 inlägg

20 aug. 2001 22:32#2

Hej!


Function Free(txt) 
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt 
End Function 

<%=Free(Rs("Inlagg"))%>

Borde funka

mvh Jörgen

VideMedlem sedan dec. 19998 577 inlägg

21 aug. 2001 06:40#3

Function Free(txt) 
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt 
End Function

Varför lägger du texten i ytterligare en variabel?

Effektivare såhär kanske:

Function Free(txt) 
Free = Replace(Trim(txt), vbCrLf, "<br>")
End Function

Ville bara påpeka...

PatrikBMedlem sedan mars 20002 836 inlägg

21 aug. 2001 08:23#4

och så ett alternativ till:

Function Free(txt) 
If IsEmpty(txt) OR IsNull(txt) Then Exit Function
txt = Server.HTMLEncode(txt)
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt
End Function

Så kommer inga "fel" att uppstå om ett fält råkar vara tomt eller null + att man ej behöver oroa sig för att ngn ska skicka in en massa annan HTMLkod eller annan typ av kod, det kommer bara att bli "vanlig" text.

cya,
PatrikB