Por Favor , Ayuda, Gracias

[RMONJE]

Estoy obsesionado con el tema de poner imagenes en mi foro pero no doy con la solucion , si alguien fuera tan amable de orientarme se lo agradeceria.

os digo lo que hago , cojo y le digo:
feliz = "<img src=arrow1.gif>"

mensaje=Replace(Request.Form
("mensaje"),"RAUL",feliz)

y que la palabra Raul la cambie por una imagen pero , me escribe en el formulario la ruta textual y mo la imagen, os pongo la rutina para que me indiqueis que hago mal y la direcion del foro de pruebas en el esperimento...
gracias

el foro esta en :http://www11.brinkster.com/rmonje/
y la rutina es esta

<B>Foro Solo ASP</B>
<%

IdMensaje = Request.QueryString("IdMEnsaje")
nombre = Trim(Request.Form("nombre"))
email = Trim(Request.Form("email"))
titulo = Trim(Request.Form("titulo"))
mensaje = Request.Form("mensaje")
feliz = <img src=arrow1.gif>
If nombre = "" OR email = "" OR mensaje = "" then
Response.Write "<BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<BR>Presionar Atras y completarlo correctamente"
ElseIf InStr(email, "@") = 0 OR InStr(email,".") = 0 OR Len(email) < 5 then
Response.Write "<BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<BR>Presionar Atras y completarlo correctamente"
Else

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/foro.mdb")

'Si es una pregunta nueva...
mensaje = Replace (mensaje, "'", "''")
mensaje=Replace(Request.Form("mensaje"), "RAUL",feliz)
Response.Write feliz

If IdMensaje = "" then
oConn.Execute "INSERT INTO discusion (nombre, email, titulo, mensaje, fecha) VALUES ('"&nombre&"', '"&email&"', '"&titulo&"', '"&mensaje&"','"& Now()&"')"
'Si es una respuesta a una pregunta...
Else
oConn.Execute "INSERT INTO discusion (nombre, email, titulo, mensaje, fecha, IdCabeza) VALUES ('"&nombre&"', '"&email&"', '"&titulo&"', '"&mensaje&"','"& Now()&"', "&IdMensaje&")"
Set RS_Resp = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT respuestas FROM discusion WHERE IdMensaje="&IdMensaje&""
RS_Resp.Open sql, oConn, 2 ,2
oConn.Execute "UPDATE discusion SET Respuestas=("&RS_Resp("Respuestas&qu ot;)+1&") WHERE IdMensaje="&IdMensaje&" "
RS_Resp.Close
Set RS_Resp = Nothing
End If%>
<BR><BR><B>Gracias <%=nombre%>,<BR>
Fue enviado con éxito el mensaje <FONT COLOR="#B5BBCA"><%= titulo %></FONT> con el texto: </B><BR><BR>
<P><I><%=AcomodarTXT(mensaje)%>& lt;/I></P><BR><BR>
<A HREF="foro.asp"><B><FONT FACE="Arial" SIZE="2">Volver al Foro de Solo ASP</FONT></B></A>
<%
oConn.Close
Set oConn = nothing
End If

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>