Discussion :

[sleeg]

Bonjour,

Je voudrais pouvoir lister des vidéos insérées sur mon site web par un utilisateur qui, lorsqu'il rentre les infos de la vidéos, à le choix entre plusieurs catégories.

Je voudrais maintenant que sur la page de sélection des vidéos, les liens soient générés et triés selon la catégorie avec à chaque fois le titre de la catégorie comme espace.

EX:
Catégorie1
Vid10
Vid13
Vid14
Catégorie2
Vid26
Vid32
Vid34
Catégorie3
Vid21
Vid22
Vid23

etc...

Pour le moment je n'ai réussi qu'à trier mes vidéos par catégories, sans pouvoir séparer les vidéos par le nom de la catégorie, comme dans l'exemple plus haut...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
<%
Set rs = Server.CreateObject("ADODB.Recordset")
stmt= "SELECT * FROM Videos JOIN Categories ON Videos.VidCat = Categories.CatID ORDER BY VidCat;"
rs.Open stmt, Application("ConnX"),3,1,1
IF NOT rs.EOF THEN
	Do until rs.EOF
		Response.Write "<tr>" & vbCRLF
		Response.Write "<td align=center><a href=""videos-read.asp?id="& rs("VidID") &""">"& rs("VidTit") &"</a></td>" & vbCRLF
		Response.Write "</tr>" & vbCRLF
		rs.MoveNext
	Loop
END IF
 
rs.Close
set rs=Nothing
%>

Quelqu'un pour m'aider??

Merci d'avance!

[roro06]

Bonjour

Bel exercice !

Il faut gérer la rupture par catégorie dans ta boucle do...loop : Si la catégorie correspond à celle de l'enregistrement précédent, on ne fait rien, sinon, on affiche le libellé de la catégorie. Penser à mémoriser la catégorie à chaque itération.

[sleeg]

Ok, je vois plus ou moins la ce dont tu me parles mais je ne vois pas comment je peux créer des ruptures, je ne maitrise pas les conditions dans les boucles... Pourrais-tu être plus explicite?

[roro06]

Un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Memoriser la categorie
cat=""

IF NOT rs.EOF THEN
    Do until rs.EOF
                if cat=rs("catId") then
                   response.write("<td>" & rs("catTit") & "</td>")
                end if  
        Response.Write "<tr>" & vbCRLF
        Response.Write "<td align=center><a href=""videos-read.asp?id="& rs("VidID") &""">"& rs("VidTit") &"</a></td>" & vbCRLF
        Response.Write "</tr>" & vbCRLF
                ' Memoriser la categorie
                cat=rs("catId")
        rs.MoveNext
    Loop
END IF

(De mémoire, mais ca ne doit pas en être loin)

[sleeg]

C'est une très belle avancée, merci roro06. Toutefois ce n'est pas encore cela

1. Les catégories s'affichent au dessus de chaque record (de chaque lien)
2. Sauf pour le premier record de la catégorie, la catégorie ne s'affiche pas...

Je dois maintenant trouver le moyen de faire que si c'est la premier record de tous les CatID identiques ajouter une ligne avec le titre de la catégorie...

Un autre moyen plus facile serait de créer un nombre de requête identique à mon nombre de catégorie avec la clause WHERE, mais je voudrais quand même trouver la solution voulue, car si j'ajoute une nouvelle catégorie plus tard par exemple, je devrais remodifier cette page. C'est une grosse prise de tête mais assez intéressante.

Vos suggestions sont les bienvenues.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<%
Cat = ""
Set rs = Server.CreateObject("ADODB.Recordset")
stmt= "SELECT * FROM Videos JOIN Categories ON Videos.VidCat = Categories.CatID ORDER BY VidCat;"
rs.Open stmt, Application("ConnX"),3,1,1
IF NOT rs.EOF THEN
	Do until rs.EOF
		IF cat = rs("CatID") THEN
			response.write"<tr><td>" & rs("CatNameFR") & "</td></tr>"
		END IF
		Response.Write "<tr>" & vbCRLF
		Response.Write "<td align=center><a href=""videos-read.asp?id="& rs("VidID") &""">"& rs("VidTit") &"</a></td>" & vbCRLF
		Response.Write "</tr>" & vbCRLF
		Cat = rs("CatID")
		rs.MoveNext
	Loop
END IF
 
rs.Close
set rs=Nothing
%>

[alfab1000]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<%
		IF cat <> rs("CatID") THEN
			response.write"<tr><td>" & rs("CatNameFR") & "</td></tr>"
		END IF

[roro06]

IF cat <> rs("CatID") THEN

Bien vu, évidemment

[sleeg]

Magnifique !!!

Merci pour votre aide précieuse, roro06 et alfab1000!