Problemas Com Contador

[Guest - Paulo -]

Não estou conseguindo fazer esse codigo funcionar.

<%
meucont = Server.MapPath( "contador.txt" )
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Txt = Sys.OpenTextFile( meucont, 1 )
contador = txt.Readline
Txt.Close

Contador = cint(right(Contador,len(Contador)-2)) + 1
Contador = Contador
Set Txt = Sys.OpenTextFile( meucont, 2 )
Txt.Write( Contador )
Txt.Close
Response.Write( Contador )
Set Sys = NOTHING
%>

Erro:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0046)
Permissão negada
/contador.asp, line 10

[cyberalexxx]

testei seu código e deram uns erros diferentes do que voce mostrou então mudei ele um pouco e funcionou:

<%
meucont = Server.MapPath( "contador.txt" )
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Txt = Sys.OpenTextFile( meucont, 1 )
contador = txt.Readline
Txt.Close
Contador = cint(trim(Contador)) + 1
Set Txt = Sys.OpenTextFile( meucont, 2 )
Txt.Write( Contador )
Txt.Close
Response.Write( Contador )
Set Sys = NOTHING
%>

Quanto ao erro que voce apresentou, deve ser falta de permissão de escrita na pasta.

[Guest - Paulo -]

Como eu faço a permissão de escrita na pasta ?

[cyberalexxx]

Ta dando erro no servidor ou no IIS??

[Guest Guest]

to testando no http://localhost/

[cyberalexxx]

Clique com o botão direito do mouse na pasta

escolha:

propriedades

Compartilhamento WEB

Editar Propriedades

Depois Configure as permissões de acesso

[dark0]

Para mecher com permissões, veja aqui

http://scriptbrasil.com.br/forum/index.php...ndpost&p=150879