problemas com o componete fileUp

[ju_rezende]

Olá pessoal estou com um prblema para usar o componente file up, é um componete para upload

o que ocorre é que tenho mais de um campo file, são 5 na verdade, e o problema que tá ocorrendo é que ele só tá cadastrando o do primenrio campo, o resto, não cadastra, vou postar meu código, caso alguém já tenha tido este problema e possa me dar um luz fico grata.

Abraços e grata pela atenção

meu codigo

<%call AbreConexao()
Set objUpload = Server.CreateObject("SoftArtisans.FileUp") 
objUpload.MaxBytes = 500000
if objUpload.form("foto")<> "" then 
    if  objUpload.UserFilename <> "" then
        set rs1 = server.CreateObject ("adodb.recordset")
        sql1="select * from home where codigo=" & 1 & ""
        rs1.open sql1,conn,3,3
        FName = Mid(objUpload.UserFilename, InstrRev(objUpload.UserFilename, "\") + 1)
        response.write FName & "<br>"
        rs1("Imagem")=FName
        rs1.update
        'verificando extensão de arquvo
        FCONT = objUpload.ContentType 
        response.write  FCONT & "<br>"
        'response.end 
        Select Case LCase(FCONT) 
           Case "image/pjpeg"
           Case "application/x-shockwave-flash"
           Case Else
           objUpload.delete
           Response.Write   "A imagem, não é um arquivo .jpg, "
        End Select
        caminho= "album/" 
        caminho1= Server.Mappath("Home/")
        'response.write Caminho1& "\" & FName
        'codigo=objUpload.form("codigo")
        Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
            FileName=caminho1 & "\" & FName
            If Arquivo.FileExists(FileName) Then
                Arquivo.DeleteFile FileName
            end if 
        set Arquivo=nothing
        cadastrado="sim"
        objUpload.SaveAs Caminho1& "\" & FName
        rs1.close
    end if
end if
set objUpload=nothing
Set objUpload1 = Server.CreateObject("SoftArtisans.FileUp") 

if objUpload1.form("foto2")<> "" then 
    if  objUpload1.UserFilename <> "" then
        set rs1 = server.CreateObject ("adodb.recordset")
        sql1="select * from home where codigo=" & 2 & ""
        rs1.open sql1,conn,3,3
        FName = Mid(objUpload1.UserFilename, InstrRev(objUpload1.UserFilename, "\") + 1)
        response.write FName & "<br>"
        rs1("Imagem")=FName
        rs1.update
        'verificando extensão de arquvo
        FCONT = objUpload1.ContentType 
        response.write  FCONT & "<br>"
        'response.end 
        Select Case LCase(FCONT) 
           Case "image/pjpeg"
           Case "application/x-shockwave-flash"
           Case Else
           objUpload1.delete
           Response.Write   "A imagem, não é um arquivo .jpg, "
        End Select
        caminho= "album/" 
        caminho1= Server.Mappath("Home/")
        'response.write Caminho1& "\" & FName
        Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
            FileName=caminho1 & "\" & FName
            If Arquivo.FileExists(FileName) Then
                Arquivo.DeleteFile FileName
            end if 
        set Arquivo=nothing                                    
        cadastrado="sim"
        objUpload1.SaveAs Caminho1& "\" & FName
        rs1.close
    end if
end if
set objUpload1=nothing
Set objUpload2 = Server.CreateObject("SoftArtisans.FileUp") 
if objUpload2.form("foto3")<> "" then 
    if  objUpload2.UserFilename <> "" then
        set rs1 = server.CreateObject ("adodb.recordset")
        sql1="select * from home where codigo=" & 3 & ""
        rs1.open sql1,conn,3,3
        FName = Mid(objUpload2.UserFilename, InstrRev(objUpload2.UserFilename, "\") + 1)
        response.write FName & "<br>"
        rs1("Imagem")=FName
        rs1.update
        'verificando extensão de arquvo
        FCONT = objUpload2.ContentType 
        response.write  FCONT & "<br>"
        'response.end 
        Select Case LCase(FCONT) 
           Case "image/pjpeg"
           Case "application/x-shockwave-flash"
           Case Else
           objUpload2.delete
           Response.Write   "A imagem, não é um arquivo .jpg, "
        End Select
        caminho= "album/" 
        caminho1= Server.Mappath("Home/")
        'response.write Caminho1& "\" & FName
        'codigo=objUpload.form("codigo")
        Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
            FileName=caminho1 & "\" & FName
            If Arquivo.FileExists(FileName) Then
                Arquivo.DeleteFile FileName
            end if 
        set Arquivo=nothing                                        cadastrado="sim"                                                    objUpload2.SaveAs Caminho1& "\" & FName
        rs1.close
    end if
end if
set objUpload2=nothing
Set objUpload3 = Server.CreateObject("SoftArtisans.FileUp") 
if objUpload3.form("foto4")<> "" then 
    if  objUpload3.UserFilename <> "" then
        set rs1 = server.CreateObject ("adodb.recordset")
        sql1="select * from home where codigo=" & 4 & ""
        rs1.open sql1,conn,3,3
        FName = Mid(objUpload3.UserFilename, InstrRev(objUpload3.UserFilename, "\") + 1)
        response.write FName & "<br>"
        rs1("Imagem")=FName
        rs1.update
        'verificando extensão de arquvo
        FCONT = objUpload3.ContentType 
        response.write  FCONT & "<br>"
        'response.end 
        Select Case LCase(FCONT) 
           Case "image/pjpeg"
           Case "application/x-shockwave-flash"
           Case Else
           objUpload3.delete
           Response.Write   "A imagem, não é um arquivo .jpg, "
        End Select
        caminho= "album/" 
        caminho1= Server.Mappath("Home/")
        'response.write Caminho1& "\" & FName
        'codigo=objUpload3.form("codigo")
        Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
        FileName=caminho1 & "\" & FName
        If Arquivo.FileExists(FileName) Then
            Arquivo.DeleteFile FileName
        end if 
        set Arquivo=nothing                                        cadastrado="sim"                                                          objUpload3.SaveAs Caminho1& "\" & FName
        rs1.close
    end if
end if
set objUpload3=nothing
Set objUpload4 = Server.CreateObject("SoftArtisans.FileUp") 
if objUpload4.form("foto5")<> "" then 
    if  objUpload4.UserFilename <> "" then
        set rs1 = server.CreateObject ("adodb.recordset")
        sql1="select * from home where codigo=" & 5 & ""
        rs1.open sql1,conn,3,3
        FName = Mid(objUpload4.UserFilename, InstrRev(objUpload4.UserFilename, "\") + 1)
        response.write FName & "<br>"
        rs1("Imagem")=FName
        rs1.update
        'verificando extensão de arquvo
        FCONT = objUpload4.ContentType 
        response.write  FCONT & "<br>"
        'response.end 
        Select Case LCase(FCONT) 
           Case "image/pjpeg"
           Case "application/x-shockwave-flash"
           Case Else
           objUpload4.delete
               Response.Write   "A imagem, não é um arquivo .jpg, "
        End Select
        caminho= "album/" 
        caminho1= Server.Mappath("Home/")
        'response.write Caminho1& "\" & FName
        'codigo=objUpload.form("codigo")
        Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
            FileName=caminho1 & "\" & FName
            If Arquivo.FileExists(FileName) Then
                Arquivo.DeleteFile FileName
            end if 
        set Arquivo=nothing                                        cadastrado="sim"                                objUpload4.SaveAs Caminho1& "\" & FName
        rs1.close
    end if
end if
set objUpload4=nothing
%>

Editado Julho 22, 2008 por ju_rezende

[bareta]

AI invés DE USAR 5 VEZES A MESMA INSTRUÇÃO USE UM FOR