function est(){
    document.write("2002-2004");
}
/*
if (document.images) {
img1 = new Image(); img1.src = "img/01_b.gif";
img2 = new Image(); img2.src = "img/02_b.gif";
img3 = new Image(); img3.src = "img/03_b.gif";
img4 = new Image(); img4.src = "img/04_b.gif";
img5 = new Image(); img5.src = "img/05_b.gif";
img6 = new Image(); img6.src = "img/06_b.gif";
img7 = new Image(); img7.src = "img/07_b.gif";
}
*/
function setImage(img, image) {
if (img) {
img.src = image;
}
}

function myEnter(){
   myPassWord = prompt("どうしても,みたいですか？ホントにホント？しょうがないなぁ･･それじゃ,パスワードをどうぞ","");
   if ( myPassWord == String.fromCharCode(98,117,105,108,100,101) )
      location.href = String.fromCharCode(46,46,47,105,110,102,111,47,109,121)+".htm";
   else alert( "パスワードが違います､あら残念" );
}



<!--HPB_SCRIPT_CODE_40
function _HpbShowObj(lId)
{
var ob;ob=new Array;
var appVer=parseInt(navigator.appVersion);
var isNC=(document.layers && (appVer >= 4));
var isIE=(document.all    && (appVer >= 4));
if (isNC)
{
w_str = "document." + lId;ob[lId] = eval(w_str);
if (!ob[lId]) ob[lId] = _HpbFindHiddenObj(document, lId);
if (ob[lId]) ob[lId].visibility = "show";
}
if (isIE)
{
w_str = "document.all.item(\"" + lId + "\").style";ob[lId] = eval(w_str);
ob[lId].visibility = "visible";
}
}
function _HpbFindHiddenObj(doc, lId)
{
for (var i=0; i < doc.layers.length; i++)
{
var w_str = "doc.layers[i].document." + lId;
var obj;obj=new Array;
obj[lId] = eval(w_str);
if (!obj[lId]) obj[lId] = _HpbFindHiddenObj(doc.layers[i], lId);
if (obj[lId]) return obj[lId];
}
return null;
}


<!--HPB_SCRIPT_CODE_40
function _HpbHideObj(lId)
{
var ob;ob=new Array;
var appVer=parseInt(navigator.appVersion);
var isNC=(document.layers && (appVer >= 4));
var isIE=(document.all    && (appVer >= 4));
if (isNC)
{
w_str = "document." + lId;ob[lId] = eval(w_str);
if (!ob[lId]) ob[lId] = _HpbFindShownObj(document, lId);
if (ob[lId]) ob[lId].visibility = "hide";
}
if (isIE)
{
w_str = "document.all.item(\"" + lId + "\").style";ob[lId] = eval(w_str);
ob[lId].visibility = "hidden";
}
}
function _HpbFindShownObj(doc, lId)
{
for (var i=0; i < doc.layers.length; i++)
{
var w_str = "doc.layers[i].document." + lId;
var obj;obj=new Array;
obj[lId] = eval(w_str);
if (!obj[lId]) obj[lId] = _HpbFindShownObj(doc.layers[i], lId);
if (obj[lId]) return obj[lId];
}
return null;
}