ESPACE MANNEQUINS ESPACE PROFESSIONNELS
Bienvenue au premier espace virtuel réservé aux mannequins Marocains.
- Vous êtes Marocaine ?
- Vous rêvez de faire carrière de mannequin ?
- Vous pensez avoir le profil ?
Grâce à cet espace, vous pouvez réaliser votre rêve		 La Marocaine Casting est conçu pour répondre aux attentes des professionnels de la production cinématographique, télévisuelle, théâtrale et musicale, de la publicité, du mannequinât.
etc.

<% dim i %> <% Dim rs, iPage %> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize=10 rs.CursorType = 3%> <%'-------définition de la sélection TOUS les lots--------- rs.Open "Select * from mannequins where validation=1 order by date desc" , CnnSimple%> <%'-------gestion d'une éventuelle table vide-------------------------------- if rs.eof=true then%> Liste vide <%else%> <%i=0 Do while not rs.EOF rs.MoveNext i=i+1 Loop%>
Annuaire des Mannequins : Total : <%= i %> <%'-------------------affichage des résultats dans un tableau---------------------%> <% if Request.QueryString("iPage")="" then iPage = 1 else iPage = cint(Request.QueryString("iPage")) end if %> <% rs.AbsolutePage = iPage %> Membres

<% Dim iNumLigne Do while not rs.EOF and iNumLigne < rs.PageSize %> <%rs.MoveNext iNumLigne = iNumLigne + 1 loop%> <% i=iPage%>
CODE : <%=rs("code")%>
PRENOM : "> <%=rs("prenom")%>
 TAILLE : <%=rs("taille")%>
PAYS : <%=rs("pays")%>
<% if ipage > 1 then %> <% else %> <% end if %> <%For i = ipage To iPage+10 %> <% if (i <= rs.PageCount) then %> <%end if %> <%Next%> <% if (ipage <% else %> <% end if %>
First Back First Back |<%=i%> Next Last Next Last
<%'-------fin de la gestion de la table vide----------------------------------%> <%end if%> <%'-------fermeture de la connection et du recordset---------- rs.Close Set rs = Nothing CnnSimple.Close Set CnnSimple = Nothing%>