SmileyReplace funktion

En snygg, smidig och enkel funktion för att byta ut smileytecken mot bilder. :)

<%
Function SmileyReplace(sString)
	Dim dic, k
	Set dic = Server.CreateObject("Scripting.Dictionary")
	
	dic("&#59;)") = "wink.gif" : dic("&#58;)") = "smile.gif"
	dic("&#120;(") = "angry.gif" : dic("&#58;D") = "biggrin.gif"
	dic("&#58;h") = "cool.gif" : dic("&#58;f") = "flirt.gif"
	
	For Each k In dic.Keys
		sString = Replace(sString, " " & k, " <img src=""" & dic(k) & """>", 1, -1, 1)
	Next 'k
	
	Set dic = Nothing
	
	SmileyReplace = sString
End Function

Response.Write SmileyReplace(" &#58;D ;)")
%>

Bara till o fylla på dictionaryt om man vill lägga in fler smileys.