Matt

Então o 7kb foi o arquivo que enviei e que virou 60 bytes... Vou procurar sim o tópico.... obrigado pela atenção... Achei o tópico que você tinha falado, mas não sanou meu problema não....

Rafael, tinha testado e mesmo assim corrompeu o arquivo, arquivo de 7kb... Ai achei uma solução agora tarde, que é o SaFileUpload que tá funcionando certinho.. Mas estou com outro problema, como preciso fazer cadastro no banco, eu recupero o nome da imagem do formulário, mas a acentuação muda tudo, e só para esse cadastro, os outros cadastro vão certinho com a acentuação, mas nesse cadastro da imagem não vai. Você teria alguma idéia do porque está acontecendo isso? E como nas outras página a codificação desse form é UTF-8. Obrigado pela atenção

Então eu comecei com testes com imagens pequenas. ... Não sei se as alterações que fiz no código está atrapalhando. Estou usando a função, postado sem alteração mas alterei o arquivo que recebe os dados do form. Sou novo em asp... então to tendo problemas. Codigo que estou usando subcategoria = request("subcategoria") nome_pt = request("nome_pt") nome_en = request("nome_en") ativar = request("ativar") observacao = request("observacao") ' Chamando Funções, que fazem o Upload funcionar Tamanho = Request.TotalBytes ConteudoBinario = Request.BinaryRead(Tamanho) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest ConteudoBinario ' Recuperando os Dados Digitados ---------------------- subcategoria = UploadRequest.Item("subcategoria").Item("Value") nome_pt = UploadRequest.Item("nome_pt").Item("Value") nome_en = UploadRequest.Item("nome_en").Item("Value") ativar = UploadRequest.Item("ativar").Item("Value") observacao = UploadRequest.Item("observacao").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto_alta = UploadRequest.Item("img_alta").Item("ContentType") tipo_foto_baixa = UploadRequest.Item("img_baixa").Item("ContentType") tipo_foto_thumb = UploadRequest.Item("img_thumb").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto_alta = UploadRequest.Item("img_alta").Item("FileName") caminho_foto_baixa = UploadRequest.Item("img_baixa").Item("FileName") caminho_foto_thumb = UploadRequest.Item("img_thumb").Item("FileName") ' Nome dos arquivos enviados nome_foto_alta = Right(caminho_foto_alta,Len(caminho_foto_alta)-InstrRev(caminho_foto_alta,"\")) nome_foto_baixa = Right(caminho_foto_baixa,Len(caminho_foto_baixa)-InstrRev(caminho_foto_baixa,"\")) nome_foto_thumb = Right(caminho_foto_thumb,Len(caminho_foto_thumb)-InstrRev(caminho_foto_thumb,"\")) ' Conteudo binario dos arquivos enviados img_alta = UploadRequest.Item("img_alta").Item("Value") img_baixa = UploadRequest.Item("img_baixa").Item("Value") img_thumb = UploadRequest.Item("img_thumb").Item("Value") ' pasta onde as imagens serao guardadas pasta = array (Server.MapPath("..\imgs\alta"),Server.MapPath("..\imgs\baixa"),Server.MapPath("..\imgs\thumb")) nome_foto_alta = "\"&nome_foto_alta nome_foto_baixa = "\"&nome_foto_baixa nome_foto_thumb = "\"&nome_foto_thumb foto = array (nome_foto_alta,nome_foto_baixa,nome_foto_thumb) ' pasta + nome dos arquivos cfoto = array (nome_foto_alta, nome_foto_baixa, nome_foto_thumb) ' Fazendo o Upload do arquivo selecionado for p = 0 to ubound(pasta) response.write pasta(p) & foto(p)&"<br>" Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta(p) & foto(p),true) For i = 1 to LenB(foto(p)) MyFile.Write chr(AscB(MidB(foto(p),1))) Next MyFile.Close Set objFS = Nothing next

Olá... To com um pequeno problema... que quando faço o upload do arquivo, as imagens perdem informações e acaba não exibindo... Elas são reduzidas para 60 bytes. Alguém tem ideia do que pode tá acontecendo?

Estou tendo o mesmo problema, quando faço um cadastro no banco usando o IE, ele grava corretamente. Quando uso o Fire, e grava assim: joão j ao invés de joão. Como posso normalizar isso?