Allora..
Sono tornato alle pagine originali
* tuo consiglio
** riga di errore

codice:
If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then
  Dim DF_filesStr, DF_path, DF_suffix
 * DF_filesStr = "PIC_FILE,PICFILE1"
  DF_path = strPublicPath
  DF_suffix = "_small"
  DeleteFileBeforeRecord DF_filesStr,DF_path,MM_editConnection,MM_editTable,MM_editColumn,MM_recordId,DF_suffix
end if
pagina con funzione e con l'errore

codice:
Sub DeleteFileBeforeRecord(DF_filesStr,DF_path,MM_editConnection,MM_editTable,MM_editColumn,MM_recordId,DF_suffix)
  if DF_path <> "" and right(DF_path,1) <> "/" then DF_path = DF_path & "/"
  Dim DF_fso, DF_files, DF_filesArr, DF_file, DF_fullFile
  Set DF_fso = CreateObject("Scripting.FileSystemObject")
  set DF_files = Server.CreateObject("ADODB.Recordset")
  DF_files.ActiveConnection = MM_editConnection
  DF_files.Source = "SELECT " & DF_filesStr & " FROM " & MM_editTable & " WHERE " & MM_editColumn & " IN (" & MM_recordId & ")"
  DF_files.CursorType = 0
  DF_files.CursorLocation = 2
  DF_files.LockType = 3
**  DF_files.Open()
  DF_filesArr = split(DF_filesStr,",")
  while not DF_files.EOF
    for DF_fi = 0 to UBOUND(DF_filesArr)
      DF_file = Trim(DF_files.Fields.Item(Trim(DF_filesArr(DF_fi))).Value&"")
      if DF_file <> "" then
        DF_fullFile = Server.MapPath(DF_path & DF_file)
        if DF_fso.FileExists(DF_fullFile) then
          DF_fso.DeleteFile(DF_fullFile)	 
        end if	
        if DF_suffix <> "" then
          DF_fullFile = Server.MapPath(DF_path & getThumbnailName(DF_suffix,DF_file))
          if DF_fso.FileExists(DF_fullFile) then
            DF_fso.DeleteFile(DF_fullFile)	 
          end if
        end if
      end if  
    next
    DF_files.MoveNext()
  wend
  DF_files.Close()
End Sub
sembra nn andare
ecco l'errore scusa

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/ScriptLibrary/incPUAddOn.asp, line 18