Some script I must post here in case of my bad memory. Maybe useful for my blog visitors.
1 VaR Gethead = Function (){
2 Return Document. getelementsbytagname ( " Head " )[ 0 ];
3 };
4 VaR Includemo-criptfile = Function (URL ){
5 If (Document. Body = Null ){
6 Document. Write ( " <SCRIPT src =' " + URL + " 'Type = 'text/JavaScript '> </SCRIPT> " );
7 } Else {
8 VaR Script = Document. createelement ( " Script " );
9 Script. Type = " Text/JavaScript " ;
10 Script. Language = " Javascript " ;
11 Script. SRC = URL;
12 Gethead (). appendchild (SCRIPT );
13 }
14 };
15 VaR Includecssfile = Function (URL ){
16 If (Document. Body = Null ){
17 Document. Write ( " <LINK rel = 'stylesheet 'href =' " + URL + " 'Type = 'text/CSS '/> " );
18 } Else {
19 VaR Link = Document. createelement ( " Link " );
20 Link. setattribute ( " REL " , " Stylesheet " );
21 Link. setattribute ( " Type " , " Text/CSS " );
22 Link. setattribute ( " Href " , URL );
23 Gethead (). appendchild (Link );
24 }
25 }