codice:
<%
path_icons = "/Smiles/"
Dim arrSigns(30,1)
arrSigns(0,0) = ":ciauz:"
arrSigns(0,1) = "icon_ciao3[1]"
arrSigns(1,0) = ":-o"
arrSigns(1,1) = "wow[1]"
arrSigns(2,0) = ":tumble:"
arrSigns(2,1) = "tumble[1]"
arrSigns(3,0) = ":tongue"
arrSigns(3,1) = "tongue[1]"
arrSigns(4,0) = ":spin:"
arrSigns(4,1) = "spin[1]"
arrSigns(5,0) = ":sniff:"
arrSigns(5,1) = "sniff[1]"
arrSigns(6,0) = ":smug:"
arrSigns(6,1) = "smug[1]"
arrSigns(7,0) = ":smile:"
arrSigns(7,1) = "smilegrin[1]"
arrSigns(8,0) = ":shock"
arrSigns(8,1) = "shocked[1]"
arrSigns(9,0) = ":ang:"
arrSigns(9,1) = "saint[1]"
arrSigns(10,0) = ":oky:"
arrSigns(10,1) = "icon_up[1]"
arrSigns(11,0) = ":("
arrSigns(11,1) = "sad"
arrSigns(12,0) = ":rolleyes:"
arrSigns(12,1) = "rolleyes"
arrSigns(13,0) = ":rag:"
arrSigns(13,1) = "regan[1]"
arrSigns(14,0) = ":puzz:"
arrSigns(14,1) = "puzzled[1]"
arrSigns(15,0) = ":no:"
arrSigns(15,1) = "no[1]"
arrSigns(16,0) = ":mad:"
arrSigns(16,1) = "mad[1]"
arrSigns(17,0) = ":lol:"
arrSigns(17,1) = "lol[1]"
arrSigns(18,0) = ":kiss:"
arrSigns(18,1) = "kiss[1]"
arrSigns(19,0) = ":grin:"
arrSigns(19,1) = "grin[1]"
arrSigns(20,0) = ":-))"
arrSigns(20,1) = "icon_riso2[1]"
arrSigns(21,0) = ":duh:"
arrSigns(22,1) = "duh[1]"
arrSigns(23,0) = ":barfy:"
arrSigns(23,1) = "barfy"
arrSigns(24,0) = ":bis:
arrSigns(24,1) = "bisou[1]"
arrSigns(25,0) = ":yawn:"
arrSigns(25,1) = "yawn[1]"
arrSigns(26,0) = ":cool:"
arrSigns(26,1) = "cool[1]"
arrSigns(27,0) = ":)"
arrSigns(27,1) = "smile[2]"
arrSigns(28,0) = ":sbav:"
arrSigns(28,1) = "sbav[1]"
arrSigns(29,0) = ":wink:"
arrSigns(29,1) = "icon_wink[1]"
arrSigns(30,0) = ";)"
arrSigns(30,1) = "wink[1]"
fileExt = ".gif"
Sub ShowIcons(tempString)
For x = 0 To UBound(arrSigns)
tempSign = arrSigns(x,0)
tempImg = arrSigns(x,1)
tempString = Replace(tempString,tempSign,("[img][/img]"))
Next
End Sub
stringa = "Ciao :-) come va? :-P tutto ok?"
Call ShowIcons(stringa)
Response.Write stringa
%>
Grazie in anticipo