<%@ LANGUAGE="VBSCRIPT" %> <% Dim Email_All Email_All="" %>

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 ...">Envoyer un courrier électronique <% 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 ...

Envoyer un courrier électronique
<% 'Ferme le RecordSet objRS.Close Set objRS = Nothing %> <% ObjConn.Close Set ObjConn = Nothing %>