Erro no contador de visitante usando o objeto FSO

[Adilson_Web_2007 0]

Olá pessoal estou fazendo um contador de visitante em uma página e ta dando esse erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: '[string: "C:\Inetpub\wwwroot\c"]'

/contratos/inserePessoaFisica.asp, line 49

 

 

Tipo de navegador:

 

Alguém sabe o que é por favor? esse código pesquisa na net pois conheço pouco de ASP, mas agradeço a todos.

 

 

set fso = Server.CreateObject("Scripting.FileSystemObject")set sArquivo = Server.MapPath ("/contador") & "codigo_cliente.txt"Set Verifica = fso.OpenTextFile(sArquivo, 1, False, 0)nVisitas = trim(Verifica.ReadLine)nGravaValor=nVisitas+1setContaVisita=fso.CreateTextFile(sArquivo,true,false)ContaVisita.WriteLine(nGravaValor)set ContaVisita=nothingset fso=nothingresponse.Write(nVisitas)

[Ted k' 126]

set sArquivo = Server.MapPath ("contador/codigo_cliente.txt")

Tente assim!

[Adilson_Web_2007 0]

Ai a dica foi boa eu usei a sua dica e fiz assim passou por ela agora ta dando esse erro:

 

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0005)

Chamada de procedimento ou argumento inválido

/contratos/inserePessoaFisica.asp, line 52

 

segue o código

 

 

set fso = Server.CreateObject("Scripting.FileSystemObject")set Verifica =fso.OpenTextFile(server.MapPath("contador/codigo_cliente.txt"),1) 'mudei aquinVisitas = trim(Verifica.ReadLine)nGravaValor=nVisitas+1set ContaVisita = fso.CreateTextFile(sArquivo,true,false) ' erro aquiContaVisita.WriteLine(nGravaValor)set ContaVisita=nothingset fso=nothingresponse.Write(nVisitas)

[Ted k' 126]

peraê ñ era assim, vamos testar esse:

 

<%
Const forReading = 1, forWriting = 2, forAppending = 8
Set Fso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = Fso.GetFile("e:\home\login\web\teste\arquivo.txt")
Set objStream = ObjFile.OpenAsTextStream(forReading,false)
While Not ObjStream.AtEndOfStream 
Linha = Linha & ObjStream.Readline & "<br>"
Wend
Response.write Linha
objStream.Close
Set Fso = nothing
Set objStream = nothing
%>

[Adilson_Web_2007 0]

Ai eu fiz assim e agora deu certo que coisa ne , Ai cara muito obrigado pela ajuda foi de grande importancia.

 

 

 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")sArquivo = Server.MapPath ("contador") & "/codigo_cliente.txt"Set Verifica = FSO.OpenTextFile(sArquivo, 1, False, 0)nVisitas = Trim(Verifica.ReadLine)nGravaValor = nVisitas + 1Set ContaVisita = FSO.CreateTextFile(sArquivo, True, False)ContaVisita.WriteLine(nGravaValor)Set ContaVisita = NothingSet FSO = Nothingresponse.Write(nVisitas)