upload sem componentes

[webcore 0]

Bom dia pessoal.

usei aquele tuto do upload sem componentes do Lab. de Scripts no localhost beleza, no server ta dando um erro, ja fucei no que achei q poderia ser e nada

CODE

<%

Server.scripttimeout = 10000

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

' Recuperando os Dados Digitados ----------------------

cod_categoria = UploadRequest.item("cod_categoria").item("Value")

legenda = UploadRequest.item("legenda").item("Value")

 

 

' Tipo de arquivo que esta sendo enviado

 

tipo_imagem = UploadRequest.Item("imagem").Item("ContentType")

 

 

tipo_imagem_gde = UploadRequest.Item("imagem_gde").Item("ContentType")

 

' Caminho completo dos arquivos enviados

 

caminho_imagem = UploadRequest.Item("imagem").Item("FileName")

caminho_imagem_gde = UploadRequest.Item("imagem_gde").Item("FileName")

 

 

' Nome dos arquivos enviados

 

nome_imagem = Right(caminho_imagem,Len(caminho_imagem)-InstrRev(caminho_imagem,"\"))

 

nome_imagem_gde = Right(caminho_imagem_gde,Len(caminho_imagem_gde)-InstrRev(caminho_imagem_gde,"\"))

 

 

' Conteudo binario dos arquivos enviados

 

imagem = UploadRequest.Item("imagem").Item("Value")

 

imagem_gde = UploadRequest.Item("imagem_gde").Item("Value")

 

' pasta onde as imagens serao guardadas

 

pasta = Server.MapPath("../images")

 

nome_imagem = "/"&nome_imagem

 

nome_imagem_gde = "/"&nome_imagem_gde

 

' pasta + nome dos arquivos

 

cimagem = "imgs/" + nome_imagem

 

cimagem_gde = "imgs/" + nome_imagem_gde

 

 

' Fazendo o Upload do arquivo selecionado

if imagem <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem)

For i = 1 to LenB(imagem)

MyFile.Write chr(AscB(MidB(imagem,i,1)))

Next

MyFile.Close

end if

 

 

if imagem_gde <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem_gde)

For i = 1 to LenB(imagem_gde)

MyFile.Write chr(AscB(MidB(imagem_gde,i,1)))

Next

MyFile.Close

end if

 

 

' Conecta-se ao Banco de Dados

 

Set Conn = Server.CreateObject("Adodb.Connection")

Conn.Open"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=xxxxx; DATABASE=xx; USER=xxx; PASSWORD=xxxx;"

 

' cadastra os dados no banco de dados

 

theSQL = "INSERT INTO fotos (cod_categoria, legenda, imagem, imagem_gde) VALUES ('"

theSQL = theSQL & cod_categoria

theSQL = theSQL & "', '"

theSQL = theSQL& legenda

theSQL = theSQL & "', '"

theSQL = theSQL& pasta+nome_imagem

theSQL = theSQL & "', '"

theSQL = theSQL& pasta+nome_imagem_gde

theSQL = theSQL & "')"

Conn.Execute(theSQL)

 

 

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados com Sucesso!"

%>

 

to usando uma pasta dentro do meu site...www.corehuman.com/toniescalante/

o arquivo q faz o upload esta em... toniescalante/gerencia/

as imagens teriam de serem gravadas em toniescalante/images/

 

fiz um teste e grava no db assim: d:httpcorehumanweb oniescalanteimages/c1.jpg

 

imagino que o erro esteja por aqui

nome_imagem = Right(caminho_imagem,Len(caminho_imagem)-InstrRev(caminho_imagem,"\"))

mas nao consigo resolver

 

abracos

[Mário Monteiro 179]

use a barra normal ali

 

(caminho_imagem,"/")

[webcore 0]

rs caraca Mário, sempre dando uma força.. rs vou fazer parte da sua campanha cara. haha

não imaginava q responderiam tão cedo, enquanto esperava fui testando tudo.

 

tirei a barra da variavel cimagem la em cima e joguei na sql, deu certo

 

troquei

theSQL = theSQL& pasta+nome_imagem

por

theSQL = theSQL& cimagem

 

muito obrigado MEsmo cara tenha um bom dia

[Mário Monteiro 179]

que bom entao

 

parabens