Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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%>
set leitura = contador.OpenAsTextStream(ForReading)
cara ve se o erro é na linha acima
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
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