<% DateDuJour = now() Response.Write(right(cstr(DateDuJour),2)) ' tenir compte de l'éventuel décalage horaire ParisDate = DateAdd("h", +7, DateDuJour) Response.Write ParisDate jJour = Day(ParisDate) Response.Write jJour mMois = Month(ParisDate) aAnnee = Year(ParisDate) hHeure = Hour(ParisDate) Response.Write hHeure mMinute = Minute(ParisDate) Response.Write mMinute sSeconde = Second(ParisDate) If sSeconde < 30 Then Response.Redirect("j1/J1.htm") If sSeconde >= 30 Then Response.Redirect("j2/J1.htm") %>