<%
'########## Declaration/Definition des variables ##########
'Objet de connexion, recordset
DIM objRSPrendreDonnees, strRequetePrendreDonnees, objRSFUNCTIONSiteATraiter, strRequeteFUNCTIONSiteATraiter
'## variables provenant du formulaire ##
DIM intChoixSiteAEffacer, intSiteCat, strMotscles, strSiteEmail, intCotation, strDateheure, strCatNom
intChoixSiteAEffacer = Request.Form("intChoixSiteAEffacer")
DIM strEfface, strSiteNom, strSiteURL, strSiteDescrip
strEfface = Request.Form("strEfface")
intSiteCat = Request.Form("intSiteCat")
'Connexion et ouverture de la BD
set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open strDBDSN
'########## Fin Declaration / definition des variables ##########
'########## FUNCTION prenant les sites a traiter de la table acceptes et cree un combo-box ##########
FUNCTION SiteComboBox (strNomVar)
'Creation d'un objet
set objRSFUNCTIONSiteATraiter = Server.CreateObject("ADODB.Recordset")
'Requete
strRequeteFUNCTIONSiteATraiter = "Select * from sitesacceptes order by dateheure desc;"
'ouverture du Recordset
objRSFUNCTIONSiteATraiter.Open strRequeteFUNCTIONSiteATraiter, objConnect, adOpenForwardOnly, adLockReadOnly
%>
<%
'fermeture des objets
set objRSFUNCTIONSiteATraiter = nothing
END FUNCTION
'########## Fin FUNCTION ##########
'########## FUNCTION de catno a catnom ##########
FUNCTION intCat_to_strCat (intNoCat)
DIM objRSCatSelect, strRequeteCat, nocatmere
nocatmere = left(intnocat, instr(intnocat, "-"))
set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open strDBDSN
'on determine le nom de la categorie
set objRSCatSelect = Server.CreateObject("ADODB.Recordset")
'Requete
strRequeteCat = "Select nom from categories where nocat = '"&intNoCat&"' or nocat = '" &nocatmere& "' order by nocat;"
'ouverture du Recordset
objRSCatSelect.Open strRequeteCat, objConnect, adOpenForwardOnly, adLockReadOnly
intCat_to_strCat = ""
WHILE NOT objRSCatSelect.EOF
intCat_to_strCat = intCat_to_strCat & objRSCatSelect("nom")
objRSCatSelect.MoveNext
IF NOT objRSCatSelect.EOF THEN intCat_to_strCat = intCat_to_strCat & "\"
WEND
'on ferme l'objet
objRSCatSelect.close
objConnect.close
END FUNCTION
'########## Fin FUNCTION ##########
IF intChoixSiteAEffacer = "" THEN
%>
Choix du site à effacer
<%
ELSE
IF strEfface = 0 THEN
'Appel de la fonction mettant les donnees de la table dans des variables
set objRSPrendreDonnees = Server.CreateObject("ADODB.Recordset")
'Requete
strRequetePrendreDonnees = "Select * from sitesacceptes where id = "& intChoixSiteAEffacer &" ;"
'ouverture du Recordset
objRSPrendreDonnees.Open strRequetePrendreDonnees, objConnect, adOpenForwardOnly, adLockReadOnly
'On prend les donnees de la table temporaire et on les deposes dans des variables
strSiteNom = objRSPrendreDonnees("nom")
strSiteURL = objRSPrendreDonnees("url")
strSiteDescrip = objRSPrendreDonnees("description")
intSiteCat = objRSPrendreDonnees("nocat")
strCatNom = intCat_to_strCat(intSiteCat)
strMotscles = objRSPrendreDonnees("motscles")
strSiteEmail = objRSPrendreDonnees("email")
intCotation = objRSPrendreDonnees("Cote")
strDateheure = objRSPrendreDonnees("Dateheure")
set objRSPrendreDonnees = nothing
%>
Effacement du site dans l'annuaire
Nom du site: <% = strSiteNom %>
Adresse Internet du site: <% = strSiteURL %>
Brève description: <% = strSiteDescrip %>
Catégorie: <% = strCatNom %>
Mots clés: <% = strMotscles %>
E-mail: <% = strSiteEmail %>
Cotation: <% = intCotation %>
Date d'entrée: <% = strDateheure %>
<%
ELSE
'Creation d'un objet
set objRSFUNCTIONSiteATraiter = Server.CreateObject("ADODB.Recordset")
'Requete
strRequeteFUNCTIONSiteATraiter = "Delete * from sitesacceptes where id = "&intChoixSiteAEffacer&";"
'ouverture du Recordset
objRSFUNCTIONSiteATraiter.Open strRequeteFUNCTIONSiteATraiter, objConnect, adOpenDynamic , adLockOptimistic
'fermeture des objets
set objRSFUNCTIONSiteATraiter = nothing
'### Decremente le nombre de site dans la categorie ###
'Creation d'un objet
set objRSFUNCTIONAjusteNbCat = Server.CreateObject("ADODB.Recordset")
'Requete
intSiteCat = left(intSiteCat, instr(intSiteCat, "-"))
strRequeteFUNCTIONAjusteNbCat = "Select * from categories where nocat = '"&intSiteCat&"' ;"
'ouverture du Recordset
objRSFUNCTIONAjusteNbCat.Open strRequeteFUNCTIONAjusteNbCat, objConnect, adOpenDynamic, adLockOptimistic
IF objRSFUNCTIONAjusteNbCat("compteur") <> 0 THEN objRSFUNCTIONAjusteNbCat("compteur") = objRSFUNCTIONAjusteNbCat("compteur") - 1
objRSFUNCTIONAjusteNbCat.Update
'fermeture des objets
set objRSFUNCTIONAjusteNbCat = nothing
%>
<%
END IF
END IF
'########## Fin traitement du Site ##########
'Fermeture de la BD
set objConnect = nothing
%>