1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| PROCEDURE Actualiser()
ImageArticle est une chaîne
ZoneRépétéeSupprimeTout(ZoneRépétéeArticle1)
SI SQLConnecte(Server,DBUser,DBPsw,Database,"MySQL") <> 0 ALORS
SQLExec("SELECT DISTINCT article.IDArticle, article.TitreArticle, article.IDImageArticle FROM article, categoriearticle WHERE article.IDArticle = categoriearticle.IDArticle AND categoriearticle.IDCategorie = 2 AND article.EstActif = 1 ORDER BY categoriearticle.Rang ASC, article.IDArticle DESC LIMIT 4", "REQ1")
TANTQUE SQLAvance("REQ1") = 0
ImageArticle = ""
SQLExec("SELECT ContenuMedia FROM media WHERE IDMedia = "+SQLLitCol("REQ1", 3)+"", "REQ2")
TANTQUE SQLAvance("REQ2") = 0
ImageArticle = ComplèteRep(RepImages) + SQLLitCol("REQ2", 1)
FIN
SQLFerme("REQ2")
ZoneRépétéeAjouteLigne(ZoneRépétéeArticle1,UTF8VersChaîne(SQLLitCol("REQ1", 2)),ImageArticle,SQLLitCol("REQ1", 1))
FIN
SQLFerme("REQ1")
FIN
SQLDéconnecte() |
Partager