response.write med server.htmlencode

Hej,
Skulle vilja ersätta en rad.

Denna har jag idag.

response.write "<b>Artikel:</b><br> " & rs("beskrivning") & "<br>"

Denna skulle jag vilja visa istället. Men hur ser det ut?

<%text = server.htmlencode(rs("beskrivning"))%><%=Replace(text,vbCrLf,"<br>")%>

På vilket sätt funkar inte det du har skrivit?

Dim Text
Text = Server.Htmlencode(rs("beskrivning"))
Text = Replace(text,vbCrLf,"<br>")
Response.Write "<b>Artikel:</b><br> " & Text & "<br>"

borde fungera.

Jag skriver ut med response.write.
Och jag undrar hur raden ska se ut med alla fnutar osv.....jag får inte till det.

Usch vad snabba ni är på att svara:)

Skriver ut så här:

<%
If session("id") = "" then
response.write "ej inloggad"
else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db.mdb")

SQL = "select id, kategori, uniknr from artiklar where medlem = " & session("id") & " order by inlagtdatum desc"
set rs=server.createobject("adodb.recordset")

rs.Open SQL, connect

Do While not rs.eof 

response.write "<b>Artikel Nr:</b> " & rs("id") & "<br>"
response.write "<b>Artikel:</b><br> " & rs("beskrivning") & "<br>"

rs.MoveNext
loop 
rs.close
connect.close
end if
%>

Detta är endast en del. Alltså ej komplett.

.....
<%
If session("id") = "" then
response.write "ej inloggad"
else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db.mdb")

SQL = "select id, kategori, uniknr from artiklar where medlem = " & session("id") & " order by inlagtdatum desc"
set rs=server.createobject("adodb.recordset")

rs.Open SQL, connect

Do While not rs.eof 
Dim Text
Text = Server.Htmlencode(rs("beskrivning"))
Text = Replace(text,vbCrLf,"<br>")

response.write "<b>Artikel Nr:</b> " & rs("id") & "<br>"
Response.Write "<b>Artikel:</b><br> " & Text & "<br>"

rs.MoveNext
loop 
rs.close
connect.close
end if
%>

??? annars får du nog komma med en liten bättre förklaring ;)

voigtann1 skrev:

Dim Text
Text = Server.Htmlencode(rs("beskrivning"))
Text = Replace(text,vbCrLf,"<br>")
Response.Write "<b>Artikel:</b><br> " & Text & "<br>"

borde fungera.

Detta fungerade