para achar o erro

[Engespro 0]

O Erro:

Erro de tempo de execução do Microsoft VBScript error '800a0005' Chamada de procedimento ou argumento inválido /rapido/index.asp, line 5

O código:

<%@ Language=VBScript %><%set fso = createobject("Scripting.FileSystemObject")if fso.FileExists(Server.MapPath("contador.txt")) then	set contador = fso.GetFile(Server.MapPath("contador.txt"))	set leitura = contador.OpenAsTextStream(ForReading)	visitas= leitura.readline	visitas = visitas+1	leitura.close	set leitura = nothing	set gravacao = contador.OpenAsTextStream(ForWriting)	gravacao.write visitas	gravacao.close	set gravacao = nothing	set contador = nothingelse	set contador = fso.CreateTextFile(Server.MapPath("contador.txt"),false)	contador.write"1"	contador.close	visitas=1'	set contador = nothing	end ifset fso = nothingResponse.Write visitas%>

[Tiago Colombo 0]

Olá,

abaixo segue minha contribuição, naum sei até que ponto possa te ajudar..

 

Até mais...

 

set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("contador.txt")) counter = clng(act.readline) act.close counter = counter + 1 Set act = fso.CreateTextFile(server.mappath("contador.txt"), true) act.WriteLine(counter) act.Close

[Mário Monteiro 179]

set leitura = contador.OpenAsTextStream(ForReading)

cara ve se o erro é na linha acima

[Mário Monteiro 179]

se for deve ser porque você não definiu o valor de ForReading

 

coloque a linha abaixo acima desta linha

 

Const ForReading = 1

ou substitua ForReading por 1