<% set file = Server.CreateObject("Scripting.FileSystemObject") path = "d:/inetpub/wwwrootvidrecor/dados/cvidrecor.txt" set infile = file.OpenTextFile( path ) visitor = infile.ReadLine d = infile.ReadLine fundo = infile.ReadLine session("visitas") = visitor session("data") = d %>

Cadastro Contato

Número de visitas <%=visitor%>