function EConA(pText,pTagOptions,pRecip,pDom,pTld,pSub) {
  var ConProt;
  var ConAdd;
  var ConSub;
  var ConA;
  var Base;
  var ACode;
  var PCode;
  var CCode;
  var nothing;

  Base = 100;
  ACode = Base - 36;
  PCode = ACode - 18;
  CCode = PCode + 12;
  QCode = CCode + 5;
  ECode = QCode - 2;

  ConProt = String.fromCharCode(Base+9,Base-3,Base+5);
  ConProt += "lt";
  ConProt += "o";
  ConProt += String.fromCharCode(CCode);

  ConAdd = pRecip;
  ConAdd += String.fromCharCode(ACode);
  ConAdd += pDom;
  ConAdd += String.fromCharCode(PCode);
  ConAdd += pTld;

  if (pSub == nothing | pSub == "") {
    ConSub = "";
  }
  else {
    ConSub = String.fromCharCode(QCode);
    ConSub += "sub";
    ConSub += String.fromCharCode(Base+6,Base+1,Base-1);
    ConSub += "t";
    ConSub += String.fromCharCode(ECode);
    ConSub += pSub;
  }

  if (pText == "") {
    pText = ConAdd;
  }

  ConA = "<A HREF=\"" + ConProt + ConAdd + ConSub + "\" " + pTagOptions + ">" + pText + "</A>";

  document.write(ConA);
}