upload + inserção

[fabiosc80 0]

Consegui mandar o arquivo para o Servidor usando o AspSmartUpload, porem, o formulario que pega os dados do arquivo e tal tem que estar para binario enctype="multipart/form-data" e após fazer o upload eu tenho que inserir alguns dados do formulario no banco de dados e por estar assim binario ele nao pega as informações na pagina que insere.

 

Da esse erro ao enviar.

_______________________________________________

Request object error 'ASP 0208 : 80004005'

Cannot use generic Request collection

 

/grafica/cli2.asp, line 37

 

Cannot use the generic Request collection after calling BinaryRead.

 

______________________________________________________

Alguem ja teve um problema assim?

 

A linha 37 é aonde começa os request.form que traz os valores do formulario.

 

Ta vindo vazio. Não sei como trazer os valores da página "clif2.asp" (onde esta o formulario) para a pagina "cli2.asp" (onde esta o código do upload e da inserçao.) Nunca me deparei com um erro assim.

 

Preciso de ajuda urgente?

 

Abraços

 

Fábio :blink: http://forum.imasters.com.br/public/style_emoticons/default/excl.gif :blink:

[Mário Monteiro 179]

o que v passa junto com o arquivo do upload??

[fabiosc80 0]

Normalmente os componentes de upload trazem um método pra isso...

 

Com AspUpload é assim:

 

Set upload = Server.CreateObject("Upload.Persists")

' codigo...

nome = Upload.Form("nome")

 

'nesse caso o Upload.Form substitui o Request.Form

nunca usei esse componente, mais tente assim, quem sabe o método é o mesmo! Se não for, dá uma olhada no manual q com certeza vai ter!

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Deu certo porem agora ele só manda pra net o arquivo e nao recupera o nome do arquivo ou o caminho pra salvar na tabela.

 

O que fazer?????????

[fabiosc80 0]

o que v passa junto com o arquivo do upload??

Passo IDS e Texto de campo memorando.Preciso passar tb o nome do arquivo.

[Mário Monteiro 179]

este trecho de codigo não pega o nome ?For Each file In UploadFoto.Filesnomefoto=File.FileNamenext

[fabiosc80 0]

este trecho de codigo não pega o nome ?For Each file In UploadFoto.Filesnomefoto=File.FileNamenext

como assim?olha meu código:<%' Variaveis' ********* Dim mySmartUpload Dim intCount ' Criando Objeto' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt" mySmartUpload.MaxFileSize = 2000000' Upload' ****** mySmartUpload.Upload' Salva o arquivo em um caminho virtual' **************************************************************************** intCount = mySmartUpload.Save("Upload") ' salva em um caminho fisico ' intCount = mySmartUpload.Save("c:\temp\")%><%Dim CodigoJob,DescricaoADM,DescricaoCliente,Data,Arquivo,MemoCodsq = "SELECT Memo.MemoCod AS Memo_MemoCod, Arqui.ArqCod, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] RIGHT JOIN Arqui ON Memo.MemoCod=Arqui.MemoCod" CodigoJob = mySmartUpload.form("CodigoJob")DescricaoADM = mySmartUpload.form("DescricaoADM")DescricaoCliente = mySmartUpload.form("DescricaoCliente")Data = nowMemoCod = mySmartUpload.form("MemoCod")Arquivo = mySmartUpload.form("Arquivo")Por o nome do arquivo nao vem?

[fabiosc80 0]

este trecho de codigo não pega o nome ?For Each file In UploadFoto.Filesnomefoto=File.FileNamenext

Esqueci... o unico falor de request ali que nao traz é o arquivo.

[fabiosc80 0]

este trecho de codigo não pega o nome ?For Each file In UploadFoto.Filesnomefoto=File.FileNamenext

Esqueci... o unico falor de request ali que nao traz é o arquivo.

Ninguem vai ver meu código?

[Mário Monteiro 179]

Arquivo é o nome do campo file?

 

