<% 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...
") %>