var asid = "";
var enc = "utf8";

function swMenu(torf){
  var menu_obj = retObj("menu");
  var set_str = (torf)? "block" : "none";
  menu_obj.style.display = set_str;
}

function swMini(torf){
  var menu_obj = retObj("mini");
  var set_str = (torf)? "block" : "none";
  menu_obj.style.display = set_str;
}

function retObj(id){
  if(document.all){
    return document.all(id);
  }
  else if(document.getElementById){
    var ret_o = null;
    return document.getElementById(id);
  }
  return null;
}

function setID(){
  var fm = document.forms["ctrl"];
  asid = fm.elements["asid"].value;

  if(fm.elements["enc"][1].checked){
    enc = "utf8";
  }
  else if(fm.elements["enc"][2].checked){
    enc = "sjis";
  }
  else{
    enc = "";
  }

  swMini(0);
  dataSet();
}

function dataSet(){
  var fm = document.forms["ctrl"];
  var chk = false;
  var idx = 0;
  while(fm.elements["ca"][idx]){
    if(fm.elements["ca"][idx].checked){
      chk = true;break;
    }
    idx++;
  }
  if(!chk){
    alert("No categories are chosen.");
  }
  else{
    selData();
    swMenu(0);
  }
}

function selData(){
  this.data = [];
  var ck_str = "";

  var fm = document.forms["ctrl"];
  var idx = 0;
  var shadow = 0;
  //for(ii=0;ii < len;ii++){
  while(fm.elements["ca"][idx]){
    var ii = fm.elements["ca"][idx].id;
    ii = ii.substring(2,ii.length);
    ii = parseInt(ii);

    if(fm.elements["ca"][idx].checked){
      //alert(fm.elements["ca"][idx].id);
      /*
      shadow = 0;
      if((ii >= 0 && ii < 17) || (ii >= 18 && ii < 28)){
	shadow = 1;
      }
      else if((ii >= 41 && ii < 58)){
	shadow = 2;
      }

      if(ii == 27){
	if(!this.adult){
	  if(confirm("Are you over 20?")){
	    this.adult = 1;
	  }
	  else{
	    this.adult = 2;
	  }
	}
	if(this.adult !== 1){
	  idx++;
	  continue;
	}
      }
      */
    }
    else{
      if(ck_str.length > 0){
	ck_str += ",";
      }
      ck_str += ii;
    }
    idx++;
  }

  var blp_text = "<a href=\"http://www.randomcatalog.com/\">RandomCatalog</a><br>\n<script type=\"text/javascript\"><!--\nvar rpamzcom_id = \"";
  blp_text += asid;
  blp_text += "\";\nvar rpamzcom_enc = \"";
  blp_text += enc;
  blp_text += "\";\nvar rpamzcom_deny = [";
  blp_text += ck_str;
  blp_text += "];\n//-->\n</script>\n<script type=\"text/javascript\" src=\"http://www.randomcatalog.com/js/parts3.js\"></script>\n";
  
  //var blp_obj = retObj("blp_text");
  //blp_obj.innerHTML = blp_text;
  document.forms["ctrl"].elements["blp_text"].value = blp_text;
  
}


function chkall(val,aa,zz){
  var idx = 0;
  var tmp_obj = null;
  for(ii=aa;ii <= zz;ii++){
    //fm.elements["ca"][ii].checked = val;
    tmp_obj = retObj("ca"+ii);
    tmp_obj.checked = val;
  }

}

function swBlp(){
  //var blp_obj = retObj("blp_text");
  //var blp_text = blp_obj.innerHTML;

  var blp_text = document.forms["ctrl"].elements["blp_text"].value;
  var ifr_win = window.blp_ifr.window;
  //ifr_win.location.href = "blank.html";
  ifr_win.document.innerHTML = "";
  blp_text = "<html><meta http-equiv=\"content-type\" content=\"text/html; charset=EUC-JP\"><body style=\"text-align:center;font-size:10pt;\">"+blp_text;
  blp_text += "</body></html>";
  ifr_win.document.write(blp_text);

}
