Supongamos que tu recordset se llama RS, el campo de la BD donde está el mensaje se llame MENSAJE, que tu smile textual es
y que el smile grafico se llama carita.gif:
Código:
<%
'...
Mensaje = Rs("MENSAJE")
Mensaje = Replace(Mensaje, ":-)", "<img src='carita.gif'>")
'...
Response.Write Mensaje
'...
%>