function win(theURL,winName,features) {
	window.open(theURL,winName,features);
}

var scape = (navigator.appName.indexOf("tscape") !=-1) ? true : false;
var letter="";

if (scape) document.captureEvents(Event.KEYPRESS);
document.onkeypress = doKey
function doKey(keyed) {
	input = (scape) ? keyed.which : event.keyCode;
	letter+=String.fromCharCode(input);
	if(letter=="login" || letter=="admin") {
	var url=new String (self.location);
	if(url.indexOf("?")==-1) { var z="?"; } else { var z="&"; }
	// alert(self.location+z+"othertempl=login.php");
	location.href=self.location+z+"othertempl=login.php";
	}
}

function mail_to (subject,domainpart,localpart) {
	var hrefstr = 'mailto:' + localpart + "@" + domainpart;
	if ( subject != '' ) hrefstr = hrefstr + "?subject=" + subject;
	location.href = hrefstr;
}

function Trim(s) {
  while ((s.substring(0,1) == ' ') || (s.substring(0,1) == '\n') || (s.substring(0,1) == '\r')) {
    s = s.substring(1,s.length);
  }
  while ((s.substring(s.length-1,s.length) == ' ') || (s.substring(s.length-1,s.length) == '\n') || (s.substring(s.length-1,s.length) == '\r')) {
    s = s.substring(0,s.length-1);
  }
  return s;
}

function map24_removeDefaultValues()
{
	if (document.link2map24.sstreet.value == 'straße') 	document.link2map24.sstreet.value 	= '';
	if (document.link2map24.szip.value 	  == 'plz') 		document.link2map24.szip.value 		= '';
	if (document.link2map24.scity.value   == 'ort') 		document.link2map24.scity.value 	= '';
}

function map24_removeDefaultValues2()
{
	if (document.link2map24_2.sstreet.value == 'straße') 	document.link2map24_2.sstreet.value 	= '';
	if (document.link2map24_2.szip.value 	  == 'plz') 		document.link2map24_2.szip.value 		= '';
	if (document.link2map24_2.scity.value   == 'ort') 		document.link2map24_2.scity.value 	= '';
}
function map24_removeDefaultValues3()
{
	if (document.link2map24_3.sstreet.value == 'straße') 	document.link2map24_3.sstreet.value 	= '';
	if (document.link2map24_3.szip.value 	  == 'plz') 		document.link2map24_3.szip.value 		= '';
	if (document.link2map24_3.scity.value   == 'ort') 		document.link2map24_3.scity.value 	= '';
}

function setOEBB()
{
	var oebblink = "";
	
	if ( (document.link2map24.szip.value != 'plz') && (document.link2map24.szip.value != '') ) oebblink = oebblink + document.link2map24.szip.value + ' ';
	if ( (document.link2map24.scity.value != 'ort') && (document.link2map24.scity.value != '') ) oebblink = oebblink + document.link2map24.scity.value + ' ';
	if ( (document.link2map24.sstreet.value != 'straße') && (document.link2map24.sstreet.value != '') ) oebblink = oebblink + document.link2map24.sstreet.value + ' ';
	
	void win('http://fahrplan.oebb.at/bin/query.exe/dn?L=vs_addr&S='+Trim(oebblink)+ '&Z=wiener neustadt prof. dr. stephan koren strasse 10&REQ0JourneyStopsS0A=255&REQ0JourneyStopsZ0A=255');
}

function setOEBB2()
{
	var oebblink = "";
	
	if ( (document.link2map24_2.szip.value != 'plz') && (document.link2map24_2.szip.value != '') ) oebblink = oebblink + document.link2map24_2.szip.value + ' ';
	if ( (document.link2map24_2.scity.value != 'ort') && (document.link2map24_2.scity.value != '') ) oebblink = oebblink + document.link2map24_2.scity.value + ' ';
	if ( (document.link2map24_2.sstreet.value != 'straße') && (document.link2map24_2.sstreet.value != '') ) oebblink = oebblink + document.link2map24_2.sstreet.value + ' ';
	
	void win('http://fahrplan.oebb.at/bin/query.exe/dn?L=vs_addr&S='+Trim(oebblink)+ '&Z=krems dr. karl-dorrek-straße 30&REQ0JourneyStopsS0A=255&REQ0JourneyStopsZ0A=255');
}

function setOEBB3()
{
	var oebblink = "";
	
	if ( (document.link2map24_3.szip.value != 'plz') && (document.link2map24_3.szip.value != '') ) oebblink = oebblink + document.link2map24_3.szip.value + ' ';
	if ( (document.link2map24_3.scity.value != 'ort') && (document.link2map24_3.scity.value != '') ) oebblink = oebblink + document.link2map24_3.scity.value + ' ';
	if ( (document.link2map24_3.sstreet.value != 'straße') && (document.link2map24_3.sstreet.value != '') ) oebblink = oebblink + document.link2map24_3.sstreet.value + ' ';
	
	void win('http://fahrplan.oebb.at/bin/query.exe/dn?L=vs_addr&S='+Trim(oebblink)+ '&Z=tulln technopark 1&REQ0JourneyStopsS0A=255&REQ0JourneyStopsZ0A=255');
}

function setBlackCircle(men)
{
	document.getElementById("submen_" + men).style.backgroundImage = "url(statimg/k_bl.gif)";
	document.getElementById("submen_" + men).style.backgroundPosition = "top left";
	document.getElementById("submen_" + men).style.backgroundRepeat = "no-repeat";
	
	document.getElementById("value_" + men).style.color = "#000000";
	document.getElementById("link_" + men).style.color = "#000000";
}

function setGreyCircle(men, act_men)
{	
	if (men != act_men)
	{
		document.getElementById("submen_" + men).style.backgroundImage = "url(statimg/k_gr.gif)";
		document.getElementById("submen_" + men).style.backgroundPosition = "top left";
		document.getElementById("submen_" + men).style.backgroundRepeat = "no-repeat";
		
		document.getElementById("value_" + men).style.color = "#707172";
		document.getElementById("link_" + men).style.color = "#707172";
	}
}