function cfVandS() {
//  var almsg='i='+document.forms[0].length+'\n';
//  for (i=0;i<(document.forms[0].length);i++){almsg+= document.forms[0].elements[i].name+'\n'};alert(almsg)
  if (document.forms[0].required_smess.value.length>1500) {
    var mlen='MESSAGE TEXT IS TOO LONG:\nYour comments cannot be sent yet.\n'
	+'For server security, no single message can be more than 1,500 characters long.\n'
        +'Please reduce your comments from their present '+document.forms[0].required_smess.value.length
	+' character length.';
    alert(mlen); return false
  }
  if (document.forms[0].required_smess.value.length<17) {
    var mlen='MESSAGE TEXT APPEARS VERY SHORT:\n'
	+'Are you sure you want to send a message of only '
        +document.forms[0].required_smess.value.length+' characters?'
    if (!confirm(mlen)) return false
  }
  var mi1='MISSING INFORMATION:\nYour comments cannot be sent yet.\n'
  var mi2='\nYou must enter your ', mi3=' in the appropriate box.\n'
  if (!document.forms[0].required_smess.value) mi1+=mi2+'MESSAGE or ENQUIRY'+mi3
  if (!document.forms[0].required_sname.value) mi1+=mi2+'NAME'+mi3
  if (!document.forms[0].required_semail.value) mi1+=mi2+'E-MAIL ADDRESS'+mi3
  for (i=0; i<(document.forms[0].length-19); i++) {
    if (!document.forms[0].elements[i].value) {
      alert(mi1)
      return false
    }
  }
  var eev=document.forms[0].required_semail.value
  var myRE1=/[@]/, myRE2=/[.]/
  if (!myRE1.test(eev) || !myRE2.test(eev)) {
    alert('INVALID E-MAIL ADDRESS:\nPlease recheck the format of the e-mail address typed.\n'); return false
  }
  return true
}
function retClo() {
  document.location('coresponse.php')
}