dim mon(11), address, dae mon(0) = "JAN" mon(1) = "FEB" mon(2) = "MAR" mon(3) = "APR" mon(4) = "MAY" mon(5) = "June" mon(6) = "July" mon(7) = "AUG" mon(8) = "SEP" mon(9) = "OCT" mon(10) = "NOV" mon(11) = "DEC" dae = day(date) if hour(time) >= 13 then dae = dae else dae = cstr(cint(dae) - 1) end if if len(dae) = 1 then dae = "0" & dae else dae = dae end if address = "http://www.iransetup.com/Security/" & dae & mon(month(date) - 1) & year(date) & ".html" document.write("