<%
if request.Form("func") = "Send" then
nickName = trim(request.Form("nickName"))
chatBox = trim(request.Form("chatBox"))
session("nickName") = nickName
Set objFlSys = Server.CreateObject("Scripting.FileSystemObject")
chatFile = Server.MapPath ("chatlog.txt")
Set objStreamOutput= objFlSys.OpenTextFile (chatFile, 1, TRUE)
ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
objStreamOutput.Write "" & nickName & ":"
objStreamOutput.WriteLine chatBox & "
" & vbnewline
Set objStreamOutput = Nothing
end if
Set objFlSys = Server.CreateObject("Scripting.FileSystemObject")
chatFile = Server.MapPath ("chatlog.txt")
Set objStreamInput = objFlSys.OpenTextFile (chatFile, 1, False, False)
Response.Write objStreamInput.ReadALL & "
"
Set objStreamInput=Nothing
%>