Recuperare Nome File mediante lo script di BAOL

<!--#include file="Upload.asp"--> 
<% 
dim oUpload 
dim immagine, ciao 
Set oUpload = new cUpload 
    oUpload.SetPath "/intranet/upload/" 
    oUpload.UploadAndSave 
        immagine= oUpload.GetFileName() 
Set oUpload=Nothing

dim oUpload 
dim immagine, ciao 
Set oUpload = new cUpload 
    oUpload.SetPath "/intranet/upload/" 
    oUpload.UploadAndSave 
    immagine = oUpload.Form("programma") 
     
    'Creo il rename del File 
    array fileName 
        fileName= split(immagine, ".", -1, 1) 
             
    'Genero un numero random che vada a rendere unico il file da uploadare 
    int rand 
        Randomize() 
        rand = CInt(Rnd()*100) 
     
    'Modifico FileName 
    immagine = fileName(0) & "_" & rand & "." & fileName(1) 
     
    'ReName del file sul server 
    oUpload.SaveAs(immagine) 
     
Set oUpload=Nothing

Dim oUpload, stringFile 
Set oUpload= new cUpload 

With oUpload 
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati 
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open() 
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/intranet/data/areaFormazione.mdb"),"SELECT Top 1 * FROM attivita" 
.EnabledAspUpload    = False 
.EnabledImageSize    = False 
.EnabledLog          = False 
.AutoRename          = True 
.Overwrite             = False 
.SetPath "intranetupload\" 
.Load 
.MoveFirst 
if .EOF then 
    NumFiles = .Count() 
    Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file." 
else 
    .Database.Open() 
    While Not .EOF 
            .Save 
            'response.Write "il file " & .GetFileName &" è stato salvato <br>" 
            'Inserimento dei valori 

            .Database.Fields("programma") = .GetFileName 
            'Inserimento 
            .Database.Update() 
    .MoveNext 
    Wend 
end if 
End With 
Set oUpload = Nothing