Function

Hvad går der galt her ?
Jeg burde da kunne bruge functionen ved FormatText("Hej med dig") eller FormatText(Request.Form("Text"))

Function FormatText(text2format)
    text2format = replace(text2format, chr(13), "<br>")
    text2format = replace(text2format, ":-)", "<IMG SRC=i/smiley/smiley.gif>")
    text2format = replace(text2format, ";-)", "<IMG SRC=i/smiley/blink.gif>")
    text2format = replace(text2format, ":-D", "<IMG SRC=i/smiley/smileD.gif>")
    text2format = replace(text2format, ":-d", "<IMG SRC=i/smiley/smileD.gif>")
    text2format = replace(text2format, "8-)", "<IMG SRC=i/smiley/smileB.gif>")
    text2format = replace(text2format, "B-)", "<IMG SRC=i/smiley/smileB.gif>")
    text2format = replace(text2format, "b-)", "<IMG SRC=i/smiley/smileB.gif>")
    text2format = replace(text2format, ":-S", "<IMG SRC=i/smiley/crooked.gif>")
    text2format = replace(text2format, ":-s", "<IMG SRC=i/smiley/crooked.gif>")
    text2format = replace(text2format, ":-|", "<IMG SRC=i/smiley/disgust.gif>")
    text2format = replace(text2format, ":-l", "<IMG SRC=i/smiley/disgust.gif>")
    text2format = replace(text2format, ":-I", "<IMG SRC=i/smiley/disgust.gif>")
    text2format = replace(text2format, ":-(", "<IMG SRC=i/smiley/sad.gif>")
    text2format = replace(text2format, ":-O", "<IMG SRC=i/smiley/smileO.gif>")
    text2format = replace(text2format, ":-o", "<IMG SRC=i/smiley/smileO.gif>")
    text2format = replace(text2format, ":-0", "<IMG SRC=i/smiley/smileO.gif>")
    text2format = replace(text2format, ":-P", "<IMG SRC=i/smiley/smileP.gif>")
    text2format = replace(text2format, ":-Þ", "<IMG SRC=i/smiley/smileP.gif>")
    text2format = replace(text2format, ":-p", "<IMG SRC=i/smiley/smileP.gif>")
End Function