Problemas com SoftArtesians(FileUp)

Fala ai Galera beleza?

É o seguinte estou com uma dúvida que esta tirando o sono e o problema da locaweb é esse componente de upload!

Eu preciso fazer upload de ate 10 imagens!!

quando tento fazer upload de 2 imagens ao mesmo tempo, ele nao faz o upload de uma das imagens!

e ainda salva com o nome errado a imagem que ele salva!!

fiz de varios jeitos o ultimo que ficou foi esse

ó meu codigo:

Set Obj_Upload = Server.CreateObject("SoftArtisans.FileUp") 'Caminho onde vai salvar as fotos Obj_Upload.Path = "caminho da imagem" 'Cria o Obj_File para a foto 1 Str_Teste = Obj_Upload.form("foto1") IF LEN(Str_Teste) > 0 THEN Str_Filename = Obj_Upload.form("foto1").ShortFileName Str_Foto_1 = geraNomeArq(Str_Filename) IF LEN(Str_Filename) > 0 THEN Obj_Upload.SaveAs Str_Filename 'Int_Largura = Obj_Upload.Width 'Int_Altura = Obj_Upload.Height IF LEN(Str_Foto_1) > 0 THEN Str_SQL_Cmd = "INSERT INTO tbCadastro_Album(idcadastro,foto_original" &_ ", foto_modificada, largura, altura) VALUES " &_ "(" & Session("Rev_ID") & ",'" & Str_Filename &_ "','" & Str_Foto_1 & "'," & Int_Largura & ", " & Int_Altura &_ ")" Session("Conn").Execute(Str_SQL_Cmd) END IF ELSE Str_Foto_1 = "" END IF END IF 'Cria o Obj_File para a foto 2 Str_Teste_2 = Obj_Upload.form("foto2") IF LEN(Str_Teste_2) > 0 THEN Str_Filename_2 = Obj_Upload.form("foto2").ShortFileName Str_Foto_2 = geraNomeArq(Str_Filename_2) IF LEN(Str_Filename_2) > 0 THEN Obj_Upload.form("foto2").Save Str_Filename_2 IF LEN(Str_Foto_2) > 0 THEN Str_SQL_Cmd = "INSERT INTO tbCadastro_Album(idcadastro,foto_original" &_ ", foto_modificada, largura, altura) VALUES " &_ "(" & Session("Rev_ID") & ",'" & Str_Filename_2 &_ "','" & Str_Foto_2 & "'," & Int_Largura_2 & ", " & Int_Altura_2 &_ ")" Session("Conn").Execute(Str_SQL_Cmd) END IF ELSE Str_Foto_2 = "" END IF END IF

espero que me ajudem

Obrigado