<% OPTION EXPLICIT %>
<%
'Variables du formulaire
DIM strCatNom, strSousCat, boolNewCat
'Variables des connexion DB
DIM RSSelectCat, RequeteSelect, RequeteDelete, RequeteDeleteSCat, RSDelCat, RSDelSCat
'Variables de transformation
DIM nocat, i, nomsouscat, nomcat, strNoCat
'On prend les donnees du formulaire
boolNewCat = Request.Form("boolNewCat")
strNoCat = Request.Form("strNoCat")
'########## FUNCTION donnant toutes les categories possible ##########
FUNCTION CatSelect (nomvar)
set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open strDBDSN
RequeteSelect = "Select * from categories where nocat like '%-' order by nom ;"
set RSSelectCat = Server.CreateObject("ADODB.Recordset")
RSSelectCat.Open RequeteSelect, objConnect, adOpenForwardOnly, adLockReadOnly
Response.Write("")
set RSSelectCat = nothing
set objConnect = nothing
END FUNCTION
'########## Fin FUNCTION d'affichage des categories ##########
IF boolNewCat <> "1" THEN
'********************* Affichage de la page d'ajout de catégories ******************
%>
Effacer une catégorie existante :
<%
'********************* Fin formulaire d'ajout de catégorie ******************
ELSE 'il y a des donnees dans le formulaire
set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open strDBDSN
RequeteDeleteSCat = "Select * from sitesacceptes where nocat like '"& strNoCat &"-%' ;"
set RSDelSCat = Server.CreateObject("ADODB.Recordset")
RSDelSCat.Open RequeteDeleteSCat, objConnect, adOpenDynamic, adLockOptimistic
'RSDelSCat.Delete
RequeteDelete = "delete * from categories where nocat like '"& strNoCat &"%' ;"
set RSDelCat = Server.CreateObject("ADODB.Recordset")
RSDelCat.Open RequeteDelete, objConnect, adOpenDynamic, adLockOptimistic
'RSDelCat.Delete
set RSDelCat = nothing
set RSDelSCat = nothing
set objConnect = nothing
%>
<%
END IF
%>