<%
'
' Replaces most commonly used smilies with small images indicating the
' text-smiley in a more fancy way ;-)
'
Function replaceSmilies(s)
If (Len(s) = 0) Then
replaceSmilies = ""
Exit Function
End If
s = Replace(s, "O:-)", "
")
s = Replace(s, "xx(", "
")
s = Replace(s, ":-)", "
")
s = Replace(s, ":o)", "
")
s = Replace(s, ":-(", "
")
s = Replace(s, ":o(", "")
s = Replace(s, ";-)", "
")
s = Replace(s, ";o)", "")
s = Replace(s, ":-[", "
")
s = Replace(s, ":o[", "")
s = Replace(s, ":-]", "![:-]](images/devil.gif)
")
s = Replace(s, ":o]", "")
s = Replace(s, ":)", "")
s = Replace(s, ":(", "")
s = Replace(s, ";)", "")
s = Replace(s, ":]", "")
s = Replace(s, ":[", "")
s = Replace(s, ":D", "
")
s = Replace(s, ":O", "
")
s = Replace(s, ":P", "
")
replaceSmilies = s
End Function
%>