[Resolvido] Erro de página

kanaia · Novembro 23, 2009

Boa tarde, sou novo no forum e preciso de ajuda, enviei meu site para o servidor de hospedagem mais quando tento acessar via breowser ele remete a seguinte mensagem:

Microsoft VBScript runtime error '800a003e'

Input past end of file

F:\EXPORT\USERS\FTPIMOBBONANZA\WWWROOT\DEFAULT\../includes/inc_config.asp, line 29

xanburzum · Novembro 23, 2009

verifique se o Arquivo naun esta vazio(0 kb!)

<% 
    set fso = CreateObject("Scripting.FileSystemObject") 
    set fs = fso.opentextfile(server.mappath("a.txt")) 
    f = fs.readall() 
    fs.close: set fs = nothing: set fso = nothing 
%>

Para corrigir, basta verificar o tamanho do primeiro,Isso também pode acontecer se você usar o readline menos eficiente, e não se esqueça de usar um ciclo while fs.AtEndOfStream.

Ted k' · Novembro 23, 2009

e se possível coloca o código tbm para análise!

jrcardozo · Novembro 23, 2009

possivelmente você está abrindo um arquivo vazio e tentando manipular o mesmo. o problema está na linha 29. poste para vermos

xanburzum · Novembro 23, 2009

provavelmente aki

f = fs.readall()

verificar o tamanho antes

<%
Function getTamanho(ByVal Tamanho)
    On Error Resume Next
    Dim Retorno
    Tamanho = CLng(Tamanho)
    If IsNumeric(Tamanho) Then
        If Tamanho >= 1073741824 Then
            Retorno = Round(((Tamanho/1024)/1024)/1024,1)
            Retorno = Retorno & " Gb"            
        ElseIf Tamanho < 1073741824 And Tamanho >= 1048576 Then
            Retorno = Round((Tamanho/1024)/1024,1)
            Retorno = Retorno & " Mb"
        ElseIf Tamanho < 1048576 And Tamanho >= 1024 Then
            Retorno = Round((Tamanho/1024),1)
            Retorno = Retorno & " Kb"
        Else 
            Retorno = Round((Tamanho),1)
            Retorno = Retorno & " bytes"
        End If
    Else
        Retorno = "n/a"
    End If
    'Retornando a função
    getTamanho = Retorno
End Function

'CHAMAndo 
Response.Write "Exemplo de Chamada:" & getTamanho(1073741824)
%>

kanaia · Novembro 24, 2009

possivelmente você está abrindo um arquivo vazio e tentando manipular o mesmo. o problema está na linha 29. poste para vermos

Bom dia !!!

vou deixar aqui código fonte

