<% 'if (current_ip = "") then ' current_ip = request.servervariables("REMOTE_HOST") 'end if 'my_ip = "127.0.0.1" 'Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 'HitsFile = Server.MapPath ("/") & "\contador.txt" 'Set InStream = FileObject.OpenTextFile (HitsFile, 1, false) 'OldHits = Trim(InStream.ReadLine) 'if (current_ip <> my_ip) then ' NewHits = OldHits + 1 ' my_ip = current_ip 'else ' NewHits = OldHits 'end if 'Set OutStream = FileObject.CreateTextFile (HitsFile, True) 'OutStream.WriteLine(NewHits) 'InStream.close 'OutStream.close 'Set FileObject = Nothing 'Set InStream = Nothing 'Set OutStream = Nothing %> Bem Vindo a Compu Soft Business  -  Soluções em Automação Comercial

Atente para seu prazo de utilização do Emissor de Cupom Fiscal.

 

 

 

 

<% Randomize TipNumber = Int(Rnd*28) Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Instream = FileObject.OpenTextfile(Server.MapPath("/") & "\frases.txt", 1, FALSE, FALSE) For i = 1 to TipNumber -1 Instream.SkipLine() Next TipOfTheDay = Instream.ReadLine %> <%=TipOfTheDay%>

Você é nosso visitante <%=NewHits%> desde 09/07/2001

Obrigado por estar em nosso SITE