this is the code of the script i'm using
have fun with it :-)


<%

' Encode a number from 0..15 to a single hex digit
Function HexChar(ByVal i)
If i < 10 Then
HexChar = Chr(i+Asc("0"))
Else
HexChar = Chr(i-10+Asc("A"))
End If
End Function

' Encode the control and punctuation characters in a string to %xx hex
values
Function URLEncode(ByVal s)
Dim result, ch
Do While Len(s) > 0
ch = Asc(s)
s = Right(s, Len(s)-1)
If (ch >= Asc("a") And ch <= Asc("z")) Or (ch >= Asc("A") And ch <=
Asc("Z")) Then
result = result & Chr(ch)
ElseIf ch = Asc(" ") Then
result = result & "+"
Else
'result = result & "*" & ch
'result = result & "!" & (ch/16) & (ch mod 16)
result = result & "%" & HexChar(Int(ch/16)) & HexChar(ch Mod 16)
End If
Loop
URLEncode = result
End Function

' Never cache the chat session
Response.Expires = 0

' Get the action to perform
action = Request.QueryString("action")

' Get the passed data
msg = Request.form("msg")
user = Request.form("user")
id = Request.form("id")
If Len(id) = 0 Then
id = "default"
End If

' Protect access to the chat session
Application.Lock
If action = "send" Then
' Add the string to the chat session
list = Application(id)
list = list + user + ": " + msg + chr(13)
Application(id) = list
ElseIf action = "clear" Then
' Clear the chat session
list = ""
Application(id) = list
Else 'If action = "update" Then
' Just return the current chat session
list = Application(id)
End If
Application.Unlock

' Return the chat session
response.write("list="+URLEncode(list))

%>