Jeg kan ikke lige se, hvad der i vejen med koden i artiklen, men her er en funktion til at udskifte smilierne med:
Function replaceSmilies(s)
If (Len(s) = 0) Then
replaceSmilies = ""
Exit Function
End If
s = Replace(s, ":-)", "<img src='images/smilies/smile.gif' alt=':-)' align=absmiddle>")
s = Replace(s, ":-(", "<img src='images/smilies/frown.gif' alt=':-(' align=absmiddle>")
replaceSmilies = s
End Function
mvh.
Stefan Svensson
Hej,
Så det eneste jeg gør, er at indtaste:
<%
Function replaceSmilies(s)
If (Len(s) = 0) Then
replaceSmilies = ""
Exit Function
End If
s = Replace(s, ":-)", "<img src='images/smilies/smile.gif' alt=':-)' align=absmiddle>")
s = Replace(s, ":-(", "<img src='images/smilies/frown.gif' alt=':-(' align=absmiddle>")
replaceSmilies = s
End Function
%>
På alle mine sider, og så virker det?