function retvalcheck(retval,Value,Funct,Field,htmlform,dfltcolor)

  {
   if (htmlform == "") htmlform="WWW";
   if (dfltcolor == "" || dfltcolor == null) dfltcolor="lightgrey";  //fis;26.08.05;dyn. hintergrundfarbe

   if (Funct == "3")
    {
    alert(retval);
    return false;
    }
   charat = retval.charAt(0);
   alerttext = retval.substr(1,retval.length);
   if (charat == "!")
    {
    alert(alerttext);
    retval = "";
    return(retval);
    }
   if (charat == "§")
    {
    alert(alerttext);
    retval = " ";
    eval("document." + htmlform + "." + Field + ".focus()");
    return(retval);
    }
   if (charat == "&")
    {
    check = confirm(alerttext);
    retval = "";
    if (check == false) {retval = " ";  eval("document." + htmlform + "." + Field + ".focus()");}
    return(retval);
    }
   if (charat == "?")
    {
    retval = "";
    retval = prompt(alerttext,Value);
    if (retval == null) {retval = "";}
    return(retval);
    }
   if (charat == "@")
    {
    if (Funct == "1") {OPENNOW();alerttext=" "; charat="";} 
    if (alerttext == "")  SAVENOW();
    }
   if (charat == "#")
    {
     var x=0 ; var check; var okabbruch; var selset; var selfield; var selvalue; var retval; var selvalue1; var selvalue2; var newoption;
     okabbruch = 1;
     while (x<1000)
      {
      selset = piece(alerttext,"#",x+1);
     if (selset == "") break; 
     charat = selset.charAt(0);
     if (charat == "!")
      {
      alert(selset.substr(1,selset.length));
      selset = "";
      }
     if (charat == "@")
      {
      if (Funct == "1") {OPENNOW();break;}
      SAVENOW();
      break;
      }
     if (charat == "&")
      {
      check = confirm(selset.substr(1,selset.length));
      okabbruch = 1;
      if (check == false) {okabbruch = 0;}
      x++;
      selset = piece(alerttext,"#",x+1);
      charat = selset.charAt(0);
      }
    if (selset != "") 
   {
    selfield = piece(selset,"~",1);
    if (okabbruch==1) 
     {  selvalue = piece(selset,"~",2);
        selvalue = selvalue.replace(/&num;/g,String.fromCharCode(35));
        selvalue1 = piece(selset,"~",3);
        selvalue2 = piece(selset,"~",4);
     }
     if (okabbruch==0) 
     {selvalue = piece(selset,"~",5);
     selvalue1 = piece(selset,"~",6);
     selvalue2 = piece(selset,"~",7);
     }
     if (selfield == "") break;
     if (selfield == "FUNCTION") {eval(selvalue); break;}
     if (selvalue2 == "") selvalue2 = x;
     if (selvalue == "BACKGROUND") {eval("document." + htmlform + "." + selfield + ".style.background='" + selvalue1 + "'"); selvalue1="" ; }
     if (selvalue == "REMOVE") {
       eval ("selelem = document." + htmlform + "." + selfield);
       selmax = selelem.length;
       for (i=1;i<=selmax;++i) selelem.remove(0);
       selvalue="";
       }
     if (selvalue1 != "")
     {newoption = new Option(selvalue1, selvalue, false, false);
     eval("document." + htmlform + "." + selfield + ".options[selvalue2] = newoption");  
     }
     if (selvalue1 == "")
     {
      if (selvalue == " ") selvalue ="" ;
      if (selvalue == "WRITE")
      {
      if (eval("document." + htmlform + "." + selfield + ".type.indexOf('checkbox')>-1"))  {
          eval("document." + htmlform + "." + selfield + ".disabled=0");selvalue ="" ;
          }
        else {
          eval("document." + htmlform + "." + selfield + ".style.background='white'"); eval("document." + htmlform + "." + selfield + ".readOnly=false"); selvalue ="BACKGROUND" ;
          }
      }
      if (selvalue == "READ")
      {
        if (eval("document." + htmlform + "." + selfield + ".type.indexOf('checkbox')>-1"))  {
          eval("document." + htmlform + "." + selfield + ".disabled=1");selvalue ="" ;
          }
        else {
         //eval("document." + htmlform + "." + selfield + ".style.background='lightgrey'");
         eval("document." + htmlform + "." + selfield + ".style.background='" + dfltcolor + "'");  //fis;26.08.05;readonly mit variabler hintergrundfarbe
         eval("document." + htmlform + "." + selfield + ".readOnly=true;"); selvalue ="" ;
         }
      }     if (selvalue != "UNCHECKED") {if (selvalue != "BACKGROUND") eval("document." + htmlform + "." + selfield + ".value = selvalue"); }
      if (selvalue == "UNCHECKED") {eval("document." + htmlform + "." + selfield + ".checked = 0"); eval("document." + htmlform + "." + selfield + ".value = 0"); } 
      if (selvalue == "CHECKED") {eval("document." + htmlform + "." + selfield + ".checked = 1"); eval("document." + htmlform + "." + selfield + ".value = 1"); } 
      if (selvalue == "BACKGROUND") selvalue ="" ;
     }
    }
     x++;  }

   retval = "";
   return(retval);
   }
   else return(retval);
  }



