Smileys på tagwall

Hejsa

En noobie som mig har følgende kode på min tagwall
_____________________________________________________
<%


                                                                                                       
    If not Res.EOF then
    Res.movefirst
    while not Res.eof
   
   
    tag_txt = replace(res("tag_txt"),vbcrlf,"<br>")
    tag_txt = Replace(res("tag_txt"), ":)", "<img src='image/smilies/smile.gif'>")
    tag_txt = Replace(res("tag_txt"), ":o", "<img src='image/smilies/shock.gif'>")
    tag_txt = Replace(res("tag_txt"), ":(", "<img src='image/smilies/ked.gif'>")
    tag_txt = Replace(res("tag_txt"), ":D", "<img src='image/smilies/laugh.gif'>")
    tag_txt = Replace(res("tag_txt"), ":P", "<img src='image/smilies/tunge.gif'>")
    tag_txt = Replace(res("tag_txt"), ":R", "<img src='image/smilies/retard.gif'>")
    tag_txt = Replace(res("tag_txt"), ":M", "<img src='image/smilies/mad.gif'>")
    tag_txt = Replace(res("tag_txt"), ":E", "<img src='image/smilies/evil.gif'>")
    tag_txt = Replace(res("tag_txt"), ":C", "<img src='image/smilies/cool.gif'>")
    tag_txt = Replace(res("tag_txt"), ":B", "<img src='image/smilies/bowling.gif'>")
   
   
%>

<%=tag_txt%>
____________________________________________

Men af en eller anden grund virker det ikke helt som jeg gerne vil have det til.

Kan i se hvad der er galt?