Creo que vos buscas algo asi.. mas o menos
<%
'Obtenemos el texto del TextArea
TextArea = Trim(Request.QueryString("TextArea"))
'Aqui reemplazamos lo que necesitamos
TextArea = Replace(TextArea,"
","<img src='http://www.forosdelweb.com/images/smilies/smile.gif'>")
TextArea = Replace(TextArea,chr(13),"<br>")
'Mostramos el contenido
Response.Write TextArea
%>
perdon donde esta la carita pone : - ) pero sin los espacios dentro de la cara