<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rs_categorie
Dim rs_categorie_numRows
Set rs_categorie = Server.CreateObject("ADODB.Recordset")
rs_categorie.ActiveConnection = MM_connexion_STRING
rs_categorie.Source = "SELECT * FROM categorie_personne"
rs_categorie.CursorType = 0
rs_categorie.CursorLocation = 2
rs_categorie.LockType = 1
rs_categorie.Open()
rs_categorie_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_categorie_numRows = rs_categorie_numRows + Repeat1__numRows
%>
BAZ'ART-Le coin des artistes
Recherche
par catégorie
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_categorie.EOF))
%>
<%
if i = 4 then
response.Write("
")
i = 0
end if
%>
<%
nom = left((rs_categorie.Fields.Item("intitule_categorie").Value),1)
nom = Ucase(nom)
titre = (rs_categorie.Fields.Item("intitule_categorie").Value)
taille = len(titre)-1
dlettre = Right((titre),taille)
delettre = LCase(dlettre)
intitule = nom & delettre
%>
