Ah popopo ... Les Popopotes

<% StrQry ="SELECT * FROM QRY_BASE WHERE ID < 99;" 'ouverture du Record Set ObjRS pour lecture set objRS = server.createObject("ADODB.Recordset") objRS.cursorlocation = aduseserver 'aduseserver (RS connect),aduseclient (disconnect) objRS.cursortype = adopenforwardonly 'adopenkeyset (ins),adopenforwardonly (lect) objRS.locktype = adlockreadonly 'adlockoptimistic (ins),adlockreadonly (lect) objRS.Open StrQry, ObjCONN,,, adCmdText 'adcmdtext (SQL QRY), adcmdtable (Table) %> <% 'parcourt l'ensemble des Records If Not ObjRS.EOF Then ObjRS.MoveFirst iFieldCount = ObjRS.Fields.Count - 1 CountResult=1 Do While Not ObjRS.EOF %> <% 'va sur le record suivant ObjRS.MoveNext CountResult=CountResult + 1 'compte le nombre de resultat Loop %>

Nom	Surnon	Nb Cx	Dernière Connexion	E-Mail
"><%=ObjRS("NOM")%>	<%= ObjRS("SURNOM") %>	<%= ObjRS("NB_SESSIONS") %>	<%= ObjRS("LAST_SESSION") %>	<% if len(ObjRS("EMAIL")) > 0 then EMAIL_All=EMAIL_ALL & ObjRS("EMAIL") &";" %> ?subject=Popopote Land&body=Cher Popopote ..."> <% else %>   <% end if%>
Pour voir la Popo Fiche cliquer sur le nom, Pour envoyer un Popo Mail cliquer dans la dernière colonne (en face du Nom) ..., Pour envoyer un E-Mail à l'ensemble des Popopotes cliquer à droite ...

<% 'Ferme le RecordSet objRS.Close Set objRS = Nothing %> <% ObjConn.Close Set ObjConn = Nothing %>