if day(now())=20 thenby=Month(now())set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3rs.Open "select * from [admin] where [by]="&by&" order by id desc",conn,1,1if rs.recordcount=0 thenconn.Execute "update [admin] set [by]="&by&",[bylrsl]=0,[bycysl]=0 "end if...