שאלה לזהר

עוד שאלה לנושא המחיקה
הקוד הזה  מיועד למחיקה משני מקומות מבסיס נתונים מצד אחד ומתקיה בשרת מצד שני

מה צריך לתקן בקוד (הבעיה בקוד היא בלולאה של מחיקת מהתקיה בשרת )

SQL = "Delete From files Where id=" & Arr_ID(0)
            For i = 1 To Arr_Len
                SQL = SQL & " or id=" & Arr_ID(i)
                
            Next
            SQL = Replace(SQL,",","")
            Set cn = Server.CreateObject("ADODB.Connection")
            cn.Open TheDSN
            cn.Execute SQL
            cn.Close
            Set cn = Nothing        
            
            
            
            For i = 1 To Arr_Len
                  
            namfile = Arr_ID(0) or Arr_ID(i)
                
            VirtualDirectory = "filesdata/"&namfile
            PhisicalDirectory = Server.MapPath(VirtualDirectory)
            Upload.DeleteFile PhisicalDirectory
            Next
        

יש רק ה ORGINALFILENAME
אצלי בעיה והכי טוב לעשות שהאוביקט  יתן באופן אוטומטי את השם

אבל איך אוכך חדעת את השם האוטומטי החדש שנתן לקובץ ?

כנראה שכחת אותי זהר
בהוגעה לפני יש את ההודעה של השגיאה

כדי להבין למה לא מוחק