Omskrive upload.form script

Jeg har kørt noget kode som virker fint, med 1 fil der bliver uploaded... Nu vil jeg så gerne have lavet det så der er til mere end 1 billede.

Dette er koden jeg bruger til at uploade:

            <%
                set conn = Server.CreateObject("ADODB.Connection")
                Session("MyConn") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("mohaadk_database.mdb") & ";"
               
                Set Upload = Server.CreateObject("Persits.Upload.1")
                Upload.OverwriteFiles = false
                Upload.SetMaxSize 1000000, True
                Upload.SaveVirtual ("/grenades/")
               
                For Each File in Upload.Files
               
                File.ToDatabase Session("MyConn"), "insert into T_SCREENSHOTS(M_URL, M_INFO, M_AUTHOR, , M_KAT, M_DATE) " &_
                "values('"& File.ExtractFileName & "', '" & Upload.Form("info") & "', '" & Upload.Form("nickname") & "', '" & Upload.Form("kat") & "',Now())"
                if Err <> 0 Then
                Response.Write "<font class=""maintekst"">Der er sket en fejl! : " & Err.Description
               
                Else
               
                Response.Write "<font class=""maintekst"">Tilføjet...</font>"
               
                End If
                Next
           
                End if
            %>

60 points for at omskrive koden til mindst 3 uploade filer... :)