Få <br> på lättaste sätt från db´n?

Function br(mess)
objRegExp.Pattern = vbcrlf
mess = objRegExp.Replace(mess,"<br>"& vbCrLf)
	br = mess
End Function

Denna funktion ersätter alla enter slag till <br> taggar... använd den råa formen som finns i databasen och sen kör du funktionen där den behövs.

Ok funkar säkert men kan du visa praktiskt hur jag gör i min kod:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM samla ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("samla.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Sida nr: " & intPage & " av " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write "Namn:"

    Response.Write Server.HTMLEncode (rs("Navn")) & "\<br\>Mail:   "		
	Response.Write Server.HTMLEncode (rs("Email")) & "\<br\>Datum:   "
	Response.Write Server.HTMLEncode (rs("Dato")) & "\<br\>\<p style='color:#ffffff'\>Mess:   "
	Response.Write Server.HTMLEncode (rs("Kommentar")) & "\</p\>\<hr noshade\> "
 intRecCount = intRecCount - 1
 rs.MoveNext
Loop

End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til sida "
For intNum = 1 To intPageCount
Response.Write "<a href=samla.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<center>"
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=samla.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=samla.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

vid raden skriver du:

Response.Write Server.HTMLEncode (br(rs("Kommentar")))& "</p><hr noshade> "

Om du har lagt in funktionen någonstans

Snarare

Response.Write br(Server.HTMLEncode(rs("Kommentar")))& "</p><hr noshade> "

Ligger br-funktionen innanför server.htmlencode skrivs <br>-taggarna ut istället.

tack, ska testa!

Får inte det till att funka-skriver så här:

<%
Function br(mess)
objRegExp.Pattern = vbcrlf
mess = objRegExp.Replace(mess,"<br>"& vbCrLf)
br = mess
End Function
%>

Sen anropar med:

Response.Write br(Server.HTMLEncode(rs("Kommentar")))& "</p><hr noshade> "

Får felmeddelande:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'objRegExp'

aha.. sorry :D

<%
Function br(mess) 
mess = Replace(mess,vbcrlf ,"<br>"& vbCrLf) 
br = mess 
End Function %>

ska det nog vara :e

Skitbra!! det funkar, tack så mycket!