function makevisible(cur,which)
    {
      if (which==0)
      cur.filters.alpha.opacity=100
      else 
      cur.filters.alpha.opacity=60
 }



function xpiece(txt,tr,nr)
  {
   txt = txt + tr;
   dummy = "";
   pos = 0;
   lnr = 0;
   for (i=0; i<txt.length; i++)
    {
     if (txt.substring(i,i+tr.length) == tr)
      {
      fpiece = txt.substring(pos,i);
      dummy = dummy + "\n" + fpiece;
      pos = i+tr.length;
      lnr++;
      if (lnr == nr)
          return(fpiece);
      }
     }
   return('');
 }

function piece(txt,tr,nr)  //fis;11.05.05
 {
   txt = txt + tr;
   var array = txt.split(tr);
   fpiece=array[nr-1];
   if (!(fpiece)) return('');
   return(fpiece);
 }


function newModalDialog(url,para,height,width,resize) {  //fis;07.12.2004

  if (url==null) url='';
  if (para==null) para='';
  if (height==null  || height=='') height=450;
  if (width==null  || width=='') width=300;
  if (resize==1) resize='yes'; else resize='no';

  if (url != '') {
   if (document.all) {
     url = url + '&YSEC='+new Date().getSeconds() + '&YRANDOM='+Math.random();
     var result = window.showModalDialog (url,para,'DialogHeight: ' + height + 'px; DialogWidth: ' + width + 'px; resizable: ' + resize + '; status: no; center: yes; help: no;');
     return result;
   }
   else {
     modalDialog = window.open(String(url),'','width=' + width + ', height=' + height + ', resizeable=' + resize + ', status=no, directories=no, menubar=no, titlebar=no, toolbar=no');
     if (para != '') modalDialog.dialogArguments=para;
     return 0;
     }
   }
  }
  

function checkdate1(input)
    {
      dd = piece(input,"/",2);
      mm = piece(input,"/",1);
      yy = piece(input,"/",3);
      if (dd.length > 2 || !dd.length) return false;
      if (mm.length > 2 || !mm.length) return false;
      if (yy.length > 4 || !yy.length) return false;
      if (yy.length < 2 || !yy.length) return false;
      if (dd>31) return false;
      if (mm>12) return false;
      if (mm==2 && dd>29) return false;
      if (dd==31 && ((mm==4) || (mm==6) || (mm==9) || (mm==11))) return false;
      datum = new Date(yy,mm-1,dd);
      return true;
 }
function checkdate(input)
{
             OK = true;
	     if (input.charAt(0) == "-") return input;
	     if (input.charAt(0) == "+") return input;
             heute = new Date();
             if (input == "") return input;
             if (input == ".")
                           input=(heute.getMonth()+1) + "/" + heute.getDate() + "/" + heute.getYear();
             if (piece(input,"/",2)=="")
                            input=+(heute.getMonth()+1)+"/"+piece(input,"/",1);
             if (piece(input,"/",3)=="")
                            input=piece(input,"/",1)+"/"+piece(input,"/",2)+"/"+(heute.getYear());
             OK = checkdate1(input);
             if (!OK) alert("wrong date format ("+input+")");
             return input;
 }



function BEARB(wert)
 {
 document.WWW.YBEARB.value=wert;
 document.WWW.YBEARB.style.color="red";
 }


