ASPUpload og filnavne

Hejsa

Jeg har et upload script som bruger ASPUpload aka. Persits Upload til at uploade filer med. Jeg har dog et mindre problem.
Jeg skal kun kunne uploade 2 filer, og jeg har 2 forms som i kan se her:

<FORM ACTION="upload-comp-pic.asp" METHOD="POST" ENCTYPE="multipart/form-data">

<input class="knap" type="file" name="myFile1" size="20" class="knap"><br>

<input class="knap" type="file" name="myFile2" size="20" class="knap"><p align="center">

<input class="knap" type="submit" value="Submit" name="B1" class="knap">
</form>

Der er de 2 filer som skal uploades, men når jeg uploader, skal ASPUpload selv ændre navn til billede1.jpg og billede2.jpg, billedet skal også skalereres ned til 100x100 pixels.. Det er dog klaret, det er bare det med at uploade med navnene... I får lige min kode her:

' Create an instance of AspUpload object
Set Upload = Server.CreateObject("Persits.Upload.1")
' Compute path to save uploaded files to
Path = UnixCompSti

set fso = CreateObject("scripting.filesystemobject")
f = UnixCompSti & "comp\" & session("id") & "\"
If not fso.FolderExists(f) then fso.CreateFolder f
set fso = nothing

' Capture uploaded file. Return the number of files uploaded
Count = Upload.Save(Path)

  ' Obtain File object representing uploaded file
  Set File = Upload.Files(1)

  ' Is this a valid image file?
  If File.ImageType <> "UNKNOWN" Then

    ' Create instance of AspJpeg object
    Set jpeg = Server.CreateObject("Persits.Jpeg")

    ' Open uploaded file
    jpeg.Open( File.Path )

    ' Resize image according to "scale" option.
    ' We cannot use Request.Form, so we use Upload.Form instead.
    jpeg.Width = 100
    jpeg.Height = 100

    SavePath = Path & "comp\" & session("id") & "\"

    ' AspJpeg always generates thumbnails in JPEG format.
    ' If the original file was not a JPEG, append .JPG ext.
    If UCase(Right(SavePath, 3)) <> "JPG" Then
      SavePath = SavePath & ".jpg"
    End If

    jpeg.Save SavePath
file.delete