Seg Engenharia e Construções Ltda.

<%@LANGUAGE="VBSCRIPT"%> <% Dim containdex,objtexto,ler,gravar Set objtexto = Server.CreateObject("Scripting.FileSystemObject") Set ler = objtexto.OpenTextFile(Server.MapPath("..\..\dados\visitas.txt"), ForReading, False, False) containdex=ler.ReadLine response.write containdex & "containdex
" ler.close Set gravar = objtexto.OpenTextFile(Server.MapPath("..\..\dados\visitas.txt"), ForWriting, False, False) gravar.WriteLine(containdex+1) response.write containdex & "containdex
" gravar.Close %> Seg Engenharia e Construções Ltda.


	SEG Engenharia e Construções

Início

<%=containdex%>

"Sonho que se sonha só é um sonho que só se sonha só,

mas sonho que se sonha junto é realidade." Raul Seixas