<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'uložení if request("zprava") <> "" then if session("bikestore_chat") = "1" then zprava = "" elseif session("bikestore_chat") = "2" then zprava = "" end if zprava = zprava & formatdatetime(now,2) & " " & formatdatetime(now,3) & "
" & replace(request("zprava"),vbcrlf,"
") & "
" & "-----------------------------------------------" & "
" & "
" zprava = zprava & "" & vbcrlf set f = Server.CreateObject("Scripting.FileSystemObject") set fi = f.GetFile(server.mappath("../../reklama_uvod/" & session("server") & "/chat.txt")) set t = fi.OpenAsTextStream(1) obsah = t.Read(fi.Size) Set t = fi.OpenAsTextStream(2) t.Write(zprava & obsah) t.Close set f = nothing end if if request("poznamka2") = "1" then Set f = Server.CreateObject("Scripting.FileSystemObject") set t = f.OpenTextFile(Server.MapPath("../../reklama_uvod/" & session("server") & "/chat2.txt"),2) t.write(request("poznamka")) set f = nothing end if session("ulozeno") = "1" Response.clear response.redirect "chat.asp" %>