INCOMATTI MADEIRAS

<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) Arquivo_contador = Server.MapPath(Dir) & "\data\Acumulador.txt" On Error Resume Next Set InStream = FileObject.OpenTextFile (Arquivo_contador, 1, False ) Valor_Antigo = Trim(InStream.ReadLine) Valor_Novo = Valor_Antigo + 1 Set OutStream = FileObject.CreateTextFile (Arquivo_contador, True) OutStream.WriteLine(Valor_Novo) %> INCOMATTI MADEIRAS

INCOMATTI MADEIRAS LTDA
Rua Pastor Adolfo Wiedmann, 1273
Parque Ingles
CEP 83312.000
Piraquara-Pr-Brasil
Fone: +5541 667 39 87
Fax: +5541 238 36 63
cleverson@incomatti.com.br

BORCHERT & CIA LTDA
Rua Fulvio Jose Alice, 349
Higienopolis
CEP 82850.450
Curitiba-Pr-Brasil
Fone: +5541 238 30 59
Fax: +5541 238 36 63
cleversu@hotmail.com

INCOMATTI MADEIRAS LTDA (Nº 2)
Rua A
CEP:83040.550
Sao Jose dos Pinhais-Pr-Brasil
Fone: +5541 9626 21 89
Fax: +5541 238 36 63
incomatti@terra.com.br

................................................................................................................................................................................................................