function grava(nick,email,cordonick,texto)
                 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                 caminho = Server.MapPath("conversa.txt")
                 Set TXT = FSO.OpenTextFile(caminho)
                 ct  =  txt.readALL
                 id = id()
                 Set gravar = FSO.CreateTextFile(caminho,true)
                 gravar.write (ct&"id: "&id&",<font color='"&cordonick&"'>"&nick&"</font>,"&email&","&texto&";")
                 gravar.close
        end function
        function id()
                 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                 caminho = Server.MapPath("id.txt")
                 Set TXT = FSO.OpenTextFile(caminho)
                 ct  =  txt.readALL
                 ct = ct+1
                 Set gravar = FSO.CreateTextFile(caminho,true)
                 gravar.write (ct)
                 gravar.close
                 id = ct
        end function
        function devolve(caminho)
                             Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                             Set TXT = FSO.OpenTextFile(caminho)
                             ct  =  txt.readALL
                             devolve = ct

        end function
        function limpa()
                 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                 caminho = Server.MapPath("conversa.txt")
                 Set gravar = FSO.CreateTextFile(caminho,true)
                 gravar.close
        end function