<% OPTION EXPLICIT %> <% 'Variables du formulaire DIM strCatNom, strSousCat, boolNewCat 'Variables des connexion DB DIM RSNewCat 'Variables de transformation DIM nocat, i, nomsouscat, nomcat, nosouscat 'On prend les donnees du formulaire boolNewCat = Request.Form("boolNewCat") strCatNom = Request.Form("strCatNom") strSousCat = Request.Form("strSousCat") IF boolNewCat <> "1" THEN '********************* Affichage de la page d'ajout de catégories ****************** %> Ajouter une nouvelle catégorie pour l'annuaire

Nom de la catégorie:

Nom des sous-catégories:

<% '********************* Fin formulaire d'ajout de catégorie ****************** ELSE 'il y a des donnees dans le formulaire '********************** Ajout d'une categorie formamodif = 0 ******************** 'On procede les donnees du formulaire set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open strDBDSN set RSNewCat = Server.CreateObject("ADODB.Recordset") 'ouverture du Recordset RSNewCat.Open "categories", objConnect, adOpenDynamic, adLockOptimistic 'ajout des donnees en provenance du formulaire 'Ajout de la categorie principale 'on cree une nouvelle ligne avec le ID auto RSNewCat.AddNew RSNewCat("nom") = strCatNom RSNewCat("description") = strSousCat RSNewCat.Update 'on se sert du ID auto afin de donner un nom a notre categorie, soit ID-00 'pour la categorie principale et ensuite ID-xx ou xx incremente avec les sous-cat RSNewCat.MoveLast nocat = RSNewCat("id") RSNewCat("nocat") = RSNewCat("id")&"-" RSNewCat.Update 'Ajout des sous-categories i = 1 'strSousCat = trim(splitsouscat ("strSousCat")) WHILE instr(strSousCat, "/") <> 0 nomsouscat = trim(left(strSousCat, instr(strSousCat, "/")-1)) strSousCat = trim(right(strSousCat, len(strSousCat) - instr(strSousCat, "/"))) nosouscat = nocat&"-"&i i = i + 1 RSNewCat.AddNew RSNewCat("nocat") = nosouscat RSNewCat("nom") = nomsouscat RSNewCat.Update WEND nosouscat = nocat&"-"&i RSNewCat.AddNew RSNewCat("nocat") = nosouscat RSNewCat("nom") = strSousCat RSNewCat.Update 'fermeture des objets set RSNewCat = nothing set objConnect = nothing %> <% END IF %>