[Resolvido] Inserir dados no banco MySQL

Galera, Salve salve,

tenho um form para gravar no banco de dados q tem 2 imagens, preciso gravar

as 2 imagens e os outros dados do produto, o q está acontecendo é q grava em

duplicidade o id do produto e tudo relacionado à ele, vejam onde estou errando:

Case "gravanovo"

On Error Resume Next

Dim objUpload

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = True

objUpload.UseUniqueNames = False

objUpload.Save "/produtos/imagens"

For Each objUploadedFile in objUpload.Files

filepathname = objUpload.Item("file").Item("FileName")
FileName = objUpload.GetFileName(objUploadedFile.OriginalPath)

filepathname2 = objUpload.Item("file2").Item("FileName")
filename2 = objUpload.GetFileName(objUploadedFile.OriginalPath)

nome = objUpload.Form("nomeprod")
vendidosprod = objUpload.Form("vendidosprod")
categ = objUpload.Form("categ")
peso = objUpload.Form("peso")
precov = objUpload.Form("precv")
precon = objUpload.Form("precn")
parcelamento = objUpload.Form("parc")
juros = objUpload.Form("juro")
juropor = objUpload.Form("jurodia")
fabricante = objUpload.Form("fabri")
modelo = objUpload.Form("modelo")
acabamento = objUpload.Form("acabamento")
condicao = objUpload.Form("condicao")
descricao = objUpload.Form("descri")
estoq = objUpload.Form("estoq")
figurg = objUpload.Form("file")
figurp = objUpload.Form("file2")
destaque = objUpload.Form("destaque")
QtdMax = objUpload.Form("maxProd")
Estoque = objUpload.Form("maxEstoque")

'*** Substitui o ' por ´ (senao ocorre problemas)
descricao=replace(descricao,"'","´")
fabricante=replace(fabricante,"'","´")
nome=replace(nome,"'","´")

 textosql = "INSERT INTO produtos (nome, fabricante, detalhe, preco, precovelho, parcela" _
 & ", juro, aomes, estoque, idsessao, data, peso, imgra, impeq, status, destaque, modelo, acabamento, condicao, vendidosprod) VALUES ('" & nome & "', " _
 & "'" & fabricante & "', '" & descricao & "', '" & precon & "', '" & precov & "', '" & parcelamento & "'" _
 & ", '" & juros & "', '" & juropor & "', '" & estoq & "', '" & categ & "', '" & dia & "/" & mez & "/" & Year(Date) & "'," _
 & " '" & peso & "', '" & FileName & "', '" & filename2 & "', 'nao', '" & destaque & "', '" & modelo & "', '" & acabamento & "', '" & condicao & "', '" & vendidosprod & "')"

já tentei vários caminhos relacionados às imagens, eu acho q é por aí o problema.