Break

Replace(dinbesked,Chr(13) & chr(10),\"<BR>\")

text = replace(text, vbcrlf, \"<BR>\")

Skal jeg indsætte det på:

Skriv  eller  Læs

siden.

Læs siden :-)

OK...så prøver vi lige at skære det ud i pap til mig.*GGGG*

HVOR??


<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../database/guestbook.mdb\")
strSQL = \"select top 150 * FROM guestbook ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>


navn:<br><%=RS(\"navn\")%>

<br><br>                 

e-mail:<br><a href=\'mailto:<%=RS(\"e_mail\")%>\'<%=RS(\"e_mail\")%></a>
<br><br>

kommentar:<br><%=RS(\"kommentar\")%>

<input type=\"submit\" value=\"send\">


<%
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
%>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../database/guestbook.mdb\")
strSQL = \"select top 150 * FROM guestbook ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>


navn:<br><%=RS(\"navn\")%>

<br><br>                 

e-mail:<br><a href=\'mailto:<%=RS(\"e_mail\")%>\'<%=RS(\"e_mail\")%></a>
<br><br>

kommentar:<br><%=replace(RS(\"kommentar\"),vbcrlf,\"<BR>\")%>

<input type=\"submit\" value=\"send\">


<%
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
%>

Kanon :-)

Tak