replace

<%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
SQL = "SELECT TOP 18 * FROM beskeder WHERE til = 'Alle' or til = '" & Session("login") & "' or fra = '" & Session("login") & "'" & "order by id desc"
set rs = Conn.execute (SQL)

If rs.EOF Then%><strong>Ingen beskeder</strong><%else%> <%
do while not rs.eof
besked = Replace(rs("besked"), ":-)", "A30 004.jpg")

If RS("til") = "Alle" THEN
response.write "<span style='color: #000000;'><strong>" & rs("fra") & ": &nbsp;</strong>" & besked & "<br>"
ELSE
response.write "<span style='color: #000080;'><strong>" & rs("fra") & ": &nbsp;</strong>" & besked & "<br>"
END IF%> <%rs.movenext%> <%loop%><%end if%>

hvad er det der er galt med
<%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
SQL = "SELECT TOP 18 * FROM beskeder WHERE til = 'Alle' or til = '" & Session("login") & "' or fra = '" & Session("login") & "'" & "order by id desc"
set rs = Conn.execute (SQL)

If rs.EOF Then%><strong>Ingen beskeder</strong><%else%> <%
do while not rs.eof
mmm = Replace(rs("besked"), "mmm", "<img src='mmm.gif'>")
sej = Replace(rs("besked"), "sej", "<img src='sej.gif'>")
sur = Replace(rs("besked"), ":-(", "<img src='sur.gif'>")
cool = Replace(rs("besked"), "cool", "<img src='cool.gif'>")
If RS("til") = "Alle" THEN
response.write "<span style='color: #000000;'><strong>" & rs("fra") & ": &nbsp;</strong>" & besked & "<br>"
ELSE
response.write "<span style='color: #000080;'><strong>" & rs("fra") & ": &nbsp;</strong>" & besked & "<br>"
END IF%> <%rs.movenext%> <%loop%><%end if%>
så ?

closing time..