contardor de click

[designmix 0]

galera estou com um contador de click que salva em um txt mais não esta rolando .. não grava nada no txt ele criar so não grava

 

o que fiz de errado ?

 

MyFile = Server.MapPath( Request.Querystring ("codice") &".txt" ) 	Set FileObject = CreateObject("Scripting.FileSystemObject") 	on error resume next Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 	totali = CInt(Instream.ReadLine) + 1 	Instream.Close 	set instream = Nothing Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) 	Outstream.WriteLine totali 	Outstream.Close 	Set OutStream = Nothing set FileObject = Nothing Response.Redirect ( Request.QueryString("url") )

o erro esta na linha totali = cint(Instream.ReadLine) + 1

tipo do erro

 

Final do arquivo ultrapassado

/teste/contar.asp, line 9

[Salgado 4]

Isso acontece pois não existe nada gravado no arquivo ainda. Você deve testar se não está no AtEndOfStream para pode usar o ReadLine.

[designmix 0]

Fiz assim ...

ASP

if Request.QueryString("codice") <> "" Then

origem = Server.MapPath( Request.Querystring ("codice") &".txt" )

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

 

        Set contador = FSO.CreateTextFile(origem,true)

                'Application.lock

                Application("click") = Application("click") + 1

                click = Application("click")

                Application.Unlock

 

                contador.write "click=" & click

                contador.close

 

set FSO = Nothing

end if

funciono se alguem precisar um dia ai esta