**

<%
Response.Expires=-1000
Topic = Session("Topic")
Name = Session("Name")
Session("RefreshRate") = 10000
%>








<%
Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
' Mapa arquivo de tópico apropriado
textFile = Server.MapPath("files/" & Replace(Topic, "+", "_") & ".txt")
If Not fileObject.FileExists(textfile) Then
Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)
inStream.WriteLine " "
End If

Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)


file = inStream.ReadAll
Set inStream = Nothing

If Len(file) > 5000 Then
'arquive o arquivo velho
'nome de arquivo é topic_date posto debaixo de files/archives
archiveFile = Server.MapPath("files/" & Replace(Topic, "+", "_") & "_" & Server.URLEncode(Now) & ".txt")
Set inStream = fileObject.CreateTextFile(archiveFile,True)
inStream.Write file
inStream.Close
Set inStream = Nothing


Set inStream = fileObject.CreateTextFile(textFile,True)
inStream.Write " "
Set inStream = Nothing
file = " "
End If

If IsNull(Session("Enter")) Or Session("Enter") = True Then
file = file & "***[" & Session("Name") & " entra na sala (" & Now & ")]***
"
Session("Enter") = False
End If

If Request.Form("Add") = "TRUE" Then
file = file & "(" & time & ")" & Session("Name") & " " & request("acao") & " " & request("usu") & ": " & Request("Msg") & "
"
End If

Set outStream = fileObject.CreateTextFile(textFile,True)
outStream.WriteLine(file)
Set outStream = Nothing

Response.Write "" & file & ""

PrivRcpt = Application("PrivateRcpt")
Match = 0
If IsArray(PrivRcpt) Then
PrivateMsgs = Application("PrivateMsgs")
NumOfRcpt = UBound(PrivRcpt)
ReDim Preserve UpdatedPrivRcpt(1)
ReDim Preserve UpdatedPrivMsg(1)
For I = 0 To NumOfRcpt
If Name = PrivRcpt(I) Then
Response.Write "" & PrivateMsgs(I) & ""
Else
ReDim Preserve UpdatedPrivRcpt(Match)
ReDim Preserve UpdatedPrivMsg(Match)
UpdatedPrivRcpt(Match) = PrivRcpt(I)
UpdatedPrivMsg(Match) = PrivateMsgs(I)
Match = Match + 1
End If
Next
Application("PrivateRcpt") = UpdatedPrivRcpt
Application("PrivateMsgs") = UpdatedPrivMsg
End If

%>