function writea (trcode) 
{
	document.write ("<A HREF=\"http://babelfish.altavista.digital.com/cgi-bin/translate?languagepair=") ;
	document.write (trcode) ;
	document.write ("&urltext="+escape(window.location.href)+"\" ") ;
	document.write ("TARGET=\"hchs_translations\">") ;
}	


function writetrans (trcode, flagcode, name)
{
	writea(trcode) ;
	document.write ("<IMG SRC=\"/Backgrounds/"+flagcode+"_micro.gif\" BORDER=0 HSIZE=14 VSIZE=9 HSPACE=3 VSPACE=0></A>") ; 
	writea(trcode) ;
	document.write (name+"</A>") ;
}

function setCookie2 (name,value,expire) 
{
	document.cookie = 
		name + 
		"=" + 
		escape(value) +
		((expire == null) ? "" : ("; expires=" + expire.toGMTString())) +
		"; path=/"
}

function getCookie2 (name)
{
	search = name + "=" ;
	if (document.cookie.length > 0)
	{
		offset = document.cookie.indexOf(search) ;
		if (offset != -1)
		{
			offset += search.length ;
			end = document.cookie.indexOf(";", offset) ;
			if (end == -1)
				end = document.cookie.length ;
			return unescape(document.cookie.substring (offset,end))
		}
	}
	return ""
}

function DoFrameCheck(subframeset) 
{
	myfilename = window.location.href ;
	
	if ((myfilename.indexOf("/21Century/") != -1) &&
	    (getCookie2 ("HCHS21Check") != "visited"))
	{
         	timevar = new Date()
	        timevar.setTime(timevar.getTime()+31536000) ;
		setCookie2 ("HCHS21Check","visited",timevar)
	}

	myserver = "http://www.hchs.de" ;
	myserver1 = "http://195." ;
	myserver2 = "http://0303." ;
	myserver3 = "http://00303." ;
	myserver4 = "http://000303." ;
	
	if ((myserver == myfilename.substring (0,myserver.length)) ||
	    (myserver1 == myfilename.substring (0,myserver1.length)) ||
	    (myserver2 == myfilename.substring (0,myserver2.length)) ||
	    (myserver3 == myfilename.substring (0,myserver3.length)) ||
	    (myserver4 == myfilename.substring (0,myserver4.length)))
	{	
		
		/*
		document.write ("<FONT SIZE=-2><CENTER>") ;
		document.write ("Automatic translation to ") ;
		
		writetrans ("ef","fr","french,") ;
		writetrans ("eg","de","german,") ;
		writetrans ("ei","it","italian,") ;
		writetrans ("ep","pt","portuguese,") ;
		writetrans ("es","es","spanish.") ;
		
		document.write ("</CENTER></FONT>") ;
		*/
		
		welchesframe = "" ;
		if (subframeset.length != 0) 
		{
			if (parent.parent.frames.length > 0)
			{
				welchesframe = parent.parent.frames[0].name ;
			}
		}
		else
		{
			if (parent.frames.length > 0)
			{
				welchesframe = parent.frames[0].name ;
			}
        	} ;
        	if (welchesframe != "hchsmenue")
        	{
        		if (subframeset.length != 0)
        		{
        			window.open("/cgi/content/frameset?"+escape("/cgi/content/frameset?"+escape(myfilename)+"&"+escape(subframeset)),"_top",
        			            'TOOLBAR=yes,LOCATION=yes,SCROLLBARS=yes,RESIZABLE=yes,DIRECTORYS=yes,STATUS=yes,MENUBAR=yes,WIDTH=800,HEIGHT=700') ;
        		}
        		else
       		 	{
        			window.open("/cgi/content/frameset?"+escape(myfilename),"_top",
        			            'TOOLBAR=yes,LOCATION=yes,SCROLLBARS=yes,RESIZABLE=yes,DIRECTORYS=yes,STATUS=yes,MENUBAR=yes,WIDTH=800,HEIGHT=700') ;
 		       	}
        	}	 
	}
}