COMPANHIA DOCAS DE IMBITUBA
Administração do Porto de Imbituba
RELATÓRIO DIÁRIO DE OPERAÇÕES

<% Set Obj = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = Obj.OpenTextFile(Server.MapPath("rdo.txt"),1) do while arquivo.AtEndOfStream=false a = arquivo.Readline response.write a loop arquivo.close %>