<%
conn=Server.CreateObject („ADODB.Connection“) einstellen
Anschl. Provider= " Microsoft.Jet.OLEDB.4.0 "
Anschl. Öffnen (Server.Mappath („Datenbank \ MonthlyReports.mdb“))
rs = Server.CreateObject („ADODB.recordset“) einstellen
rs. Geöffnetes „AUSERWÄHLTES MyUsers VON ReportTable, IN DEM MonthOfReport „Juni“ UND YearOfReport wie „2010“ Auftrag durch MyUsers“ MÖGEN, Anschl.
Schwache Msg
bis rs.EOF tun
Msg = Msg u. rs („MyUsers“) u.“, „
rs.MoveNext
Schleife
'das letzte Komma entfernen
Msg = verließen (Msg, len (Msg) - 2)
response.write „die folgenden Benutzer haben nicht ihre Reports letzter Monat eingereicht: “ U. Msg
%>
|