Processing table: prc.make_expire




 
If:
 

 
 
Then:
declare extern Expire

 
If:
 

 
 
Then:
Expire="<meta http-equiv=\"Expires\" content=\""

 
If:
 

 
 
Then:
ed(10,mdyy/)=@td-"1";et=@tm;dw=dow(ed,"1")

 
If:
 

 
 
Then:
dim mon(12);

 
If:
 

 
 
Then:
mon("1")="Jan";mon("2")="Feb";mon("3")="Mar";mon("4")="Apr"

 
If:
 

 
 
Then:
mon("5")="May";mon("6")="Jun";mon("7")="Jul";mon("8")="Aug"

 
If:
 

 
 
Then:
mon("9")="Sep";mon("10")="Oct";mon("11")="Nov";mon("12")="Dec"

 
If:
 

 
 
Then:
mn(2,.0)=mid(ed,"1","2")

 
If:
 

 
 
Then:
dn=mid(ed,"4","2")

 
If:
 

 
 
Then:
yn=mid(ed,"7","4")

 
If:
 

 
 
Then:
we=dw{", "&dn&"-"&mon(mn)&"-"&yn&" "&et&" GMT"

 
If:
 

 
 
Then:
Expire=Expire&we&"\">"

 
If:
 

 
 
Then:
end

If:
 

 
 
Then:
Expire="";end