Se for testa assim

 

embaixo de

 

mySmartUpload.Upload

poe

 

For Each file In mySmartUpload.FilesArquivo = File.FileNamenext

depois tira

 

Arquivo = mySmartUpload.form("Arquivo")

e testa

[fabiosc80 0]

Arquivo é o nome do campo file?Se for testa assimembaixo de

mySmartUpload.Upload

poe

For Each file In mySmartUpload.FilesArquivo = File.FileNamenext

depois tira

Arquivo = mySmartUpload.form("Arquivo")

e testa

VALEUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU.çFicou perfeito.Cara tu salvou meu emprego.Agora só falta arrumar um negocio que vou colocar em outro tópico. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[fabiosc80 0]

Arquivo é o nome do campo file?Se for testa assimembaixo de

mySmartUpload.Upload

poe

For Each file In mySmartUpload.FilesArquivo = File.FileNamenext

depois tira

Arquivo = mySmartUpload.form("Arquivo")

e testa

Cara to Com um problemao agora .Preciso fazer ele salvar tanto na net como no banco com o código que ta na base de dados.E nao to sabendo.

[Mário Monteiro 179]

Cara to Com um problemao agora .Preciso fazer ele salvar tanto na net como no banco com o código que ta na base de dados.E nao to sabendo.

como assim??você quer gravar o que na Base de Dados?

[fabiosc80 0]

Cara to Com um problemao agora .Preciso fazer ele salvar tanto na net como no banco com o código que ta na base de dados.E nao to sabendo.

como assim??você quer gravar o que na Base de Dados?

Tipo aquilo que você me passou fez com que salvasse o nome do arquivo na base de dados.Mas eu tenho que salvar assim Codigo,nomedoarquivo, extensao EX: 37_Email.giftanto na base quanto no uploadcomo faço ali naquele código?

[Mário Monteiro 179]

tipo, este codigo vem daonde??

[fabiosc80 0]

tipo, este codigo vem daonde??

Esse é o código do clientevem com o request.

[Mário Monteiro 179]

acho que vai ter que renomear o arquivo com FSO, vou fazer um codigo generico...

[fabiosc80 0]

acho que vai ter que renomear o arquivo com FSO, vou fazer um codigo generico...

ok to no aguardo

[Mário Monteiro 179]

pega o restante dos valores antes de inserir no banco e depois de pegar estes valores poe isto

 

 

[tr][/tr][tr][/tr]

ASP	Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath(Arquivo) Arquivo = CodigoJob & "_" & Arquivo fileObject.Name = Arquivo Set fileObject = Nothing Set fso = Nothing

 

verifica se a variavel correta é realmente CodigoJob e depois pode inserir no bd o nome do arquivo que já ta alterado

[fabiosc80 0]

pega o restante dos valores antes de inserir no banco e depois de pegar estes valores poe isto

 

 

ASP [/tr][tr]Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath(Arquivo)

Arquivo = CodigoJob & "_" & Arquivo

fileObject.Name = Arquivo

Set fileObject = Nothing

Set fso = Nothing

[/tr]

 

verifica se a variavel correta é realmente CodigoJob e depois pode inserir no bd o nome do arquivo que já ta alterado

Deu erro "File not Found"

 

Coloquei aqui o código

-----------------------------------------------

CodigoJob = mySmartUpload.form("CodigoJob")

DescricaoADM = mySmartUpload.form("DescricaoADM")

DescricaoCliente = mySmartUpload.form("DescricaoCliente")

Data = now

MemoCod = mySmartUpload.form("MemoCod")

 

For Each file In mySmartUpload.Files

Arquivo = File.FileName

next

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath(Arquivo))

Arquivo = CodigoJob & "_" & Arquivo

fileObject.Name = Arquivo

Set fileObject = Nothing

Set fso = Nothing

 

-----------------------------------------------

[Mário Monteiro 179]

qual a pasta que você salva os arquivos é na mesma desta page ASP ou não?