function SAVEKEY(funct)
 {
 if (funct=="NEXT") {document.WWW.target=""; document.WWW.YRICHT1="NEXT";}
 if (funct=="BACK")  {document.WWW.target=""; document.WWW.YRICHT1="BACK";}
 if (funct=="SEARCH")  {document.WWW.target=""; document.WWW.YOPEN.value="SAVESEAR";}
 SAVENOW();
 }



function SAVENOW()
 {
 document.WWW.style.cursor='wait'; window.focus(); setTimeout('document.WWW.submit()',300);
 }




function OPENNOW()
 {
 document.WWW.YOPEN.value='1'; SAVENOW();
 }


var lastpress = null;
var searchtext = '';
var waittime = 1000;

function QUICKSELECT(obj, event) {
  var keyno = event.keyCode;
  if (keyno != 40) {
    for (var k=0;k<10;k++) {
      if (keyno == (96+k)) keyno=(48+k);
    }
    var c = String.fromCharCode(keyno);
    var timestamp = new Date().getTime();
    var newpress = lastpress? timestamp - lastpress : waittime;
    if (newpress >= waittime) searchtext = c; else searchtext += c;
    lastpress = timestamp;
    var ret = new RegExp("^" + searchtext);
    for (var i=0; i<obj.options.length; i++) {
      if (obj.options[i].value.match(ret)) {
        obj.selectedIndex = i;
        break;
      }
    }
  }
}

///////////////////////////////////////////////////////////////////////
//     This Button Script was designed by Erik Arvidsson for WebFX   //
//                                                                   //
//     For more info and examples see: http://webfx.eae.net/         //
//     or send mail to erik@eae.net                                  //
//                                                                   //
//     Feel free to use this code as lomg as this disclaimer is      //
//     intact.                                                       //
///////////////////////////////////////////////////////////////////////

document.onmouseover = doOver;
document.onmouseout  = doOut;
document.onmousedown = doDown;
document.onmouseup   = doUp;


function doOver() {
    if (document.all)
    {
	var toEl = getReal(window.event.toElement, "className", "coolButton");
	var fromEl = getReal(window.event.fromElement, "className", "coolButton");
	if (toEl == fromEl) return;
	var el = toEl;
	
//	alert(el);
	
//	var cDisabled = el.getAttribute("cDisabled");
	var cDisabled = el.cDisabled;
//	alert(cDisabled);
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	if (el.className == "coolButton")
		el.onselectstart = new Function("return false");
	
	if ((el.className == "coolButton") && !cDisabled) {
		makeRaised(el);
		makeGray(el,false);
	}
    }
}

function doOut() {
    if (document.all)
    {
	var toEl = getReal(window.event.toElement, "className", "coolButton");
	var fromEl = getReal(window.event.fromElement, "className", "coolButton");
	if (toEl == fromEl) return;
	var el = fromEl;

//	var cDisabled = el.getAttribute("cDisabled");
	var cDisabled = el.cDisabled;
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present

	var cToggle = el.cToggle;
	toggle_disabled = (cToggle != null); // If CTOGGLE atribute is present

	if (cToggle && el.value) {
		makePressed(el);
		makeGray(el,true);
	}
	else if ((el.className == "coolButton") && !cDisabled) {
		makeFlat(el);
		makeGray(el,true);
	}
    }

}

function doDown() {
    if (document.all)
    {
	el = getReal(window.event.srcElement, "className", "coolButton");
	
	var cDisabled = el.cDisabled;
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	if ((el.className == "coolButton") && !cDisabled) {
		makePressed(el)
	}
    }
}

function doUp() {
    if (document.all)
    {
	el = getReal(window.event.srcElement, "className", "coolButton");
	
	var cDisabled = el.cDisabled;
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	if ((el.className == "coolButton") && !cDisabled) {
		makeRaised(el);
	}
    }
}


function getReal(el, type, value) {
	temp = el;
	while ((temp != null) && (temp.tagName != "BODY")) {
		if (eval("temp." + type) == value) {
			el = temp;
			return el;
		}
		temp = temp.parentElement;
	}
	return el;
}

function findChildren(el, type, value) {
	var children = el.children;
	var tmp = new Array();
	var j=0;
	
	for (var i=0; i<children.length; i++) {
		if (eval("children[i]." + type + "==\"" + value + "\"")) {
			tmp[tmp.length] = children[i];
		}
		tmp = tmp.concat(findChildren(children[i], type, value));
	}
	
	return tmp;
}

