<%
on error resume next
'########## Declaration/Definition des variables ##########
'Objet de connexion, recordset
'Determine le top de la cotation
DIM intCotation
intCotation = 5
'## variables provenant du formulaire ##
'Si = "" alors on affiche le combo-box des sites a traiter
'Si = 1 alors on affiche le site a traiter + cotation
'Si = 2 alors on traite le site en le mettant dans la bonne table + date + cotation
DIM strChoixSiteATraiter
strChoixSiteATraiter = Request.Form("strchoixSiteATraiter")
IF strChoixSiteATraiter = "" THEN strChoixSiteATraiter = Request.QueryString("strchoixSiteATraiter")
DIM intSiteCat
intSiteCat = Request.Form("intSiteCat")
'si on l'efface, cette variable <> ""
DIM strSiteAEffacer
strSiteAEffacer = Request.Form("strSiteAEffacer")
'Cote donne par l'admin pour le site - provient du formulaire
DIM strCote
strCote = Request.Form("strCote")
'ID du site selectionner
DIM strID
strID = Request.Form("strID")
IF strID = "" THEN strID = Request.QueryString("strID")
'Nom du site
DIM strSiteNom
strSiteNom = Request.Form("strSiteNom")
'Adresse URL du site
DIM strSiteURL
strSiteURL = Request.Form("strSiteURL")
'Description du site
DIM strSiteDescrip
strSiteDescrip = Request.Form("strSiteDescrip")
'Categorie du site
DIM strSiteCat
strSiteCat = Request.Form("strSiteCat")
'10 mots cles
DIM strMotscles
strMotscles = Request.Form("strMotscles")
'email du webmaster
DIM strSiteEmail
strSiteEmail = Request.Form("strSiteEmail")
'## Fin variables formulaire ##
'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 temporaire et cree un combo-box ##########
FUNCTION SiteATraiter (strNomVar)
IF strNomVar = "" THEN strNomVar = "strNomVar"
'Creation d'un objet
set objRSFUNCTIONSiteATraiter = Server.CreateObject("ADODB.Recordset")
'Requete
strRequeteFUNCTIONSiteATraiter = "Select nom, id from sitestemporaire order by id;"
'ouverture du Recordset
objRSFUNCTIONSiteATraiter.Open strRequeteFUNCTIONSiteATraiter, objConnect, adOpenForwardOnly, adLockReadOnly
%>
<%
'fermeture des objets
set objRSFUNCTIONSiteATraiter = nothing
END FUNCTION
'########## Fin FUNCTION ##########
'########## FUNCTION de cotation du site ##########
FUNCTION Cotation (strNomVar)
IF strNomVar = "" THEN strNomVar = "strNomVar"
%>
<%
END FUNCTION
'########## Fin FUNCTION ##########
'########## FUNCTION de catno a catnom ##########
FUNCTION intCat_to_strCat (intNoCat)
DIM objRSCatSelect, strRequeteCat
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&"' ;"
'ouverture du Recordset
objRSCatSelect.Open strRequeteCat, objConnect, adOpenForwardOnly, adLockReadOnly
intCat_to_strCat = objRSCatSelect("nom")
'on ferme l'objet
objRSCatSelect.close
objConnect.close
END FUNCTION
'########## Fin FUNCTION ##########
'Si la cotation est vide, on reaffiche le site
IF strCote = "nogo" and strSiteAEffacer = "" THEN strchoixSiteATraiter = "1"
'########## Debut traitement du Site ##########
SELECT CASE strChoixSiteATraiter
'On presente le combo-box afin de determiner quel site on doit traiter
CASE ""
%>
Choix du site à traiter
Retour -> Gestion
<%
'On a le site a traiter, maintenant on presente le site + option de cotation en formulaire
CASE 1
'Appel de la fonction mettant les donnees de la table dans des variables
'PrendreDonnees (strID)
set objRSFUNCTIONPrendreDonnees = Server.CreateObject("ADODB.Recordset")
'Requete
strRequeteFUNCTIONPrendreDonnees = "Select * from sitestemporaire where id = "& strid &" ;"
'ouverture du Recordset
objRSFUNCTIONPrendreDonnees.Open strRequeteFUNCTIONPrendreDonnees, objConnect, adOpenForwardOnly, adLockReadOnly
'On prend les donnees de la table temporaire et on les deposes dans des variables
strSiteNom = objRSFUNCTIONPrendreDonnees("nom")
strSiteURL = objRSFUNCTIONPrendreDonnees("url")
strSiteDescrip = objRSFUNCTIONPrendreDonnees("description")
intSiteCat = objRSFUNCTIONPrendreDonnees("nocat")
strSiteCat = intCat_to_strCat (intSiteCat)
strMotscles = objRSFUNCTIONPrendreDonnees("motscles")
strSiteEmail = objRSFUNCTIONPrendreDonnees("email")
strID = objRSFUNCTIONPrendreDonnees("ID")
set objRSFUNCTIONPrendreDonnees = nothing
%>
Acceptation de site dans l'annuaire
* Attention, cette action est irréversible
<%
'On a le site + la cotation, maintenant on le transfert dans la bonne table en inserant la date + cotation + infos et on l'efface de l'autre table
CASE "2"
'Si strSiteAEffacer = "" alors on ajoute le site dans l'annuaire sinon on l'efface
IF strSiteAEffacer = "" THEN
'########## Ajout du site dans la table finale ##########
set objRSSiteATraiter = Server.CreateObject("ADODB.Recordset")
'Ouverture de la table avec execution de la requete
objRSSiteATraiter.Open "sitesacceptes", objConnect, adOpenForwardOnly, adLockOptimistic
objRSSiteATraiter.AddNew
objRSSiteATraiter("nom") = strSiteNom
objRSSiteATraiter("url") = strSiteURL
objRSSiteATraiter("description") = strSiteDescrip
objRSSiteATraiter("nocat") = intSiteCat
objRSSiteATraiter("motscles") = strMotscles
objRSSiteATraiter("email") = strSiteEmail
objRSSiteATraiter("dateheure") = now
objRSSiteATraiter("cote") = strCote
objRSSiteATraiter.Update
set objRSSiteATraiter = nothing
'########## Fin ajout ##########
'########## Incremente la categorie de 1 ##########
'modifie le id de la cat afin davoir seulement la partie xx- du la cat (ie cat mere)
nocat = left(intSiteCat, instr(intSiteCat, "-"))
set objRSCatInc = Server.CreateObject("ADODB.Recordset")
strRequeteCatInc = "Select compteur, nom from categories where nocat = '"& nocat &"' ;"
objRSCatInc.Open strRequeteCatInc, objConnect, adOpenForwardOnly, adLockOptimistic
objRSCatInc("compteur") = objRSCatInc("compteur") + 1
objRSCatInc.Update
set objRSCatInc = nothing
'########## Fin de l'incrementation ##########
END IF 'strSiteAEffacer <> ""
'########## Effacement du site dans la table temporaire ##########
set objRSSiteAEffacer = Server.CreateObject("ADODB.Recordset")
'Requete pour effacer le site en question
strRequeteSiteAEffacer = "DELETE * from sitestemporaire where id = "& strID &" ;"
'Ouverture de la table avec execution de la requete
objRSSiteAEffacer.Open strRequeteSiteAEffacer, objConnect, adOpenDynamic, adLockOptimistic
set objRSSiteAEffacer = nothing
'########## Fin effacement ##########
%>
<%
END SELECT
'########## Fin traitement du Site ##########
'Fermeture de la BD
set objConnect = nothing
%>