שאלה בנושא המחיקה

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



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




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