<%
sub time_lock()
  dim tt,tim1,tim2,nh,tl:tl=0
  tt=objv7.web_var(web_config,11)
  if len(tt)<1 then tt="0:0"
  tim1=left(tt,instr(1,tt,":")-1)
  tim2=right(tt,len(tt)-instr(1,tt,":"))
  if not(isnumeric(tim1)) or not(isnumeric(tim2)) then exit sub
  tim1=int(tim1):tim2=int(tim2)
  if tim1=tim2 then exit sub
  if tim2=0 then tim2=24
  tim2=tim2-1
  nh=int(hour(now_time))
  if tim1>tim2 then
    if (nh>=tim1 and nh<=24) or (nh>=0 and nh<=tim2) then tl=1
  else
    if nh>=tim1 and nh<=tim2 then tl=1
  end if
  if tl=1 then call cookies_type("time_lock")
end sub
%>