JucaMaster

Tenta tirar aquele onerror resume.nex da sua função que talvez va consiga ver o erro gerado. Este comando faz a página ser carregada normalmente caso haja erro do asp.

Nome : JulianoB.Ferreira

msn/mail : juliano_ferreira_1@hotmail.com


Nível de conhecimento : intermediário



Falow



Juliano

Olha aí e ve se entende:



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault =-2 ' abre o file padrão usado pelo sistema
Const TristateTrue = 1 ' abre o file em unicode
Const TristateFalse = 0 ' abre o file em ascII
Dim objFS,objTextS,strLine ' variáveis usadas no script

' Primeira parte
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
if objFS.FileExists("c:\asp24h.txt") = true then
Set objTextS = objFS.OpenTextFile("c:\asp24h.txt",ForAppending, False, TristateFalse)
else
Set objTextS = objFS.CreateTextFile("c:\asp24h.txt",False, False)
end if
objTextS.WriteLine " Este foigravado às " & now & "."
objTextS.close

'segunda parte
Set objTextS = objFS.openTextFile("c:\asp24h.txt", ForReading,TristateFalse)

Response.Write " O conteúdo do arquivo: <br><br> " & VbCrlf
Do while objTextS.AtEndOfStream <> true
strLine = objTextS.ReadLine
strLine = Server.HTMLEncode(strLine)
Response.Write strLine & "<br>" & VbCrlf
Loop
objTextS.Close

Set objTextS = Nothing
Set objFS = Nothing
%>



Este foi um sys de log que eu gerei quando alguém deleta algo. Mas aí é só vc fazer algumas alterações

Eae!



Aqui na empresa eu jogo tudo dentro da wwwroot do servido e mando executar assim, no meu caso :


nome_servidor/nome_pasta/nome_file.asp


ele roda blzinha!!! Melhor dq se eu rodar na minha máquina!!

QQ dúvidas posta aí


Juliano

Pode crer


Siga a dica do nosso amigo aí!!

Tire este response.end()