Radbrytning som inte funkar!

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

KatarinaMedlem sedan aug. 20012 inlägg

Frågan20 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.

------------------
KB

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

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

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... :)

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

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

------------------
*ordning och reda!, pengar på fredag.*