function disable(el) {

	if (document.readyState != "complete") {
		window.setTimeout("disable(" + el.id + ")", 100);	// If document not finished rendered try later.
		return;
	}
	
	var cDisabled = el.cDisabled;
	
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present

	if (!cDisabled) {
		el.cDisabled = true;
		
		el.innerHTML = '<span style="background: buttonshadow; width: 100%; height: 100%; text-align: center;">' +
						'<span style="filter:Mask(Color=buttonface) DropShadow(Color=buttonhighlight, OffX=1, OffY=1, Positive=0); height: 100%; width: 100%%; text-align: center;">' +
						el.innerHTML +
						'</span>' +
						'</span>';

		if (el.onclick != null) {
			el.cDisabled_onclick = el.onclick;
			el.onclick = null;
		}
	}
}

function enable(el) {
	var cDisabled = el.cDisabled;
	
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	if (cDisabled) {
		el.cDisabled = null;
		el.innerHTML = el.children[0].children[0].innerHTML;

		if (el.cDisabled_onclick != null) {
			el.onclick = el.cDisabled_onclick;
			el.cDisabled_onclick = null;
		}
	}
}

function addToggle(el) {
	var cDisabled = el.cDisabled;
	
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	var cToggle = el.cToggle;
	
	cToggle = (cToggle != null); // If CTOGGLE atribute is present

	if (!cToggle && !cDisabled) {
		el.cToggle = true;
		
		if (el.value == null)
			el.value = 0;		// Start as not pressed down
		
		if (el.onclick != null)
			el.cToggle_onclick = el.onclick;	// Backup the onclick
		else 
			el.cToggle_onclick = "";

		el.onclick = new Function("toggle(" + el.id +"); " + el.id + ".cToggle_onclick();");
	}
}

function removeToggle(el) {
	var cDisabled = el.cDisabled;
	
	cDisabled = (cDisabled != null); // If CDISABLED atribute is present
	
	var cToggle = el.cToggle;
	
	cToggle = (cToggle != null); // If CTOGGLE atribute is present
	
	if (cToggle && !cDisabled) {
		el.cToggle = null;

		if (el.value) {
			toggle(el);
		}

		makeFlat(el);
		
		if (el.cToggle_onclick != null) {
			el.onclick = el.cToggle_onclick;
			el.cToggle_onclick = null;
		}
	}
}

function toggle(el) {
	el.value = !el.value;
	
	if (el.value)
		el.style.background = "URL(/images/tileback.gif)";
	else
		el.style.backgroundImage = "";

//	doOut(el);	
}


function makeFlat(el) {
	with (el.style) {
		background = "";
		border = "1px solid buttonface";
		padding      = "1px";
	}
}

function makeRaised(el) {
	with (el.style) {
		borderLeft   = "1px solid buttonhighlight";
		borderRight  = "1px solid buttonshadow";
		borderTop    = "1px solid buttonhighlight";
		borderBottom = "1px solid buttonshadow";
		padding      = "1px";
	}
}

function makePressed(el) {
	with (el.style) {
		borderLeft   = "1px solid buttonshadow";
		borderRight  = "1px solid buttonhighlight";
		borderTop    = "1px solid buttonshadow";
		borderBottom = "1px solid buttonhighlight";
		paddingTop    = "2px";
		paddingLeft   = "2px";
		paddingBottom = "0px";
		paddingRight  = "0px";
	}
}

function makeGray(el,b) {
	var filtval;
	
	if (b)
		filtval = "gray()";
	else
		filtval = "";
	filtval = "";
	var imgs = findChildren(el, "tagName", "IMG");
		
	for (var i=0; i<imgs.length; i++) {
		imgs[i].style.filter = filtval;
	}

}
	

document.write("<style>");
document.write(".coolBar	{background: buttonface;border-top: 1px solid buttonhighlight;	border-left: 1px solid buttonhighlight;	border-bottom: 1px solid buttonshadow; border-right: 1px solid buttonshadow; padding: 2px; font: menu;}");
document.write(".coolButton {border: 1px solid buttonface; padding: 1px; text-align: center; cursor: default;}");
<!--document.write(".coolButton IMG	{filter: gray();}");--!>
document.write("</style>");