<%
ustawiać conn=Server.CreateObject ("ADODB.Connection")
conn. Provider= " Microsoft.Jet.OLEDB.4.0 "
conn. Otwierać (Server.Mappath ("baza danych \ MonthlyReports.mdb"))
ustawiać rs = Server.CreateObject ("ADODB.recordset")
rs. Otwarty "WYBRANY MyUsers OD ReportTable DOKĄD MonthOfReport LUBIĆ "Czerwiec" I YearOfReport jak "2010" rozkaz MyUsers", conn
Ciemnawy Msg
do rs.EOF
Msg = Msg & rs ("MyUsers") &", "
rs.MoveNext
pętla
'usuwać the ostatni przecinek
Msg = opuszczać (Msg, len (Msg) - 2)
response.write "The następujący użytkownik biedak przedkładać ich raport w zeszłym miesiącu: " & Msg
%>
|