<% fields=Array("startdate", "starttime", "description", "xuser", "notify1", "notify2", "notify3","member") criteria=Array("startdate", ">", xdate, " AND (", "notify1", ">", "0", " OR ", "notify2", ">", "0", " OR ", "notify3", ">", "0", ")") dbselect fields, "events", criteria, "" rs.open sql, cn, 1, 3 response.write xdate & "
" do while not rs.eof messagebody="" date1=dateadd("d", -(rs("notify1")), cFecha(rs("startdate"))) date2=dateadd("d", -(rs("notify2")), cFecha(rs("startdate"))) date3=dateadd("d", -(rs("notify3")), cFecha(rs("startdate"))) 'response.write date1 & "
" & date2 & "
" & date3 & "
" xdate=cFecha(xdate) if datediff("d",xdate,date1)=0 or datediff("d",xdate,date2)=0 or datediff("d",xdate,date3)=0 then set rsu = cn.execute("SELECT email FROM users WHERE login='" & rs("xuser") & "'") fields=Array() labels=Array() messagebody=lg_wdname & ": " & lg_eventnotification & "

" messagebody=messagebody & lg_description & ": " & rs("description") & "
" messagebody=messagebody & lg_startdate & ": " & cFecha(rs("startdate")) & "
" messagebody=messagebody & lg_starttime & ": " & cHora(rs("starttime")) & "
" messagebody=messagebody & lg_staffmember & ": " & rs("member") mail sysemail, rsu("email"), "", "", lg_wdname & ": " & lg_eventnotification, messagebody, fields, labels, 1 end if rs.movenext loop rs.close olddate=dateadd("d", -7, xdate) criteria=Array("startdate", "<", dbFecha(olddate), "") dbdelete "events", criteria cn.execute(sql) %>