Erro no Upload de Imagens

[Frango 0]

Galera agora um outro martírio.

 

Estou tentando fazer um upload de imagens com o ASPUpload, só que quand eu ponho

 

enctype="multipart/form-data"

no meu form

 

ele grava os registros em branco no banco!

 

Alguma luz?

[Salgado 4]

Agora você terá que fazer seus Requests depois que criar o Objeto de Upload, a sintaxe normalmente é: NomedoObjeto.Form("NomedoCampo")

[Frango 0]

Continua acrescentando os campos em branco, segue o codigo

 

<%  cliente = Request.Form("txt_cliente")  titulo = Request.Form("txt_titulo")  chamada = Request.Form("txt_chamada")  categoria = Request.Form("txt_categoria")  descricao = Request.Form("txt_descricao")  site = Request.Form("txt_site")  title = Request.Form("txt_title")  ano = Request.Form("txt_ano")  thumbmail = Request.Form("txt_thumb")    Dim Count  Dim file  Set Upload = Server.CreateObject("Persits.Upload.1")  Upload.OverwriteFiles = False  Count = upload.form("/jpg")    set conn = Server.CreateObject("ADODB.Connection")  set rs = Server.CreateObject("ADODB.Recordset")    x = Server.Mappath("bd/bd.mdb")  obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x  conn.Open obj    cadastra = "insert into portfolio (cliente, titulo, chamada, categoria, descricao, site, title, ano, thumb_projetos) values ('"&(Upload.Form("cliente"))&"' , '"&(Upload.Form("titulo"))&"' , '"&(Upload.Form("chamada"))&"', '"&(Upload.Form("categoria"))&"' , '"&(Upload.Form("descricao"))&"' , '"&(Upload.Form("site"))&"' , '"&(Upload.Form("title"))&"' , '"&(Upload.Form("ano"))&"' , '"&(Upload.Form("thumbnail"))&"')"  set rs = conn.execute (cadastra)  conn.close  Set rs = nothing    response.redirect("extranet.asp") %>

[Salgado 4]

Não cara é assim:

<%  Dim Count
 Dim file
 Set Upload = Server.CreateObject("Persits.Upload.1")
 Upload.OverwriteFiles = False
 Count = upload.form("/jpg")

 cliente = Upload.Form("txt_cliente")
 titulo = Upload.Form("txt_titulo")
 chamada = Upload.Form("txt_chamada")
 categoria = Upload.Form("txt_categoria")
 descricao = Upload.Form("txt_descricao")
 site = Upload.Form("txt_site")
 title = Upload.Form("txt_title")
 ano = Upload.Form("txt_ano")
 thumbmail = Upload.Form("txt_thumb")

 set conn = Server.CreateObject("ADODB.Connection")
 set rs = Server.CreateObject("ADODB.Recordset")

 x = Server.Mappath("bd/bd.mdb")
 obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x
 conn.Open obj

 cadastra = "insert into portfolio (cliente, titulo, chamada, categoria, descricao, site, title, ano, thumb_projetos) values ('"& cliente &"','"& titulo &"','"& chamada &"','"& categoria &"','"& descricao &"','"& site &"','"& title &"','"& ano &"','"& thumbnail &"')"
 set rs = conn.execute (cadastra)
 conn.close
 Set rs = nothing

 response.redirect("extranet.asp")
%>

[Frango 0]

Fala Salgado,Troquei pelo seu código e continuou adicionando os campos em branco

[dark0 0]

frango, faz o seguinte, dê uma analizada no topico de "upload sem componentes", dentro do sobforum banco de codigoslá tem uma boa explicação de como funciona isso aet+

[Frango 0]

Koe Dark0,Eu já dei uma olhada no Upload sem Componente só que dessa forma e ejog ao arquivo (no caso a img) pro banco. Eu naum quero jogar o arquivo, quero q ele pegue só o nome sakou

[Salgado 4]

Fala Salgado,

 

Troquei pelo seu código e continuou adicionando os campos em branco

Cara ele está gravando todos os campos em branco ou só o thumb_projetos? Reparei que a variável para esse campo está digitada errada, está aparecendo como thumbmail e thumbnail.

[Frango 0]

Fala Salgado,

 

Todos os campoes estão em branco. Agora to testanto dessa forma aqui

 

