sql= "select money,moneyall,sid from user order by sid"
set ras=conn.execute(sql)
DO while not ras.EOF
If Hour(Now())=20 And Minute(Now())=0 And Second(Now())=0 Then
conn.execute("update user set moneyall=ras(0) where sid="&ras(2)&"")
end if
ras.movenext
loop