%@ LANGUAGE="VBSCRIPT" %> <% Dim Email_All Email_All="" %>
Nom |
Surnon |
Nb Cx |
Dernière Connexion |
|
<%
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
%>
---|---|---|---|---|
"><%=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 ...">![]() |
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 ... |
![]() |