asp flash-chat?

[soeshy]

i'm using the "dochat.asp" script for my chatbox.(installed together with flash 4 on your cpu)

how can i send a list of users to all the users in the same room (id)

The swf file i'm using is similar to the one called "chat"
also delivered with flash 4. The only big difference is that I use multi rooms (3 standard and 1 variable)

Can someone post me the corrected script or give me the code?
I'm graduating next week so this is important

thanx in advance

[soeshy]

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))

%>