[Resolvido] Problema: Insert duplicado

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.