Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom, estou com outro problema http://forum.imasters.com.br/public/style_emoticons/default/blush.gif
Tenho um form de upload (Dundas Upload). Até aí tudo certo, ele joga tal arquivo na pasta determinada e tudo mais. Porém quando quero inserir no banco, ele insere duplicado, ou seja, insiro um produto, e no final, aparecem dois (um igual ao outro) no banco. Como proceder?
For Each objUploadedFile in objUpload.Files
Response.Write "campo "" & objUploadedFile.TagName & "" do Formulario - Caminho : " & objUploadedFile.Path & " - Tamanho : " & CStr(objUploadedFile.Size) & " bytes<br>"
caminho_foto = objUpload.Form("foto")
nome_foto = Right(objUploadedFile.Path,Len(objUploadedFile.Path)-InstrRev(objUploadedFile.Path,"\"))
pasta = "imagens/produtos/"
arquivo = pasta & nome_foto
url_conexao = Server.MapPath("ARQUIVO DO BANCO")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
sql = "insert into tb_produtos (categoria, cod_empresa, nome, descricao, foto, preco1, preco2, preco3, preco4, preco5, preco6, caracteristica1, caracteristica2, itemincluso1, info1, sis_operacional, garantia, marca, promocao) values ('"& categoria &"', '"& cod_empresa &"', '"& nome_prod &"', '"& descricao &"', '"& arquivo &"', '"& preco1 &"' , '"& preco2 &"' , '"& preco3 &"', '"& preco4 &"', '"& preco5 &"', '"& preco6 &"', '"& caracteristica1 &"', '"& caracteristica2 &"','"& itemincluso1 &"', '"& info1 &"', '"& sist_operacional &"', '"& garantia &"', '"& marca &"', '"& promocao &"')"
set rsquery = conexao.execute(sql)
'Response.Write(sql)
'Response.End
set rsquery = conexao.execute(sql)
If InStr(1,objUploadedFile.ContentType,"octet-stream") Then
Response.Write " MAS O Arquivo foi REMOVIDO por ser um tipo proibido"
objUploadedFile.Delete
End If
Next
Obrigado.
Carregando comentários...