<%
	response.Charset="iso-8859-1"
    'TITULO
	tit = "Dialli"
	
	'----------------- CONEXÃO COM BANCO
  	Set bd = Server.CreateObject("ADODB.Connection")
	bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../../database/database.mdb")
	
	'Set bd  = Server.CreateObject("ADODB.Connection")
  	'conString =   "Provider=SQLOLEDB.1;Password=pioneiro_$$;Persist Security Info=False;User ID=sercomtel;Initial Catalog=SERCOMTEL;Data Source=silvia.sercomtel.com.br"  
  	'bd.Open conString
  	'bd.CursorLocation = 3
	
		if Session("Contador") = "" then
		Path = Server.MapPath("../../database/contador.txt")
		Set ObjContador = CreateObject("Scripting.FileSystemObject")
		
		if not ObjContador.FileExists(Path) then
		
			set NewCont = ObjContador.CreateTextFile(Path, True)
			NewCont.WriteLine(1)
			NewCont.Close
			Session("Contador") = 1		
			
		else			
			
			Set Cont = ObjContador.OpenTextFile(Path)	
			Visitantes = Clng(Cont.ReadLine) + 1		
			Cont.close
			Set objVisitante = ObjContador.CreateTextFile(Path, True)
			objVisitante.WriteLine(Visitantes)
			objVisitante.Close
			Session("Contador") = Visitantes
			
		end if		
		
		for i = len(Session("Contador")) to 5
			Session("Contador") = "0" & Session("Contador") 
		next
		
	end if		
	
	
	Set bd = Server.CreateObject("ADODB.Connection")
    bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../database/database.mdb")


	'
	'
	' Encode
	function encode(str)
		encode = Server.HTMLEncode(str)
	end function
	'
	'
	'
	'
	'
	
	' trataString - função de replace
	function trataString(oString, oCaracter, oCaracterSubst)
		trataString = trim(Replace(oString,oCaracter,oCaracterSubst))
	end function '----------------------------------------------
	'
	'
	'
	'
	'
	' writeIF - Usado para setar algum valor em SelectCombos, RadioButtons ou Checkboxes
	function writeIF(vlrA, vlrB, oString)
		if (vlrA=vlrB) then  writeIF = oString
	end function '----------------------------
	'
	'
	'
	'
	' gerarSenha - Gera senha com a quantidade de caracteres passado por parâmetro
	function gerarSenha(QtdCaracter)
		chr_array = Array("a","b","0","c","d","e","f","g","1","h","i","2","j","k","l","3","m","n","4","o","5","p","q","6","r","s","7","t","u","v","8","w","x","9","y","z")
		Randomize
		do while len(str_retorno) < QtdCaracter
			chr_selected = chr_array(Int(35 * Rnd ))
			str_retorno = str_retorno + chr_selected
		loop
		gerarSenha = str_retorno
	end function '----------------------------------
	'
	'
	'
	'
	'	
    ' EliminaHtml - Retira todas as tags html de uma string	
    function EliminaHtml(strLinha)
	   Dim iHtml, fHtml
	   Dim txtHtml_1, txtHtml_2
	   iHtml = False
	   fHtml = False
	   For i = 1 To Len(strLinha)
		  If Not (iHtml) Then iHtml = (Mid(strLinha, i, 1) = "<")
		  If Not (fHtml) Then fHtml = (Mid(strLinha, i, 1) = ">")
	 
		  If (iHtml) Then
			txtHtml_1 = txtHtml_1 & Mid(strLinha, i, 1)
		  Else
			txtHtml_2 = txtHtml_2 & Mid(strLinha, i, 1)
		  End If
	 
		  If Not (iHtml) And (fHtml) Then
	  		txtHtml_2 = txtHtml_1 & txtHtml_2 & " "
	  		iHtml = False
	  		fHtml = False
	  		txtHtml_1 = ""
		  End If
	 
		  If (iHtml) And (fHtml) Then
	  		iHtml = False
	 		fHtml = False
	  		txtHtml_1 = ""
	  		txtHtml_2 = txtHtml_2 & " "
		  End If
	   Next
	   txtHtml_2 = TRIM(replace(txtHtml_2,CHR(9),""))
	   EliminaHtml = txtHtml_2
    end function '-------------------------------------------------
    '
  	'
	'
	'
	'  
    ' antiSQL - Retira caracteres usados em instruções SQL
    function antiSQL(str)
   		str = replace(str,"=","")
		str = replace(str,"'","")
		antiSQL = trim(str)
    end function '----------------
    '  
    ' 
    '
	'
	'
	'
	' limitaString - Limita a quantidade de caracteres de uma string
	function limitaString(str,qtd)
		if len(limitaString > qtd) then
			limitaString = left(str)&"..."
		else
			limitaString = str
		end if
	end function 
    '
    '
    '
	'
	'
	
	' Recupera a data e/ou a hora atual
	function datetime(str,iget)
		if (iget="date") then
			dim dd:dd = day(str)
			if len(dd) < 2 then dd = "0"&dd
			dim mm:mm = month(str)
			if len(mm) < 2 then mm = "0"&mm
			dim aa:aa = year(str)
			datetime = dd&"/"&mm&"/"&aa
		end if
		if (iget="time") then
			dim H:H = hour(str)
			if len(H) < 2 then H = "0"&H
			dim M:M = minute(str)
			if len(M) < 2 then M = "0"&M
			datetime = H&":"&M
		end if	
	end function	
	
	'----------------- SUB-ROTINAS

	' MailTo - Usar para o envio de emails
	Sub MailTo(De, Para, Cco, Assunto, Corpo)
		   If Para <> "" Then
				  Set objSendMail = createObject("CDONTS.NewMail")
					  With objSendMail
						  .FROM       = De
						  .TO         = Para
						  .BCC		  = Cco
						  .SUBJECT    = Assunto
						  .BODY	      = Corpo
						  .MailFormat = 0
						  .BodyFormat = 0
						  .Send
					  End With
			  Set objSendMail = nothing
		   End If
	End Sub
	
	
	Function Filtro_Texto(Txt)
        Dim ret:ret = Txt
        ret = Replace(ret,"ç", "ç")
        ret = Replace(ret,"Ç", "Ç")
        ret = Replace(ret,"á", "á")
        ret = Replace(ret,"à", "à")
        ret = Replace(ret,"â", "â")
        ret = Replace(ret,"ã", "ã")
        ret = Replace(ret,"Á", "Á")
        ret = Replace(ret,"À", "À")
        ret = Replace(ret,"Â", "Â")
        ret = Replace(ret,"Ã", "Ã")
        ret = Replace(ret,"é", "é")
        ret = Replace(ret,"è", "è")
        ret = Replace(ret,"ê", "ê")
        ret = Replace(ret,"ë", "&etilde;")
        ret = Replace(ret,"É", "É")
        ret = Replace(ret,"È", "È")
        ret = Replace(ret,"Ê", "Ê")
        ret = Replace(ret,"í", "í")
        ret = Replace(ret,"ì", "ì")
        ret = Replace(ret,"î", "î")
        ret = Replace(ret,"Í", "Í")
        ret = Replace(ret,"Ì", "Ì")
        ret = Replace(ret,"Î", "Î")
        ret = Replace(ret,"ó", "ó")
        ret = Replace(ret,"ò", "ò")
        ret = Replace(ret,"ô", "ô")
        ret = Replace(ret,"õ", "õ")
        ret = Replace(ret,"Ó", "Ó")
        ret = Replace(ret,"Ò", "Ò")
        ret = Replace(ret,"Ô", "Ô")
        ret = Replace(ret,"Õ", "Õ")
        ret = Replace(ret,"ú", "ú")
        ret = Replace(ret,"ù", "ù")
        ret = Replace(ret,"û", "û")
        ret = Replace(ret,"ü", "ü")
        ret = Replace(ret,"Ú", "Ú")
        ret = Replace(ret,"Ù", "Ù")
        ret = Replace(ret,"Û", "Û")
        ret = Replace(ret,"Ü", "Ü")
        ret = Replace(ret,Chr(147), """")
        ret = Replace(ret,Chr(148), """")
  		Filtro_Texto = ret
    End Function
	
	 Function Filtro_Texto2(Txt)
        Dim ret:ret = Txt
        ret = Replace(ret," ", " ")
        ret = Replace(ret,"ç", "ç")
        ret = Replace(ret,"Ç", "Ç")
        ret = Replace(ret,"á", "á")
        ret = Replace(ret,"à","à")
        ret = Replace(ret,"â","â")
        ret = Replace(ret,"ã","ã")
        ret = Replace(ret,"Á","Á")
        ret = Replace(ret,"À","À")
        ret = Replace(ret,"Â","Â")
        ret = Replace(ret,"Ã","Ã")
        ret = Replace(ret,"é","é")
        ret = Replace(ret,"è","è")
        ret = Replace(ret,"ê","ê")
        ret = Replace(ret,"&etilde;","ë")
        ret = Replace(ret,"É","É")
        ret = Replace(ret,"È","È")
        ret = Replace(ret,"Ê","Ê")
        ret = Replace(ret,"í","í")
        ret = Replace(ret,"ì","ì")
        ret = Replace(ret,"î","î")
        ret = Replace(ret,"Í","Í")
        ret = Replace(ret,"Ì","Ì")
        ret = Replace(ret,"Î","Î")
        ret = Replace(ret,"ó","ó")
        ret = Replace(ret,"ò","ò")
        ret = Replace(ret,"ô","ô")
        ret = Replace(ret,"õ","õ")
        ret = Replace(ret,"Ó","Ó")
        ret = Replace(ret,"Ò","Ò")
        ret = Replace(ret,"Ô","Ô")
        ret = Replace(ret,"Õ","Õ")
        ret = Replace(ret,"ú","ú")
        ret = Replace(ret,"ù","ù")
        ret = Replace(ret,"û","û")
        ret = Replace(ret,"ü","ü")
        ret = Replace(ret,"Ú","Ú")
        ret = Replace(ret,"Ù","Ù")
        ret = Replace(ret,"Û","Û")
        ret = Replace(ret,"Ü","Ü")
    Filtro_Texto2= ret
    End Function

%>

xanburzum · Novembro 24, 2009

faz como te falei verificar o tamanho antes, é quando você tenat ler o arquivo dá o erro em ReadLine

kanaia · Novembro 24, 2009

possivelmente você está abrindo um arquivo vazio e tentando manipular o mesmo. o problema está na linha 29. poste para vermos

Bom dia !!!

vou deixar aqui código fonte

<%
	response.Charset="iso-8859-1"
    'TITULO
	tit = "Dialli"
	
	'----------------- CONEXÃO COM BANCO
  	Set bd = Server.CreateObject("ADODB.Connection")
	bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../../database/database.mdb")
	
	'Set bd  = Server.CreateObject("ADODB.Connection")
  	'conString =   "Provider=SQLOLEDB.1;Password=pioneiro_$$;Persist Security Info=False;User ID=sercomtel;Initial Catalog=SERCOMTEL;Data Source=silvia.sercomtel.com.br"  
  	'bd.Open conString
  	'bd.CursorLocation = 3
	
		if Session("Contador") = "" then
		Path = Server.MapPath("../../database/contador.txt")
		Set ObjContador = CreateObject("Scripting.FileSystemObject")
		
		if not ObjContador.FileExists(Path) then
		
			set NewCont = ObjContador.CreateTextFile(Path, True)
			NewCont.WriteLine(1)
			NewCont.Close
			Session("Contador") = 1		
			
		else			
			
			Set Cont = ObjContador.OpenTextFile(Path)	
			Visitantes = Clng(Cont.ReadLine) + 1		
			Cont.close
			Set objVisitante = ObjContador.CreateTextFile(Path, True)
			objVisitante.WriteLine(Visitantes)
			objVisitante.Close
			Session("Contador") = Visitantes
			
		end if		
		
		for i = len(Session("Contador")) to 5
			Session("Contador") = "0" & Session("Contador") 
		next
		
	end if		
	
	
	Set bd = Server.CreateObject("ADODB.Connection")
    bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../database/database.mdb")


	'
	'
	' Encode
	function encode(str)
		encode = Server.HTMLEncode(str)
	end function
	'
	'
	'
	'
	'
	
	' trataString - função de replace
	function trataString(oString, oCaracter, oCaracterSubst)
		trataString = trim(Replace(oString,oCaracter,oCaracterSubst))
	end function '----------------------------------------------
	'
	'
	'
	'
	'
	' writeIF - Usado para setar algum valor em SelectCombos, RadioButtons ou Checkboxes
	function writeIF(vlrA, vlrB, oString)
		if (vlrA=vlrB) then  writeIF = oString
	end function '----------------------------
	'
	'
	'
	'
	' gerarSenha - Gera senha com a quantidade de caracteres passado por parâmetro
	function gerarSenha(QtdCaracter)
		chr_array = Array("a","b","0","c","d","e","f","g","1","h","i","2","j","k","l","3","m","n","4","o","5","p","q","6","r","s","7","t","u","v","8","w","x","9","y","z")
		Randomize
		do while len(str_retorno) < QtdCaracter
			chr_selected = chr_array(Int(35 * Rnd ))
			str_retorno = str_retorno + chr_selected
		loop
		gerarSenha = str_retorno
	end function '----------------------------------
	'
	'
	'
	'
	'	
    ' EliminaHtml - Retira todas as tags html de uma string	
    function EliminaHtml(strLinha)
	   Dim iHtml, fHtml
	   Dim txtHtml_1, txtHtml_2
	   iHtml = False
	   fHtml = False
	   For i = 1 To Len(strLinha)
		  If Not (iHtml) Then iHtml = (Mid(strLinha, i, 1) = "<")
		  If Not (fHtml) Then fHtml = (Mid(strLinha, i, 1) = ">")
	 
		  If (iHtml) Then
			txtHtml_1 = txtHtml_1 & Mid(strLinha, i, 1)
		  Else
			txtHtml_2 = txtHtml_2 & Mid(strLinha, i, 1)
		  End If
	 
		  If Not (iHtml) And (fHtml) Then
	  		txtHtml_2 = txtHtml_1 & txtHtml_2 & " "
	  		iHtml = False
	  		fHtml = False
	  		txtHtml_1 = ""
		  End If
	 
		  If (iHtml) And (fHtml) Then
	  		iHtml = False
	 		fHtml = False
	  		txtHtml_1 = ""
	  		txtHtml_2 = txtHtml_2 & " "
		  End If
	   Next
	   txtHtml_2 = TRIM(replace(txtHtml_2,CHR(9),""))
	   EliminaHtml = txtHtml_2
    end function '-------------------------------------------------
    '
  	'
	'
	'
	'  
    ' antiSQL - Retira caracteres usados em instruções SQL
    function antiSQL(str)
   		str = replace(str,"=","")
		str = replace(str,"'","")
		antiSQL = trim(str)
    end function '----------------
    '  
    ' 
    '
	'
	'
	'
	' limitaString - Limita a quantidade de caracteres de uma string
	function limitaString(str,qtd)
		if len(limitaString > qtd) then
			limitaString = left(str)&"..."
		else
			limitaString = str
		end if
	end function 
    '
    '
    '
	'
	'
	
	' Recupera a data e/ou a hora atual
	function datetime(str,iget)
		if (iget="date") then
			dim dd:dd = day(str)
			if len(dd) < 2 then dd = "0"&dd
			dim mm:mm = month(str)
			if len(mm) < 2 then mm = "0"&mm
			dim aa:aa = year(str)
			datetime = dd&"/"&mm&"/"&aa
		end if
		if (iget="time") then
			dim H:H = hour(str)
			if len(H) < 2 then H = "0"&H
			dim M:M = minute(str)
			if len(M) < 2 then M = "0"&M
			datetime = H&":"&M
		end if	
	end function	
	
	'----------------- SUB-ROTINAS

	' MailTo - Usar para o envio de emails
	Sub MailTo(De, Para, Cco, Assunto, Corpo)
		   If Para <> "" Then
				  Set objSendMail = createObject("CDONTS.NewMail")
					  With objSendMail
						  .FROM       = De
						  .TO         = Para
						  .BCC		  = Cco
						  .SUBJECT    = Assunto
						  .BODY	      = Corpo
						  .MailFormat = 0
						  .BodyFormat = 0
						  .Send
					  End With
			  Set objSendMail = nothing
		   End If
	End Sub
	
	
	Function Filtro_Texto(Txt)
        Dim ret:ret = Txt
        ret = Replace(ret,"ç", "ç")
        ret = Replace(ret,"Ç", "Ç")
        ret = Replace(ret,"á", "á")
        ret = Replace(ret,"à", "à")
        ret = Replace(ret,"â", "â")
        ret = Replace(ret,"ã", "ã")
        ret = Replace(ret,"Á", "Á")
        ret = Replace(ret,"À", "À")
        ret = Replace(ret,"Â", "Â")
        ret = Replace(ret,"Ã", "Ã")
        ret = Replace(ret,"é", "é")
        ret = Replace(ret,"è", "è")
        ret = Replace(ret,"ê", "ê")
        ret = Replace(ret,"ë", "&etilde;")
        ret = Replace(ret,"É", "É")
        ret = Replace(ret,"È", "È")
        ret = Replace(ret,"Ê", "Ê")
        ret = Replace(ret,"í", "í")
        ret = Replace(ret,"ì", "ì")
        ret = Replace(ret,"î", "î")
        ret = Replace(ret,"Í", "Í")
        ret = Replace(ret,"Ì", "Ì")
        ret = Replace(ret,"Î", "Î")
        ret = Replace(ret,"ó", "ó")
        ret = Replace(ret,"ò", "ò")
        ret = Replace(ret,"ô", "ô")
        ret = Replace(ret,"õ", "õ")
        ret = Replace(ret,"Ó", "Ó")
        ret = Replace(ret,"Ò", "Ò")
        ret = Replace(ret,"Ô", "Ô")
        ret = Replace(ret,"Õ", "Õ")
        ret = Replace(ret,"ú", "ú")
        ret = Replace(ret,"ù", "ù")
        ret = Replace(ret,"û", "û")
        ret = Replace(ret,"ü", "ü")
        ret = Replace(ret,"Ú", "Ú")
        ret = Replace(ret,"Ù", "Ù")
        ret = Replace(ret,"Û", "Û")
        ret = Replace(ret,"Ü", "Ü")
        ret = Replace(ret,Chr(147), """")
        ret = Replace(ret,Chr(148), """")
  		Filtro_Texto = ret
    End Function
	
	 Function Filtro_Texto2(Txt)
        Dim ret:ret = Txt
        ret = Replace(ret," ", " ")
        ret = Replace(ret,"ç", "ç")
        ret = Replace(ret,"Ç", "Ç")
        ret = Replace(ret,"á", "á")
        ret = Replace(ret,"à","à")
        ret = Replace(ret,"â","â")
        ret = Replace(ret,"ã","ã")
        ret = Replace(ret,"Á","Á")
        ret = Replace(ret,"À","À")
        ret = Replace(ret,"Â","Â")
        ret = Replace(ret,"Ã","Ã")
        ret = Replace(ret,"é","é")
        ret = Replace(ret,"è","è")
        ret = Replace(ret,"ê","ê")
        ret = Replace(ret,"&etilde;","ë")
        ret = Replace(ret,"É","É")
        ret = Replace(ret,"È","È")
        ret = Replace(ret,"Ê","Ê")
        ret = Replace(ret,"í","í")
        ret = Replace(ret,"ì","ì")
        ret = Replace(ret,"î","î")
        ret = Replace(ret,"Í","Í")
        ret = Replace(ret,"Ì","Ì")
        ret = Replace(ret,"Î","Î")
        ret = Replace(ret,"ó","ó")
        ret = Replace(ret,"ò","ò")
        ret = Replace(ret,"ô","ô")
        ret = Replace(ret,"õ","õ")
        ret = Replace(ret,"Ó","Ó")
        ret = Replace(ret,"Ò","Ò")
        ret = Replace(ret,"Ô","Ô")
        ret = Replace(ret,"Õ","Õ")
        ret = Replace(ret,"ú","ú")
        ret = Replace(ret,"ù","ù")
        ret = Replace(ret,"û","û")
        ret = Replace(ret,"ü","ü")
        ret = Replace(ret,"Ú","Ú")
        ret = Replace(ret,"Ù","Ù")
        ret = Replace(ret,"Û","Û")
        ret = Replace(ret,"Ü","Ü")
    Filtro_Texto2= ret
    End Function

%>

Meus amigos agradeço a ajuda, problema resolvido, muito grato a todos.

xanburzum · Novembro 24, 2009

beleza, kker coisa posta ae..

Arquivado

[Resolvido] Erro de página

Recommended Posts

kanaia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kanaia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kanaia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante