Pues crea una función. Por ejemplo:
Sub doSmilie(text)
pT = text
pT = replace(pT, ":)", "<img src=http....>")
PT = replace(pT, ":(", "<img src=http....>")
...
doSmilie = pT
End Sub
Y luego, simplemente, llamas a sub, y muestras el texto:
response.write smilie(variable)