<!-- Hide from old browsers

var attribWithoutAll="location=no,menubar=no,toolbar=no,status=no";
attribWithoutAll+=",resizable=no,scrollbars=no,width=540,height=780";
  /* Attribute fuer ein Fenster, das nix, aber auch rein gar nix haben soll */

var subwindow=0;
  /* Initialisierung der Variablen, die spaeter mal auf das Fensterobjekt verweist */

function writeEmail(name,domain,screenLetters)
	{
		visible=(typeof(screenletters)=="undefined")? name+"@"+domain : screenLetters; 
		document.write ('<a href=mailto:'+name+'@'+domain+'>'+visible+'</a>'); 
	} 
function sendContactMail(mail,name){

	ClosePopUp()             /* erstmal bisher geoeffnetes Popup zumachen */
  subwindow=window.open('includes/kontaktform.php?email='+mail+'&name='+name,"popup",attribWithoutAll);
    /* test.html unter dem Fensternamen "popup" aufmachen und Fensterobjekt merken */
  subwindow.moveTo(10,50); /* Fenster nach links oben schieben */
	} 
	
	function ClosePopUp()
/* diese Funktion schliesst (so geoeffnet) das Popup-Fenster */
{
  if (!subwindow)          /* wenn noch nicht geoeffnet */
    return;                /* nix zu tun, Abbruch */
  if (subwindow.closed)    /* wenn schon zugemacht */
    return;                /* nix zu tun, Abbruch */
  subwindow.close();       /* mach zu */
}


	
	
var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1); 

function printPage() {
  if (pr) // NS4, IE5
    window.print()
  else if (da && !mac) // IE4 (Windows)
    vbPrintPage()
  else // other browsers
    alert("Ihr Browser unterstuetzt diese Funktion nicht...");
  return false;
}

if (da && !pr && !mac) with (document) {
  writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');
  writeln('<' + 'SCRIPT LANGUAGE="VBScript">');
  writeln('Sub window_onunload');
  writeln('  On Error Resume Next');
  writeln('  Set WB = nothing');
  writeln('End Sub');
  writeln('Sub vbPrintPage');
  writeln('  OLECMDID_PRINT = 6');
  writeln('  OLECMDEXECOPT_DONTPROMPTUSER = 2');
  writeln('  OLECMDEXECOPT_PROMPTUSER = 1');
  writeln('  On Error Resume Next');
  writeln('  WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
  writeln('End Sub');
  writeln('<' + '/SCRIPT>');
} 


// Stop hiding from old browsers -->