annx_recup_pages.asp

- Si on est en modification : pas de changement dans les fichiers-liens

if ("" + Request.QueryString('van_id') != "" + Request.QueryString ('prec_van_id')) {
   
   sqlquery = "select van_ref_info from annexes_versions where doc_id = " + Request.QueryString('doc_id') + " and ann_id = " + Request.QueryString('ann_id') + " and van_id = " + Request.QueryString ('prec_van_id') + "";
   
   for (var i=0; !OBJECT1.cursor.EOF(); i++) {
        
        //Récupération du nom du fichier sans chemin
        string = "" + OBJECT1.cursor.GetValue(0);
        index_slash = string.indexOf("ANN_", 1);
        long = string.length;
        file_in = string.substring (index_slash, long);
        
        //Création du nouveau nom de fichier file_out
        file_out = "ANN_" + formatage (Request.QueryString('doc_id'), 4) + "_";
        file_out += formatage (Request.QueryString('ann_id'), 4) + "_";
        num_valide = formatage((parseInt(file_in.substring (14,17))+1),3);
        file_out = file_out + num_valide + "_" + "000" + file_in.substring (21,long);
        
        //Copie du fichier
        app_file_in = Application('dir_out') + file_in;
        app_file_out = Application('dir_out') + file_out;
    
        fso.CopyFile (app_file_in, app_file_out);
        
        //Ecriture du lien dans la base (annexes_versions)

        sqlquery = "update annexes_versions set van_ref_info = '";
        sqlquery += "" + string.substring(0,index_slash) + file_out + ""; // valeur
        sqlquery += "' where doc_id=" + Request.QueryString('doc_id') + " and ann_id=" + Request.QueryString('ann_id') + " and van_id =" + Request.QueryString('van_id'); 
    
      OBJECT1.cursor.MoveNext()    

  }//fin du for
  
}//fin du if

Redirection sur : annx_vers_liste.asp?doc_id=" + R.Q ("doc_id") + "&ref_doc=" + R.Q ('ref_doc') + "&ann_id=" + R.Q ('ann_id') + "&ref_ann=" + R.Q ('ref_ann')