%
Response.Expires=-1000
Name = Session("Name")
If Request("RefreshRate") <> Empty Then
Session("RefreshRate") = Request("RefreshRate")
Else
Session("RefreshRate") = Session("RefreshRate")
End If
If Session("RefreshRate") = "" Then
Session("RefreshRate") = 10000
End If
%>
<%
textFile = Server.MapPath("files/")
textfile = textFile &"\"& (Replace(SESSION("IDCOM"), "+", "_") & ".txt")
on error resume next
Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
If Not fileObject.FileExists(textfile) Then
Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)
inStream.WriteLine " "
inStream.close
Set inStream = Nothing
response.write("File created...
")
response.flush
End If
Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)
file = inStream.ReadAll
instream.close
Set inStream = Nothing
on error goto 0
If Len(file) > 5000 Then
archiveFile = (Server.MapPath("files/")&"\"&(Replace(SESSION("IDCOM"), "+", "_") & ".txt")&"_" & 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 Request.Form("Add") = "TRUE" Then
file = file & "" & name & "(" & Now & "):
" & Request.form("Msg") & "
"
End If
Set outStream = fileObject.CreateTextFile(textFile,True)
outStream.WriteLine(file)
Set outStream = Nothing
Response.Write "" & file & ""
set fileObject=Nothing
response.write("Listo...
")
%>