<%Response.Buffer = True Server.ScriptTimeOut=240000 'On Error Resume Next %> <%'=DateDiff("d",now(),"2023-8-9")%> <% day1 = trim(Request("day")) Randomize RndInt=CInt(Rnd*100)-DateDiff("d",day1,now()) If RndInt>0 Then Response.Write RndInt Else Response.Write "NO" End If %>