Hvad betyder xbrxbr?

Du må jo replace \n med noget andet end <br> - kode er i hvert fald en start :)

Koden accepterer sikkert ikke HTML kode, dvs. elementer omgivet af "<" og ">". Det ud til at netop disse tegn bliver erstattet med "x".

Jeg vil også gerne se noget kode. Du skal, som pelkjaer rigtig nok skriver, kigge efter "replace"... i koden, det vil jeg gerne se.


Kim A

<% if mode = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/artikler.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from artikler where id = " & Request.Querystring("id") & ""
rs.Open strSQL, Conn, 1, 3
%>
    <tr>
        <td width=294>Artikler >> <%=rs("emne")%><font face="Tahoma" size="1"><hr color="black"></font></td>
    </tr>
<div align="left">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="390" height="82" id="AutoNumber1">
    <tr>
      <td width="390" height="22"><%=rs("emne")%></td>
    </tr>
    <tr>
      <td width="390" height="56"><%=rs("besked")%></td>
    </tr>
  </table>
</di<br><br>
Artiklen er skrevet af <% If rs("userid") > 0 Then Response.Write "<a href='../crew/crew-profil.asp?id=" & rs("userid") & "'>" End If %><%=server.htmlEncode(rs("forfatter"))%></a>

<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
end if %>

Du skal kigge det sted i koden hvor artiklen bliver indsat i databasen.

Her:

<%
DBPATH = "DBQ=" & Server.MapPath("../db/artikler.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBPATH

If Request.QueryString("mode") = "new" Then
    If Session("login") = true then
    forfatter = Session("navn")
    Else
    forfatter = Request.Form("forfatter") End If
    oprettet = Now
    emne = Request.Form("emne")
    billede = Request.Form("billede")
    besked1 = Request.Form("besked")
    besked1 = Replace(besked1, "'", "''")
    besked1 = Replace(besked1, vbCrLf, "xbr")
    besked = besked1
    If Session("login") = True Then
    userid = Session("id")
    Else userid = "0" End If
    ip = Request.ServerVariables("REMOTE_ADDR")

    If forfatter="" Or besked="" Or userid="" then
        Response.Write "<b>Du skal udfylde alle felter!!</b>"
    Else
        strSQL="INSERT INTO tagwall (forfatter,billede,emne,oprettet,besked,userid,ip) VALUES('" & forfatter & "','" & billede & "','" & emne & "','" & oprettet & "','" & besked & "','" & userid & "','" & ip & "')"
        Conn.Execute(strSQL)

    Response.Redirect "artikler.asp"
    End If
End If

Set Conn = Nothing

%

Godt. Det sker i følgende linie:
besked1 = Replace(besked1, vbCrLf, "xbr")

Erstattes med følgende:
besked1 = Replace(besked1, vbCrLf, "<br>")

Det skulle virke.


Kim A

Huh..
Kiggede jeg faktisk os lige på...
Skriv lige som et svar ;)

Erstat
besked1 = Replace(besked1, vbCrLf, "xbr")

med
besked1 = Replace(besked1, vbCrLf, "<br>")

bingo

Kim A

tak for hjælpen..