<% ' ' 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:-)", "O:-)") s = Replace(s, "xx(", "xx(") s = Replace(s, ":-)", ":-)") s = Replace(s, ":o)", ":o)") s = Replace(s, ":-(", ":-(") s = Replace(s, ":o(", ":o(") s = Replace(s, ";-)", ";-)") s = Replace(s, ";o)", ";o)") s = Replace(s, ":-[", ":-[") s = Replace(s, ":o[", ":o[") s = Replace(s, ":-]", ":-]") s = Replace(s, ":o]", ":o]") s = Replace(s, ":)", ":)") s = Replace(s, ":(", ":(") s = Replace(s, ";)", ";)") s = Replace(s, ":]", ":]") s = Replace(s, ":[", ":[") s = Replace(s, ":D", ":D") s = Replace(s, ":O", ":O") s = Replace(s, ":P", ":P") replaceSmilies = s End Function %>