function isEmpty( str ){
    strRE = new RegExp( );
    strRE.compile( '^[\s ]*$', 'gi' );
    return strRE.test( str.value );
} 
function notValidEmail( str ){
    mailRE = new RegExp( );
    mailRE.compile( '^[\._a-z0-9-]+@[\.a-z0-9-]+[\.]{1}[a-z]{2,4}$', 'gi' );
    return !(mailRE.test( str.value ));
} 
function checkForm( form ){
    if( notValidEmail( form.R ) ){
        alert( 'Please enter your email address.' );
        return false;
    }
    if( isEmpty( form.S ) ){
        alert( 'Please enter your name.' );
        return false;
    }
    return true;
}
function checkFormOut( form ){
    if( notValidEmail( form.R ) ){
        alert( 'Please enter your email address.' );
        return false;
    }
    return true;
}

function gotoList(a) {
  switch (a) {
  case "LISTSERV at Work-1" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?A0=LISTSERV-AT-WORK";
  break;
  case "LISTSERV at Work-2" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?RSS&L=LISTSERV-AT-WORK&v=2.0";
  break;
  case "L-Soft Product Updates-1" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?A0=LSOFT-UPDATES";
  break;
  case "L-Soft Product Updates-2" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?RSS&L=LSOFT-UPDATES&v=2.0";
  break;
  case "L-Soft News-1" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?A0=LSOFT-NEWS";
  break;
  case "L-Soft News-2" :
  self.location.href="http://community.emailogy.com/scripts/wa-COMMUNITY.exe?RSS&L=LSOFT-NEWS&v=2.0";
  break;
}
}