Hjælp til smileys i script

jeg sidder og forsøger på at lave nogle smileys, som kan bruges når der skrives en kommentar. Det virker fint, men når smileyen skal vises i beskeden så skriver scriptet bare :-) frem for at vise et hovede... Er der en der kan hjælpe mig med at får mit script til at vise et hovede frem for :-)


<b><FONT FACE="VERDANA" SIZE="1" COLOR='#473262'>Kommentar:</FONT></b><br>
<%
  ' Declaring variables
  Dim rs, data_source, no
  no = 0
  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("form.mdb")

  ' Creating Recordset Object and opening the database
  Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from comments where id = " & Request.QueryString("id") & ";"
comments = Replace(comments, ":-)", "<img src='smil_a.gif'>")

  rs.Open strSQL, data_source
  ' Looping through the records to show all of them
  While Not rs.EOF %>

<style>
<!--
fieldset    { border: 1px solid #DCB7DC }
-->
</style>
<fieldset style="padding: 2">
<legend>
<FONT FACE="VERDANA" SIZE="1" COLOR='#473262'><b>Skrevet af:</b> <i><a href="mailto:<%= rs("email") %>"><%= rs("name") %></a></i> <b>D.</b> <i><%=rs("comments") %></i>
</legend>
<%=rs("dato") %></font>
</div>
</fieldset>
<br>
<%
  no = no + 1
  rs.MoveNext
  Wend
  ' Done. Now close the Recordset
  rs.Close
  Set rs = Nothing
%>
<hr COLOR="#DCB7DC" SIZE="1">
<FONT FACE="VERDANA" SIZE="1" COLOR='#473262'><center><b>NB:</b> Useriøse indlæg bliver slette</center>
<b><center>Skriv kommentar:</center></FONT></b>
<form method="POST" action="save.asp">
  <input type="hidden" name="Mode" value="Comments">
  <input type="hidden" name="Id" value="<%= Request("Id") %>">
  <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" width="420">
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="1">Navn:</FONT></td>
        <td width="465"><input type="text" name="name" size="44" maxlength="255"></td>
      </tr>
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="1">E-Mail:</FONT></td>
        <td width="465"><input type="text" name="email" size="44" maxlength="255"></td>
      </tr>

      <tr>
        <td width="81" valign="top"><FONT FACE="VERDANA" SIZE="1">Besked:</FONT></td>
        <td width="465"><textarea class="area" rows="4" name="comments" cols="33"></textarea></td>
      </tr>
    </table>
    </center>
  </div>
<script type="text/javascript">
    <!--
    function storeCaret(textEl)
    {
    if (textEl.createTextRange) textEl.caretPos = document.selection.createRange().duplicate();
    }

    function insertAtCaret(textEl, text)
    {
    if (textEl.createTextRange && textEl.caretPos)
    {
    var caretPos = textEl.caretPos;
    caretPos.text = (caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? text + ' ' : text);
    }
    else
    {
    textEl.value = textEl.value + text;
    }
    textEl.focus();
    }
    //-->
    </script>
<center><span class="small">Klik på en "Smiley" for at føje den til din comments!</span><br clear="all">
<img alt=":-) Glad"
border="0" height="12" hspace="2" onClick="insertAtCaret(document.getElementById('comments'),' :-) ');" src="smil_a.gif" style="cursor: hand; cursor: pointer" title=":-) Glad" width="12">
</p>
<br clear="all"></center>
  <p align="center"><input type="submit" value="Gem Kommentar" name="Send" class="button"></p>
</p>
</form>