function showpage()
{
	switch (screen.width)
	{
		case 1280 :	window.open("../Pages/main1280.htm","_self");
				break;
		case 1152 :	window.open("../Pages/main1152.htm","_self");
				break;
		case 1024 :	window.open("../Pages/main1024.htm","_self");
				break;
		case 800  :	window.open("../Pages/main0800.htm","_self");
				break;
		case 640  :	window.open("../Pages/main0640.htm","_self");
				break;
		default	  :	if (screen.width > 1280)
					window.open("../Pages/main1280.htm","_self");
				else
				if (screen.width > 1152)
					window.open("../Pages/main1280.htm","_self");
				else
				if (screen.width > 1024)
					window.open("../Pages/main1152.htm","_self");
				else
				if (screen.width > 800)
					window.open("../Pages/main1024.htm","_self");
				else
				if (screen,width > 640)
					window.open("../Pages/main0800.htm","_self");
				else
					window.open("../Pages/main0640.htm","_self");
	}
}
function showpic(picno)
{
	if (picno != 0)
	{
		switch (picno)
		{
			case 1	:	document.PICAREA.src = "../Pic/Sg86-05-v1.JPG";
						break;
			case 2	:	document.PICAREA.src = "../Pic/Sg86-08-v1.JPG";
						break;
			case 3	:	document.PICAREA.src = "../Pic/Sg86-06-v1.JPG";
						break;
			case 4	:	document.PICAREA.src = "../Pic/Sg86-03-v1.JPG";
						break;
			case 5	:	document.PICAREA.src = "../Pic/Sg86-07-v1.JPG";
						break;
			case 6	:	document.PICAREA.src = "../Pic/Sg86-10-v1.JPG";
						break;
		}
		if (document.all)
			document.all.PICAREA.style.setAttribute("border","medium outset white");		
	}
	else
	{
		if (document.all)
			document.all.PICAREA.style.setAttribute("border","0");		
		document.PICAREA.src = "../Pic/filler.gif";
	}
}
function showform()
{
	window.open("SG86_email.htm","BODY");
}
function goback(source)
{
	window.open(source,"BODY");
}
function checknetscape()
{
	if (navigator.appName == "Netscape")
		window.open("SG86_FooterMarquee02.htm","_self");
}
function showsubpage(htmlfile,target)
{
	window.open(htmlfile,target);
}
function sendmail(source)
{
	okay = 2;
	if (okay == 1)
	{
		alert("email wurde abgeschickt!");
		goback(source);
	}
	if (okay == 2)
	{
		alert("Unser email-Service ist noch nicht eingerichtet. Kontakte bitte über die ausgewiesenen Postanschriften. Danke...");
		goback(source);
	}
}
function selectkalform()
{
	Datum = new Date();
	Jahr  = Datum.getYear();
	Monat = Datum.getMonth() + 1;
	if (Jahr < 2000 || Monat < 3)
		KalForm = "F1";
	else
		switch (Monat)
		{
			case 3	:	KalForm = "F1";
					break;
			case 4	:	KalForm = "F1";
					break;
			case 5	:	KalForm = "F1";
					break;
			case 6	:	KalForm = "F1";
					break;
			case 7	:	KalForm = "F3";
					break;
			case 8	:	KalForm = "F2";
					break;
			case 9	:	KalForm = "F1";
					break;
			case 10	:	KalForm = "F3";
					break;
			case 11	:	KalForm = "F2";
					break;
			case 12	:	KalForm = "F1";
					break;
		}
	KalPage = "SG86_Kal2000Sample" + KalForm + ".htm";
	window.open(KalPage,"BODY");
}
function selectkalpic()
{
	Datum = new Date();
	Jahr  = Datum.getYear();
	Monat = Datum.getMonth() + 1;
	if (Jahr < 2000 || Monat < 3) 
	{
		Pic1 = 1;
		Pic2 = 11;
	}
	else
	{
		Pic1 = Monat - 2;
		Pic2 = Monat - 1;
	}

	KalPic1	= GetPicture(Pic1);
	KalPic2 = GetPicture(Pic2);
	Desc1 	= GetDescription(Pic1);
	Desc2 	= GetDescription(Pic2);
	document.PIC1V.src = KalPic1;
	document.PIC1V.alt = Desc1;
	document.PIC2V.src = KalPic2;
	document.PIC2V.alt = Desc2;
}
function showdescription(KalPic)
{
	if (!document.all)
	{
		Datum = new Date();
		Jahr  = Datum.getYear();
		Monat = Datum.getMonth() + 1;
		if (Jahr < 2000 || Monat < 3) 
		{
			Pic1 = 1;
			Pic2 = 11;
		}
		else
		{
			Pic1 = Monat - 2;
			Pic2 = Monat - 1;
		}
		if (KalPic == 1)
			Desc = GetDescription(Pic1);
		else
			Desc = GetDescription(Pic2);
		alert(Desc);
	}
}
function GetPicture(Monat)
{
	var KalPic = "../Kal2000/";
	
	if (Monat < 10)
		KalPic = KalPic + "0" + Monat;
	else
		KalPic = KalPic + Monat;
	KalPic = KalPic + "144-v1.jpg";
	return KalPic;
}
function GetDescription(Monat)
{
	var Desc = "";

	switch (Monat)
	{
		case 1	:	Desc = "Motiv Januar - Im Hessentunnel";
				break;
		case 2 	:	Desc = "Motiv Februar - Stalagmit am Ausgang der Willi-Hofmann-Halle";
				break;
		case 3	:	Desc = "Motiv März - Linienförmige Tropfsteinbildung aus einem Deckenriß";
				break;
		case 4	:	Desc = "Motiv April - Wandversinterungen in der Klein-Lechuquilla-Halle";
				break;
		case 5	:	Desc = "Motiv Mai - Galerie über dem Hessentunnel";
				break;
		case 6	:	Desc = "Motiv Juni - Hessens größter Tropfstein - der weiße Riese im Hessentunnel";
				break;
		case 7	:	Desc = "Motiv Juli - Versturz in der Willi-Hofmann-Halle";
				break;
		case 8	:	Desc = "Motiv August - Skelett eines kleinen Raubtieres";
				break;
		case 9	:	Desc = "Motiv September - Junge, aktive Tropfsteine";
				break;
		case 10	:	Desc = "Motiv Oktober - Seitengang der Willi-Hofmann-Halle";
				break;
		case 11	:	Desc = "Motiv November - Kristallbildungen aus Kalzit (sog. Schmetterlingssinter)";
				break;
		case 12	:	Desc = "Motiv Dezember - Sintergardine über kleinen Stalagmit";
				break;
	}
	return Desc;
}