function findMailtoLink(text) {
    for (var i=0; i<document.links.length; i++)
        if (document.links[i].href == text) return i;
    return null;
}
var loAZ = "abcdefghijklmnopqrstuvwxyz";
var symbols = loAZ.toUpperCase();
symbols+= "[\\]^_`";
symbols+= loAZ;
symbols+= "{|}~";

function toAscii (inVal)  {
         var loc;
         loc = symbols.indexOf(inVal);
         if (loc > -1) {
             Ascii_Decimal = 32 + loc;
             return (32 + loc);
         }
         return(0);  // If not in range 32-126 return ZERO
}

function addSimpleEmailAddresses() {
alert("DEBUG: addSimpleEmailAddress.");
    var output = 'mailto:';
    for (var i=document.emailForm1.selectName.length-1; i>=0; i--) {
         var thisWord = document.emailForm1.selectName[i].value;
         var start=0;
         var end=thisWord.length;
         var inc=1;
         if(i%2>0) {
            start=thisWord.length; end=inc=-1;
         }
         for(var c=start; c != end; c+=inc) {
             var thisChr = thisWord.charAt(c);
             if(thisChr == '@' || thisChr =='.') {
                output += thisChr;
             }
             else {
               var asciiValue = toAscii(thisChr);
               var offset = document.emailForm1.selectName[i].text;
               offset = (offset * 1);
               asciiValue += offset;
               var charValue = symbols.charAt(asciiValue - 32);
               output += charValue;
             }
         }
    }
    document.links[findMailtoLink('mailto:1')].href = output;
}