<% OPTION EXPLICIT on error resume next %> <% '########## Declaration des variables ########## 'nom de la table dans le DSN, objet de connexion, recordset et requetes DIM objRSCatSelect, strRequeteCat, objRSSCatSelect, intNoCat, objConnect, objRSCat DIM strCatNom 'nom de la categorie DIM strCatDescrip 'description de la categorie DIM intCatCompteur 'compteur de categorie DIM strNomCat 'Nom de la sous categorie a afficher, provient du request.querystring() DIM strSiteNom 'Nom du site DIM strSiteURL 'URL du site DIM strSiteDescrip 'Description du site DIM strSiteCat 'Categorie DIM intSiteCote 'Cote du site 'Variables pour les sous-cat DIM objRSSCat, strRequeteSCat Dim iPageSize 'Grosseur de nos pages Dim iPageCount 'Le nombre de page total Dim iPageCurrent 'La page a montrer Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'var compteur 'Autres var DIM intPage, strQuery '########## Fin Declaration des variables ########## intNoCat = Request.QueryString("nocat") iPageSize = 10 '########## Function affichage des etoiles selon la cote ########## FUNCTION CoteImage (intCote, strPath) DIM i IF strPath = "" THEN strPath="images/cote/cote.gif" END IF 'Affiche le nombre d'image selon le intCote CoteImage = "" FOR i = 1 to intCote step 1 CoteImage = CoteImage & "" NEXT END FUNCTION '########## Fin affichage des etoiles ########## '########## FUNCTION - Affiche les Categories ########## FUNCTION AfficheCat () set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open strDBDSN set objRSCat = Server.CreateObject("ADODB.Recordset") 'Requete strRequeteCat = "Select * from categories where nocat like'%-' order by nom;" 'ouverture du Recordset objRSCat.Open strRequeteCat, objConnect, adOpenForwardOnly, adLockReadOnly Response.Write ("") WHILE NOT objRSCat.EOF Response.Write("") Response.Write ("") objRSCat.MoveNext 'affichage de la 2ieme colonne IF NOT objRSCat.EOF THEN Response.Write ("") objRSCat.MoveNext END IF Response.Write("") WEND Response.Write ("

"& objRSCat("nom") & " (" & objRSCat("compteur") & ")
") 'RS des sous-categories set objRSSCat = Server.CreateObject("ADODB.Recordset") 'Requete strRequeteSCat = "Select * from categories where nocat like '"& objRSCat("nocat") &"%' and nocat <> '"&objRSCat("nocat")&"' order by nocat ;" 'ouverture du Recordset objRSSCat.Open strRequeteSCat, objConnect, adOpenForwardOnly, adLockReadOnly 'Affichage des sous-cat WHILE NOT objRSSCat.EOF Response.Write ("" & objRSSCat("nom") & "") objRSSCat.MoveNext IF NOT objRSSCat.EOF THEN Response.Write (" / ") WEND 'Fermeture du RS ds sous-categories set objRSSCat = nothing Response.Write ("

") set objRSCat = nothing set objConnect = nothing END FUNCTION '########## Fin FUNCTION - affiche les categories ########## '########## FUNCTION - affiche contenu d'une categorie ########## FUNCTION AfficheSCat (intNoCat, iPageCurrent) set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open strDBDSN set objRSSCatSelect = Server.CreateObject("ADODB.Recordset") 'Requete strRequeteCat = "Select * from sitesacceptes where nocat like '"&intNoCat&"%' order by cote desc;" 'determine le nb de page et le nb de RS par page objRSSCatSelect.PageSize = iPageSize objRSSCatSelect.CacheSize = iPageSize 'ouverture du Recordset objRSSCatSelect.Open strRequeteCat, objConnect, adOpenStatic, adLockReadOnly 'la page ou l'on est ipagecount = objRSSCatSelect.PageCount iRecordsShown = 0 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 'On se positionne a la page voulu dans le RS objRSSCatSelect.AbsolutePage = iPageCurrent Response.Write("") Response.Write("") WHILE NOT objRSSCatSelect.EOF and iRecordsShown < iPageSize strSiteNom = objRSSCatSelect("nom") strSiteURL = objRSSCatSelect("url") strSiteDescrip = objRSSCatSelect("description") intNoCat = objRSSCatSelect("nocat") intSiteCote = objRSSCatSelect("cote") Response.Write("") Response.Write ("") Response.Write ("") Response.Write ("") objRSSCatSelect.MoveNext iRecordsShown = iRecordsShown + 1 WEND Response.Write ("

Site	Cote
"& strSiteNom & "	" & CoteImage (intSiteCote, "") & "
- "&strSiteDescrip&"

") IF Request.QueryString("nocat") <> "" THEN strQuery = "&nocat="& Request.QueryString("nocat") ELSE strQuery = "" END IF Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("

") If iPageCurrent > 1 Then Response.Write ("Précédant") ELSE Response.Write (" ") ' Above spacing is inside the If so we don't get it unless needed End If Response.Write ("

") If iPageCurrent < iPageCount Then Response.Write ("Suivant") ELSE Response.Write (" ") End If Response.Write ("

") set objRSSCatSelect = nothing set objConnect = nothing END FUNCTION '########## Fin FUNCTION - affiche des contenus des categories ########## IF intNoCat <> "" THEN 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 strNomCat = objRSCatSelect("nom") 'on ferme l'objet objRSCatSelect.close objConnect.close END IF intPage = Request.QueryString("page") IF intPage = "" THEN intPage = 0 %>

<% IF intNoCat = "" THEN %>Catégories<% ELSE Response.Write(strNomCat) END IF %>

<% IF intNoCat = "" THEN AfficheCat() ELSE call AfficheSCat(intNoCat, intPage ) END IF %>