<%@ LANGUAGE=JavaScript %> Formulaire pour mots-clés de version de document <% WriteHeader() %>

keywords_form.asp + keywords_write.asp

Paramètre Valeur Utilisation
act ... la chaîne "add" en mode Création, cette page permet de saisir les variables nécessaires à la constitution d'une nouvelle paire de mots-clés sur une page d'une version d'un document.
... la chaîne "upd" en mode Modification, cette page affiche la paire de mots-clés selectionnée à la page précédente keywords_liste.asp et ouvre les deux champs en modification.
... la chaîne "del", cette page efface la paire de mots_clés.
doc_id entier : un numéro de procédure (documents.doc_id - référence base de donnée) sqlquery (voir ci-dessous)
ver_id entier : un numéro de version de procédure (documents_versions.ver_id- référence base de donnée) sqlquery (voir ci-dessous)
pag_id entier : un numéro de page de version de procédure (documents_pages.pag_id - référence base de donnée) sqlquery (voir ci-dessous)
key1 Premier mot-clé de la paire à modifier. sqlquery (voir ci-dessous)
key2 Second mot-clé de la paire à modifier. sqlquery (voir ci-dessous)
ref_doc chaîne = référence littérale du document (début du titre). pour le titre de la fenêtre et du tableau, paramètre en sortie pour keywords_write et keywords_liste.
ref_ver chaîne = numéro de version de la forme "1.0" pour le titre de la fenêtre et du tableau, paramètre en sortie pour keywords_write et keywords_liste.

EN MODE CREATION
NOM de LIGNE CHAMP de la BASE CHAMP du FORMULAIRE COMMENTAIRE
<% = trad('DOC_ID') %> documents_mots_cles.doc_id "doc_id", INPUT-HIDDEN, Request.QueryString ('doc_id') Identifiant informatique du document
<% = trad('VER_ID') %> documents_mots_cles.ver_id "ver_id", INPUT-HIDDEN, R.Q('ver_id') Identifiant informatique de la version du document.
<% = trad('PAG_ID') %> documents_mots_cles.pag_id "pag_id", INPUT-HIDDEN, R.Q('doc_id') Identifiant informatique de la page.
<% = trad('KEY1') %> documents_mots_cles.key1 "key1", INPUT-TEXT, "" Premier mot-clef.
<% = trad('KEY2') %> documents_mots_cles.key2 "key2", INPUT-TEXT, "" Deuxième mot-clef.

EN MODE MODIFICATION : va chercher l'existant dans la base
NOM de LIGNE CHAMP de la BASE CHAMP du FORMULAIRE COMMENTAIRE MODIFICATION
<% = trad('DOC_ID') %> documents_mots_cles.doc_id "doc_id", INPUT-HIDDEN Identifiant informatique du document Non modifiable
<% = trad('VER_ID') %> documents_mots_cles.ver_id "ver_id", INPUT-HIDDEN Identifiant informatique de la version du document. Non modifiable
<% = trad('PAG_ID') %> documents_mots_cles.pag_id "pag_id", INPUT-HIDDEN Identifiant informatique de la page. Non modifiable
<% = trad('KEY1') %> documents_mots_cles.key1 "key1", INPUT-TEXT Premier mot-clef.  
<% = trad('KEY2') %> documents_mots_cles.key2 "key2", INPUT-TEXT Deuxième mot-clef.  

sqlquery (en mode modification) "select * from documents_mots_cles where doc_id = " + R.Q("doc_id") + " and ver_id = " + R.Q("ver_id") + " and pag_id = " + R.Q("pag_id") + " and key1 = '" + R.Q('key1') + "' and key2 = '" + R.Q('key2') + "'"
Form "frm" Redirection sur keywords_write.asp ?doc_id=" + R.Q('doc_id') + "&ver_id=" + R.Q('ver_id') + "&pag_id=" + R.Q('pag_id') + "&ref_doc=" + R.Q ('ref_doc') + "&ref_ver=" + R.Q ('ref_ver')
- création : + "&act=add"
- modification : + "&act=upd&key1=" + R.Q('key1') + "&key2=" + R.Q('key2') + ""

keywords_write.asp
-Mode Création : Récupération des données du formulaire entrant, puis
  sqlquery = "documents_mots_cles";
  OBJECT1.cursor.addNew();
  OBJECT1.cursor.SetValue("doc_id", Request.Form("doc_id"))
  OBJECT1.cursor.SetValue("ver_id", Request.Form("ver_id"))
  OBJECT1.cursor.SetValue("pag_id", Request.Form("pag_id"))
  OBJECT1.cursor.SetValue("key1", Request.Form("key1"))
  OBJECT1.cursor.SetValue("key2", Request.Form("key2"))
  OBJECT1.cursor.update();
            

-Mode Modification : Récupération des données du formulaire entrant, puis même chose (sans addNew) ,
-Mode Effacement : Appel de del_keyw ("ver", R.Q('doc_id'), R.Q('ver_id'), R.Q('pag_id'), R.Q('key1'), R.Q('key2'))
Redirection sur "keywords_liste.asp ?doc_id=" + Request.QueryString ('doc_id') + "&ver_id= " + R.Q('ver_id') + "&pag_id=" + R.Q('pag_id') + "&ref_doc=" + R.Q('ref_doc') + "&ref_ver=" + R.Q ('ref_ver')