# Cant get it to work can someone tell me why?

**URL:** <https://forum.kirupa.com/t/cant-get-it-to-work-can-someone-tell-me-why/29673>\
**Category:** Uncategorized\
**Created:** [August 29, 2003, 4:20am UTC](https://forum.kirupa.com/t/cant-get-it-to-work-can-someone-tell-me-why/29673 "2003-08-29T04:20:05Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![bongbox](https://avatars.discourse-cdn.com/v4/letter/b/0ea827/32.png) [@bongbox](https://forum.kirupa.com/u/bongbox)\
**Post date:** [August 29, 2003, 4:20am UTC](https://forum.kirupa.com/t/cant-get-it-to-work-can-someone-tell-me-why/29673/1 "2003-08-29T04:20:05Z")

</div>

this is flash chat application written is asp can’t get it to work can someone tell me why here ill attach the file both the fla and the asp file

---

<div class="post-metadata">

**Author:** ![system](https://canada1.discourse-cdn.com/flex011/uploads/kirupa/original/3X/6/2/621e5c11736f46532526e61be85940af4230f3e5.png) [@system](https://forum.kirupa.com/u/system)\
**Post date:** [August 29, 2003, 4:20am UTC](https://forum.kirupa.com/t/cant-get-it-to-work-can-someone-tell-me-why/29673/2 "2003-08-29T04:20:40Z")

</div>

’ 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(“data1”)  
user = Request.form(“user”)  
id = Request.form(“server”)  
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) +”================="+ 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))