1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
<% vastgestelde conn=Server.CreateObject („ADODB.Connection“) conn. Provider= " Microsoft.Jet.OLEDB.4.0 " conn. Open (Server.Mappath („gegevensbestand \ MonthlyReports.mdb“)) reeks rs = Server.CreateObject („ADODB.recordset“) rs. Open „UITGEZOCHTE MyUsers VAN ReportTable WAAR MonthOfReport ZOALS „Juni“ EN YearOfReport als „2010“ orde door MyUsers“, conn Schemerige Msg doe tot rs.EOF Msg = Msg & rs („MyUsers“) &“, „ rs.MoveNext lijn 'verwijder de laatste komma Msg = weggegaan (Msg, len (Msg) - 2) response.write de „Volgende gebruikers hebben hun rapporten niet vorige maand voorgelegd: “ & Msg %>
1:
rs. Open „Uitgezochte Verschillende MyUsers van ReportTable waar MyUsers niet in (UITGEZOCHTE Verschillende MyUsers VAN ReportTable WAAR MonthOfReport ZOALS „Juni“ EN YearOfReport als „2010“) orde door MyUsers“, conn