function writemail(a,b,c,d) {
    if (d) {
      the_string = "<a href='mailto:"+a+"@"+b+"."+c+"'>"+d+"</a>";
    }
    else {
      the_string = "<a href='mailto:"+a+"@"+b+"."+c+"'>"+a+"@"+b+"."+c+"</a>";
    }
    return (the_string);
}