Problemas com codigo Upload

[sr.silva 1]

Ola Pessoal, estou utilizando um codigo aqui de Upload de arquivos.

 

So que no momento de envio do formulario ocorre um erro.

 

O engracado que o sistema, tem outros cadastros de upload, e estao funcionando.

 

Teria condicoes de voces estarem me ajudando nesse questao?

 

Pagina que faz o Upload.

<!--#INCLUDE FILE="../_upload.asp"--><% 	diretorio = root & "central/imovel/img/"	set imovel = new classetImovel		Set Form = New ASPForm 	Server.ScriptTimeout = 2000	Form.SizeLimit = &HA00000			imovel.nome = Form.Texts.Item("nome")	numRAND = Rand(999999,100000)		miniatura_nome = ""	if Form("miniatura").FileName <> "" then		miniatura_nome = trim(Form("miniatura").FileName)		ext = right(miniatura_nome,4)		miniatura_nome = numRAND&"mini"&ext		FilePath = diretorio & miniatura_nome		FilePath = server.MapPath(FilePath)		Form("miniatura").SaveAs FilePath	end if

O erro que acontece e no Ubound da pagina Upload.asp

 

Linha : 408		For ItemCounter = 0 To Ubound(m_Keys)			Set cItem = m_Items(ItemCounter)			if Not cItem.IsFile then				OutItem.Add m_Keys(ItemCounter), m_Items(ItemCounter)			end if		Next

Descricao do erro

Erro de tempo de execução do Microsoft VBScript erro '800a0009' Subscrito fora do intervalo: 'UBound' site/central/_upload.asp, line 408

[jrcardozo 4]

verificou se m_Keys tem um numero inteiro?

já que você disse que outros forms funciona, possivelmente os Names do form estão diferentes e no Asp isso não foi alterado. veja se neste form tem isso

enctype="multipart/form-data"

[sr.silva 1]

Verifiquei, e o meu codigo esta "igual" a dos outros form's.

[sr.silva 1]

//

Pessoal deu certo!! Realmente faltava iso jonathan...

 

Agora e o seguinte, estou com um problema pra salvar o "arquivo" no banco .

 

miniatura_nome = "">>>	if Form("miniatura").FileName <> "" then		miniatura_nome = trim(Form("miniatura").FileName)		ext = right(miniatura_nome,4)		miniatura_nome = numRAND&"mini"&ext		FilePath = diretorio & miniatura_nome		FilePath = server.MapPath(FilePath)		Form("miniatura").SaveAs FilePath	end if

Na parte em destaque, Form("miniatura").FileName esta vindo vazio.

 

Como posso acertar??

 

/// editado

Percebi que o erro, estava dando "tamb'em" quando eu chamava o objeto "imagem" da minha classe.

 

imovel.imagem = miniatura_nome

Outra coisa, que verifiquei foi:

 

- Se eu tentar usar o ASPForm , tambem da o erro.

 

Form.Texts.Item("campo")

[jrcardozo 4]

apresenta algum erro argora?foi selecionado algum arquivo pra upload?o Name do input file é miniatura?

[sr.silva 1]

O erro, so aparece se eu fizer :

 

- Utilizar Form.Texts.Items("campo")

 

- Fizer a chamada do objeto "imagem"

 

 

e o nome do input file e "miniatura"

 

//editado....

 

 

estive pensando eu utilizar FSO para poder gravar o arquivo no local desejado. Mais sera que funciona??

[jrcardozo 4]

eu não conheço esse objeto de upload, teria algum manual?normalmente seria assim para resgatar campos do tipo textoresponse.write(Form("campo"))

[sr.silva 1]

nao saquei jonathan!!!

 

O lance que tento saber e como faco pra recuperar valor de campo Input File.

 

 

////EDITADO

 

Desculpe a falta de atencao!!!

 

Mais consegui resolver....na verdade era enctype="multipart/form-data" que falei que coloquei no form e na verdade nao tinha!!!

 

Se puder jonathan, poderia explicar o que esse atributo??

 

Procurei no Google e encontrei apenas, que ele server para determinar o tipo de dados que tem no Form.

[jrcardozo 4]

exatamente bruno, ele determina como os dados serão enviados, no caso de uploads sempre devemos usar essa propriedade

segue mais orientações

http://www.mastershelp.org/Portugues/Tut/427642357