Smiley i gæstebog

jeg er ved at lave en gæstebog,hvor jeg gerne vil have at mine brugere, skal kunne indsætte en Smiley ved at f.eks. skrive :-).
Men hvordan gør jeg sådan, at når beskeden skal udskrives på skærmen at den retter :-) til et billede som passer til det??

default.asp
<p><center><FONT FACE="VERDANA" SIZE="2"><a href="skriv.asp">Skriv i gæstebogen</a></FONT></center><br>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

function Smile(fString)
'Smileys
felt=Replace(felt,":)","<img src=""img/smiley/smileys141[1].bmp"" align=""middle"" alt="""">")
smiley=felt
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from users where vises = True ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("form.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 3
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<center>Side " & intPage & " af " & intPageCount & "</center>"
  Do While Not rs.EOF And intRecCount > 0


response.write "<fieldset style='padding: 2'>"
response.write "<legend><font face='Verdana' size='1'COLOR='#473262'><a href='mailto:" & rs("email") & "'>" & rs("name") & "</a>&nbsp;" & rs("dato")  & "</FONT>"
response.write "</legend>"
response.write "<font face='Verdana' size='1'>"
response.write rs("comments") &"<br>"
response.write "</FONT></div>"
response.write "</fieldset>"
response.write "<br>"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<hr color='#DCB7DC' size='1'>"
For intNum = 1 To intPageCount
Next
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='400'>"
Response.Write "<tr>"
Response.Write "<td width='33%' align='left'>&nbsp;"
If Clng(intPage) > 1 Then
Response.Write "<a href=faq.asp?page=" & intPage - 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b> </a>"
Else
Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b>"
End If
Response.Write "</td>"
Response.Write "<td width='33%' align='center'></td>"
Response.Write "<td width='34%' align='right'>"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=faq.asp?page=" & intPage + 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Næste</b></a> &nbsp;</td>"
Else
  Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Næste</b>"
End If
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
%>