porque Esta Dando O Seguinte Erro

[marcus Gemeos]

Olá,

Resolvir o problema!

Coloquei em extenção:

c:\domains\...

Acho que por outro modo não conseguia lê...

Obrigado!

Marcus

[marcus Gemeos]

Olá pessoal,

Está dando o seguinte erro:

Microsoft VBScript runtime error '800a003e'

Input past end of file

/chat.asp, line 56

Para este código:

     Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
     'Map appropriate topic file
     textFile = ("c:\domains\bahiamercado.com.br\wwwroot\files\" & Replace(Topic, "+", "_") & ".txt")
     If Not fileObject.FileExists(textfile) Then
          Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)
          inStream.WriteLine " "
     End If

     Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)
     

     file = inStream.ReadAll
     Set inStream = Nothing

Como resolver?

Obrigado!

Marcus

[dark0]

cara

Eu peguei seu codigo, alterei ele para um arquivo que existe aqui na minha maquina, e mandei escrever na tela.

E Funcionou!

<%
    Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
     'Map appropriate topic file
     textFile = ("C:\Inetpub\wwwroot\a.txt")
     If Not fileObject.FileExists(textfile) Then
          Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)
          inStream.WriteLine " "
     End If

     Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)
    

     file = inStream.ReadAll
     Set inStream = Nothing
response.write file
%>

Provavelmente é um problema no resto de sua pagina.. pois aponta para a linha 56.. mas no seu codigo não tem mais que 10 linhas..

De chute .. eu verificaria a seguinte linha:

textFile = ("c:\domains\bahiamercado.com.br\wwwroot\files\" & Replace(Topic, "+", "_") & ".txt")

Provavelmente ele está se perdendo nessa variavel TOPIC aí.. acredito que o erro esteja aí

Mas como não conheço o resto do codigo.. não faço ideia pra que ele serve..

Enfim.. o trecho que você escreveu, funciona perfeitamente, quando você coloca o caminho de um arquivo txt que exista.

Abraço

BEM.. só agora vi seu outro tópico.. com resposta.

http://scriptbrasil.com.br/forum/index.php?showtopic=82603

Evite criar varios topicos iguais..

La você arrumou o caminho e resolveu o problema.. exatamente o que eu falei ;)

Abraço