//*********************************************************
//*    Program:  SCEMailEncode.js
//*       Date:  06/2004
//*    Created:  Sys-Cor Technologies
//*  Copyright:  Copyright © 2004 by Sys-Cor Technologies
//*              San Diego, California
//*              All Rights Reserved - Not to be used
//*              without permission from Sys-Cor Technologies
//*              infor@sys-cor.com
//*********************************************************


function encodeVar(thisvar){
  var newvar = '';
  var i = 0;
  var len = thisvar.length;
  for (i=0; i < len; i++){
    if (thisvar.substr(i,1) == ':') {newvar = newvar + '&#58;';}
    if (thisvar.substr(i,1) == '_') {newvar = newvar + '&#95;';}
    if (thisvar.substr(i,1) == '.') {newvar = newvar + '&#46;';}
    if (thisvar.substr(i,1) == '@') {newvar = newvar + '&#64;';}
    if (thisvar.substr(i,1) == '0') {newvar = newvar + '&#48;';}
    if (thisvar.substr(i,1) == '1') {newvar = newvar + '&#49;';}
    if (thisvar.substr(i,1) == '2') {newvar = newvar + '&#50;';}
    if (thisvar.substr(i,1) == '3') {newvar = newvar + '&#51;';}
    if (thisvar.substr(i,1) == '4') {newvar = newvar + '&#52;';}
    if (thisvar.substr(i,1) == '5') {newvar = newvar + '&#53;';}
    if (thisvar.substr(i,1) == '6') {newvar = newvar + '&#54;';}
    if (thisvar.substr(i,1) == '7') {newvar = newvar + '&#55;';}
    if (thisvar.substr(i,1) == '8') {newvar = newvar + '&#56;';}
    if (thisvar.substr(i,1) == '9') {newvar = newvar + '&#57;';}

    if (thisvar.substr(i,1) == 'A') {newvar = newvar + '&#65;';}
    if (thisvar.substr(i,1) == 'B') {newvar = newvar + '&#66;';}
    if (thisvar.substr(i,1) == 'C') {newvar = newvar + '&#67;';}
    if (thisvar.substr(i,1) == 'D') {newvar = newvar + '&#68;';}
    if (thisvar.substr(i,1) == 'E') {newvar = newvar + '&#69;';}
    if (thisvar.substr(i,1) == 'F') {newvar = newvar + '&#70;';}
    if (thisvar.substr(i,1) == 'G') {newvar = newvar + '&#71;';}
    if (thisvar.substr(i,1) == 'H') {newvar = newvar + '&#72;';}
    if (thisvar.substr(i,1) == 'I') {newvar = newvar + '&#73;';}
    if (thisvar.substr(i,1) == 'J') {newvar = newvar + '&#74;';}
    if (thisvar.substr(i,1) == 'K') {newvar = newvar + '&#75;';}
    if (thisvar.substr(i,1) == 'L') {newvar = newvar + '&#76;';}
    if (thisvar.substr(i,1) == 'M') {newvar = newvar + '&#77;';}
    if (thisvar.substr(i,1) == 'N') {newvar = newvar + '&#78;';}
    if (thisvar.substr(i,1) == 'O') {newvar = newvar + '&#79;';}
    if (thisvar.substr(i,1) == 'P') {newvar = newvar + '&#80;';}
    if (thisvar.substr(i,1) == 'Q') {newvar = newvar + '&#81;';}
    if (thisvar.substr(i,1) == 'R') {newvar = newvar + '&#82;';}
    if (thisvar.substr(i,1) == 'S') {newvar = newvar + '&#83;';}
    if (thisvar.substr(i,1) == 'T') {newvar = newvar + '&#84;';}
    if (thisvar.substr(i,1) == 'U') {newvar = newvar + '&#85;';}
    if (thisvar.substr(i,1) == 'V') {newvar = newvar + '&#86;';}
    if (thisvar.substr(i,1) == 'W') {newvar = newvar + '&#87;';}
    if (thisvar.substr(i,1) == 'X') {newvar = newvar + '&#88;';}
    if (thisvar.substr(i,1) == 'Y') {newvar = newvar + '&#89;';}
    if (thisvar.substr(i,1) == 'Z') {newvar = newvar + '&#90;';}

    if (thisvar.substr(i,1) == 'a') {newvar = newvar + '&#97;';}
    if (thisvar.substr(i,1) == 'b') {newvar = newvar + '&#98;';}
    if (thisvar.substr(i,1) == 'c') {newvar = newvar + '&#99;';}
    if (thisvar.substr(i,1) == 'd') {newvar = newvar + '&#100;';}
    if (thisvar.substr(i,1) == 'e') {newvar = newvar + '&#101;';}
    if (thisvar.substr(i,1) == 'f') {newvar = newvar + '&#102;';}
    if (thisvar.substr(i,1) == 'g') {newvar = newvar + '&#103;';}
    if (thisvar.substr(i,1) == 'h') {newvar = newvar + '&#104;';}
    if (thisvar.substr(i,1) == 'i') {newvar = newvar + '&#105;';}
    if (thisvar.substr(i,1) == 'j') {newvar = newvar + '&#106;';}
    if (thisvar.substr(i,1) == 'k') {newvar = newvar + '&#107;';}
    if (thisvar.substr(i,1) == 'l') {newvar = newvar + '&#108;';}
    if (thisvar.substr(i,1) == 'm') {newvar = newvar + '&#109;';}
    if (thisvar.substr(i,1) == 'n') {newvar = newvar + '&#110;';}
    if (thisvar.substr(i,1) == 'o') {newvar = newvar + '&#111;';}
    if (thisvar.substr(i,1) == 'p') {newvar = newvar + '&#112;';}
    if (thisvar.substr(i,1) == 'q') {newvar = newvar + '&#113;';}
    if (thisvar.substr(i,1) == 'r') {newvar = newvar + '&#114;';}
    if (thisvar.substr(i,1) == 's') {newvar = newvar + '&#115;';}
    if (thisvar.substr(i,1) == 't') {newvar = newvar + '&#116;';}
    if (thisvar.substr(i,1) == 'u') {newvar = newvar + '&#117;';}
    if (thisvar.substr(i,1) == 'v') {newvar = newvar + '&#118;';}
    if (thisvar.substr(i,1) == 'w') {newvar = newvar + '&#119;';}
    if (thisvar.substr(i,1) == 'x') {newvar = newvar + '&#120;';}
    if (thisvar.substr(i,1) == 'y') {newvar = newvar + '&#121;';}
    if (thisvar.substr(i,1) == 'z') {newvar = newvar + '&#122;';}
  }
  return newvar
}

function writeEmail(mext,mname,mserver){
  var memail = mname+'@'+mserver+'.'+mext;
  var newmail = '';
  var mmailto = '';
  mmailto = encodeVar('mailto:');
  newmail = encodeVar(memail);
  return '<a href="'+mmailto+newmail+'"><font color=#663333>'+newmail+'</font></a>';
}