<%    Dim Count  Dim vfoto  Set Upload = Server.CreateObject("Persits.Upload.1")  Upload.OverwriteFiles = False  Count = upload.Save("E:\[O.C.M.]\Azeitona Preta\2005\jpg")  For Each File in Upload.Files  strURLfoto = File.Path  strNomeFoto = Mid(strURLfoto, InStrRev(strURLfoto, "\", Len(strURLfoto))+1, Len(strURLfoto)-InStrRev(strURLfoto, "\", Len(strURLfoto)))  Next    cliente = Upload.Form("txt_cliente")  titulo = Upload.Form("txt_titulo")  chamada = Upload.Form("txt_chamada")  categoria = Upload.Form("txt_categoria")  descricao = Upload.Form("txt_descricao")  site = Upload.Form("txt_site")  title = Upload.Form("txt_title")  ano = Upload.Form("txt_ano")  thumbnail = Upload.Form("txt_thumb")    set conn = Server.CreateObject("ADODB.Connection")  set rs = Server.CreateObject("ADODB.Recordset")    x = Server.Mappath("bd/bd.mdb")  obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x  conn.Open obj    cadastra = "insert into portfolio (cliente, titulo, chamada, categoria, descricao, site, title, ano, thumb_projetos) values ('"&cliente&"','"&titulo&"','"&chamada&"','"&categoria&"','"&descricao&"','"&site&"','"&title&"','"&ano&"','"&thumbnail&"')"  set rs = conn.execute (cadastra)  conn.close  Set rs = nothing    response.redirect("extranet.asp")%>

Só que está dando:

 

"Tipo de dados imcompatível na expressão de critério."

Linha 31 = set rs = conn.execute (cadastra)

 

Acredito que é pq o campo CATEGORIA está como número no banco (Access)´, e to usando '"&categoria&"' que é pra texto certo?

 

Como é a sintaxe pra campos NUMERO

 

??

[Salgado 4]

Para campos numéricos tire as ' (aspas simples)

[Frango 0]

Trokeir,Outro erro agora:"Parâmetros insuficientes. Eram esperados 2."

[Salgado 4]

Logo abaixo de sua variavel cadastra Coloque:

Response.Write "Sua SQL é: "& Cadastra
Conn.Close
Set Conn = Nothing
Response.END

E poste aqui o resultado

[Frango 0]

Segue,

 

Sua SQL é: insert into portfolio (cliente, titulo, chamada, categoria, descricao, site, title, ano, thumb_projetos) values ('Frango','Frango','Frango',Website/Hotsite,'Frango','Frango','Frango','Frango','')

 

Os dados estão corretos, só o ultimo campo (o upload) q não foi ficou em branco

[Mário Monteiro 179]

ta faltando aspas neste valor Website/Hotsite

[Frango 0]

Vou explicar melhor esse campo categoria,Seguinte esse campo categoria enra nessa tabela portfolio como um nuemro 1, 2, 3, 4 cada numero corresponde a uma categoria.Fiz isso pra fazer um drop-lis dinâmico. Onde o usuario tem q escolher primeiro a categoria pra depois abrir outro drop-list com os cliente correspondentes a esse projeto.Ex.Se escolher categoria 1 (Website/Hotsite) abre outro drop-list com os cliente que tem Website/Hotsite.Sakou.Existe uma tabela categoria com o Id e o Nome ... e a tabela portfolio com campo categoria q entra o ID da categoria. Elas estao relacionadas no Access

[Mário Monteiro 179]

então ali deve ser este numero e não o web...

[Frango 0]

Como eu posso estar fazendo isso, então?Naum posso botar no form 1, 2, 3, 4 .. tem q ser os nomes pra saber quem e quem

[Salgado 4]

É um SELECT? Coloque o Value igual ao numero.

[Frango 0]

Pronto galera,

 

Agora já está passando o numero corretamentep

 

Sua SQL é: insert into portfolio (cliente, titulo, chamada, categoria, descricao, site, title, ano, thumb_projetos) values ('Frango','Frango','Frango',3,'Frango','Frango','Frango','Frango','')

Mas o campo da ima (ultimo campo continua vazio

[Salgado 4]

Cara, o nome da imagem não está na variável strNomeFoto? Então é só trocar a variavel que tá na SQL.