Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 ERRO! Chamada de procedimento ou argumento inválido: 'Left' Atualizado em 01/12/2011 ás 15:44:00

Postado em 01/12/2011 ás 15:44:00

oi! sou novo aqui, e espero não estar postando no lugar errado, eu estou com um problema em um codigo, eu ja o usava antes mais agora eu não sei o pq ele não esta funcionando, é um cod de upar imagens, ele da esse erro aki abaixo....

Erro de tempo de execução do Microsoft VBScript erro '800a0005'

Chamada de procedimento ou argumento inválido: 'Left'

/inqes/httpdocs/admin/not_img_cad2.asp, linha 28

e o cod.(LINHA 28 É ONDE EU FIZ UMA SETA)

Dim Contador, Tamanho, numfoto
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino
Dim objFSO, objArquivo, x1, id

id = request.QueryString("id")

PastaDestino = "C:/inetpub/wwwroot/inqes/httpdocs/images/"
' PastaDestino = "E:/vhosts/giovannaliberatori.com/httpdocs/images/"

'***** Determina o Tamanho do Conteúdo *****
Tamanho = Request.TotalBytes
'***** Obtém o Conteúdo no Formato Binário *****
ConteudoBinario = Request.BinaryRead(Tamanho)

'***** Transforma o Conteúdo Binário em String *****
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next
'***** Determina o Delimitador de Campos *****

---->Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)

'***** Percore a String Procurando os Campos *****
'***** Identifica os Arquivos e Grava no Disco *****
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)

Do While True
ArquivoNome = ""
Posicao1 = InStr(cInt(Posicao1), ConteudoTexto, "filename=")
If Posicao1 = 0 Then
Exit Do
Else
'***** Determina o Nome do Arquivo *****
Posicao1 = Posicao1 + 10
Posicao2 = InStr(Posicao1, ConteudoTexto, """")
For Contador = Posicao2-1 To Posicao1 Step -1
If Mid(ConteudoTexto, Contador, 1) <> "\" Then
ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
Else
Exit For
End If
Next

eu agradeço muito se alguem puder me ajudar..

att.


SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados