//1. tB_PopupWindowCenter(popWinURL,popWinName,popWinFeatures,popWinWidth,popWinHeight)
//2. tB_PopupWindowPosition(popWinURL,popWinName,popWinFeatures,popWinWidth,popWinHeight,popWinLeft,popWinTop)
//3. tB_W3Cbg(obj, tBbgColor)
//4. CheckEmailObbl(sEmail)
//5. CheckEmailNotObbl(sEmail)
//Macromedia functions
//6. MM_swapImgRestore()
//7. MM_preloadImages()
//9. MM_swapImage()
//13. CheckNurAlphaNumerisch(n)
//14. tb_WriteEmailAddress2(s1,s2,s3,sCaption)
//15. tb_CheckDatum(sDatum)
//16. tb_ClearField(objFeld,nStandardwert)

var tB_Window = null;
// hoeherstellen (Toolbar 28 und Browsertopleiste ca. 24 ) - Achtung! abhaengig von Features und Browser...
var popWinHigher = 28 + 24;

function tB_PopupWindowCenter(popWinURL,popWinName,popWinFeatures,popWinWidth,popWinHeight)
 {
  popWinx = (((window.screen.height - popWinHigher) / 2) - (popWinHeight / 2));
   popWiny = ((window.screen.width / 2) - (popWinWidth / 2));
   popWinAttributes = popWinFeatures + ',width='+popWinWidth+',height='+popWinHeight+',top='+popWinx+',left='+popWiny;
	tB_Popup = window.open(popWinURL,popWinName,popWinAttributes); }

function tB_PopupWindowPosition(popWinURL,popWinName,popWinFeatures,popWinWidth,popWinHeight,popWinLeft,popWinTop) {
   popWinAttributes = popWinFeatures + ',width='+popWinWidth+',height='+popWinHeight+',top='+popWinLeft+',left='+popWinTop;
	tB_Popup= window.open(popWinURL,popWinName,popWinAttributes); }


function tB_W3Cbg(obj, tBbgColor) {
	obj.style.backgroundColor=tBbgColor;}


// check ob der übergebene String eine gültige Emailadresse ist - es darf auch kein leerer string sein

function CheckEmailObbl(sEmail){
	var txt_muster = /.+@.+\..+/;
	if (sEmail != ""){
		if (txt_muster.exec(sEmail))
			return (true)
		else
			return (false)
	}
	 else
		return (false)}

// check ob der übergebene String eine gültige Emailadresse ist - es darf ein leerer string sein

function CheckEmailNotObbl(sEmail){
	var txt_muster = /.+@.+\..+/;
	if (sEmail != ""){
		if (txt_muster.exec(sEmail))
			return (true)
		else
			return (false)}
	else 
	return (true)}

// most used Macromedia Dreamweaver 4 Functions 

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}}


function CheckNurAlphaNumerisch(n){
	var txt_NurText = /^[a-zA-Z0-9]*$/;
	if (txt_NurText.exec(n))
		return true;
	else
		return false;}

function tb_WriteEmailAddress(s1,s2,s3,sCaption){
	document.write ("<a href='m" + "ail" + "to:" + s1 + "@" + s2 + '.' + s3 + "'>")
	if (sCaption == '')
		document.write (s1 + '@' + s2 + '.' + s3);
	else
		document.write (sCaption);
	document.write ("</a>");}

function tb_CheckDatum(sWert){
	var txt_muster = "";
	iLenWert = sWert.length;
	
		switch (iLenWert)
		{
		case 8:
			txt_muster =/\d.\d.\d\d\d\d/;
			break
		case 9:
			iPunktEins = sWert.indexOf(".")
			iPunktZwei = sWert.lastIndexOf(".")
			switch (iPunktEins)
				{
				case 1:
					txt_muster =/\d.\d\d.\d\d\d\d/;
					break
				case 2:
					txt_muster =/\d\d.\d.\d\d\d\d/;
					break
				}
			
			break;
		case 10:
			txt_muster =/\d\d.\d\d.\d\d\d\d/;
			break
		}
	
	if (txt_muster != "") {
	
		if (txt_muster.exec(sWert)) 
			{
			switch (iLenWert)
				{
				case 8:
					txt_muster =/\d.\d.\d\d\d\d/;
					sTag = sWert.substring(0,1)	
					sMonat = sWert.substring(2,3)
					sJahr = sWert.substring(4,8)
					break
				case 9:
					switch (iPunktEins)
						{
						case 1:
							sTag = sWert.substring(0,1)	
							sMonat = sWert.substring(2,4)
							break;
						case 2:
							sTag = sWert.substring(0,2)	
							sMonat = sWert.substring(3,4)
							break;
						}
					sJahr = sWert.substring(5,9)
					
					break;
				case 10:
					sTag = sWert.substring(0,2)	
					sMonat = sWert.substring(3,5)
					sJahr = sWert.substring(6,10)
					break
				}
			if (sTag >= 1 && sTag <= 31)
				{
				if (sMonat >= 1 && sMonat <= 12)
					{
						if (sMonat == 1 || sMonat == 3 || sMonat == 5 || sMonat == 7 || sMonat == 8 || sMonat == 10 || sMonat == 12)
							return true
						else
							{
							if (sMonat == 4 || sMonat == 6 || sMonat == 9 || sMonat == 11)
								{
									if (sTag <= 30)
										return true
									else
										return false
								}
							else
								{
								if (sTag <= 28)
									return true
								else
									{
									if (sJahr % 4 == 0 )
										{ 
											if (sJahr % 100 == 0 )
												{
												if (sJahr % 400 == 0)
													{
													if (sTag <= 29)
														return true
													else
														return false
													}
												else
													{
													if (sTag <= 28)
														return true
													else
														return false
													}
												}
											else
												{
												if (sTag <= 29)
													return true
												else
													return false
												}
											
										}
									else
										{
										if (sTag <= 28)
											return true
										else
											return false
										}
									}
								}
							}
						}
				else
					return false
				}
			else
				return false
			}
		else
			return false
		}
	else
		return false
}

//16. tb_ClearField(objFeld,nStandardwert)

function tb_ClearField(objFeld,nStandardwert){
if (objFeld.value == nStandardwert)
	objFeld.value =""}