// Javascriptfunktioner för sidorna Skapelsetro och Julstjärnan.
// Funktionerna får fritt användas i kristna evangeliska syften.
// I övriga fall - Mejla mig för ev. tillståndsgivande!



function till_frame(){
	// Hoppar automatiskt till frame-sidan (huvudsidan creation.htm)
	// då man försöker öppna textsidorna utanför huvudsidan.
	// OBS! Används ej mer på de nya sidorna OBS!
	if(top.frames.length == 0) { top.location = "creation.htm"; }
}



function spamcrypt() {
// Döljer e-postadressen för spam och mail-sniffare genom att:
// 1. Flytta mailtaggen utanför HTML-dokumentet (allt skapas i denna fil).
// 2. Dölja mailtaggen med hårdkodad ASCII (decimalvärden i st f bokstäver).
// 3. Dela upp mailtaggen i mindre delar.

	with (String) {
		var mailtag	= fromCharCode(60,97,32,104,114,101,102,61,34,
								   109,97,105,108,116,111,58);

		// E-postadressen, separerad i tre steg. Använd ASCII-tabellens
		// decimalvärden då du konstruerar adressen.
		mailtag	+= fromCharCode(115,107,97,112,101,108,115,101,116,114,111);	// namn
		mailtag	+= fromCharCode(64);	// 'snabel-a'
		mailtag	+= fromCharCode(103,109,97,105,108,46,99,111,109); // server

		// Kommentera bort de två underliggande raderna om du tycker att det
		// är onödigt med subject i mailet - i detta fall titeln på hemsidan.
		// mailtag	+= fromCharCode(63,115,117,98,106,101,99,116,61);
		// mailtag	+= document.title;

		mailtag	+= fromCharCode(34,62);	

		// Kommentera bort de två underliggande raderna om du inte vill
		// ha med en bild i länken.	Annars - använd rätt sökväg och namn!
		// mailtag	+= "<img src=\"images/e_mail.gif\" width=\"70\" he";		// Klickbar bild.
		// mailtag	+= "ight=\"50\" border=\"0\"><br>";
		
		mailtag	+= "Christer Holmdahl";		//Klickbar text.
		mailtag	+= fromCharCode(60,47,97,62);
		
	}

	document.write(mailtag);
}



function citatinl(sidnr){
	//Skriver slumpvis ett nytt evolutionscitat varje gång sidan uppdateras.

	citat = new Array();
	
	for (i=0; i<10; i++) {
		citat[i] = new Array();
	}

	
	
	// Första dimensionen anger den anropande sidan.
	// Antalet möjliga citat är obegränsat men antalet sidor beror på for-loopen ovan (f.n. satt till 10 element).


// Inledning (generella citat)
	citat[0][0] = "\"Du kommer att bli mycket besviken (på den kommande boken); den kommer att vara pinsamt hypotetisk. Den " +
						 "kommer troligen inte att vara till någon annan nytta än att sammanställa några fakta; även om jag själv tror " +
						 "att jag ungefär kan se möjligheten med arternas uppkomst. Men, ack, hur vanligt, hur allmänt utbrett det " +
						 "är för en upphovsman att övertyga sig själv om sanningen i hans egna dogmer.\"" +
						 "<br><b>Charles Darwin, 1858. - 'John Lofton's Journal', The Washington Times, 8 Feb 1984.</b>";
						 
	citat[0][1] = "\"Det är väldigt lätt att komma på historier om hur en form gav upphov till en annan, och att finna " +
						 "anledningar till varför stadierna skulle gynnas genom naturligt urval. Men sådana historier är ingen " +
						 "del av vetenskapen, för det finns ingen möjlighet att testa dem.\"" +
						 "<br><b>Dr. Collin Patterson, palaeontolog 'Darwin's enigma' - Luther D. Sunderland, 1984.</b>";
						 
	citat[0][2] = "\"Faktum är, evolutionen blev på ett sätt en vetenskaplig religion; nästan samtliga vetenskapsmän har " +
						 "accepterat den och många är beredda att 'böja' deras observationer till att passa in i den.\"" +
						 "<br><b>H.S. Lipson - 'A physicist looks at evolution' Physics Bulletin, vol. 31, 1980.</b>";
						 
	citat[0][3] = "\"Evolutionen är obevisad och obevisbar. Vi tror på den enbart eftersom det enda alternativet är skapelse, " +
						 "och det är otänkbart.\"<br><b>Sir Arthur Keith Förord till 'Origin of the Species' jubileumsupplaga, 1928.</b>";
						 
	citat[0][4] = "\"Evolutionen är en saga för vuxna. Teorin har inte varit till någon som helst hjälp för den vetenskapliga " +
						 "utvecklingen. Den är oanvändbar.\"<br><b>Prof. Louis Bounoure Föreståndare för det zoologiska museet " +
						 "i Strasbourg.</b>";
						 
	citat[0][5] = "\"Jag tror att den darwinistiska myten en dag kommer att rankas som det största bedrägeriet i " +
								"vetenskapens historia.\"<br><b>Søren Løvtrup, 'Darwinism: The Refutation of a Myth' (New York: Croom Helm, " +
								"1987), s. 422.</b>"
	citat[0][6] = "\"Även om allt data pekar mot en intelligens beträffande design är en sådan hypotes utesluten från vetenskapen därför att den " +
								"inte är naturalistisk.\"<br><b>Scott Todd, biolog vid Kansas statliga universitet, Nature, vol 401 1999, s. " +
								"423.</b>"
								
// Evolutionen
	citat[1][0] = "\"De vetenskapsmän som går omkring och undervisar att evolutionen är ett livets faktum är stora bedragare, " + 
						 "och den skröna som de berättar kan vara den största bluffen någonsin. Då det gäller att förklara evolutionen " + 
						 "har vi inte ett jota av fakta.\"<br><b>Dr. T. N. Tahmisian Atomic Energy Commission, USA.</b>";
						 
	citat[1][1] = "\"Evolution, åtminstone på det sätt som Darwin talar om, kan inte upptäckas inom en betraktares livstid.\"" +
						 "<br><b>David B. Kitts 'Palaeontology and evolutionary theory' - Evolution, Sept 1974.</b>";
						 
	citat[1][2] = "\"Själv är jag övertygad om att evolutionsteorin, speciellt i den omfattning som den har tillämpats, kommer " +
						 "att vara ett av de stora skämten i våra framtida historieböcker. Våra efterkommande kommer att förundra sig " +
						 "över hur en sådan klen och tvivelaktig hypotes har kunnat bli accepterad med den ofattbara godtrogenhet " +
						 "som den har.\"" +
						 "<br><b>Malcolm Muggeridge, journalist och filosof. Pascal Lectures, University of Waterloo, Ontario, Canada.</b>";
						 
	citat[1][3] = "\"Den darwinistiska teorin är felaktig och det fortsatta fasthållandet vid den är ett hinder för att upptäcka " +
						 "den korrekta evolutionsteorin.\"<br><b>Fred Hoyle, Astronom.</b>";
						 
	citat[1][4] = "\"Det det spelar ingen roll hur många de än kan vara,<br>mutationer producerar inte någon form av evolution.\"" +
						 "<br><b>Pierre-Paul Grasse<br>F.d. president i den franska vetenskapsakademien<br>'Evolution of living organisms' " +
						 "1977, s 88.</b>";
						 
	citat[1][5] = "\"Sannolikheten för att livet bara uppstod är ungefär lika trolig som om en tyfon drar genom ett skrotupplag " +
  						"och konstruerar en Boeing 747\"<br><b>Chandra Wickramasinghe - \"Threats on Life of Controversial Astronomer\"" +
  						" New Scientist, 21 Jan 1982</b>";
  						
	citat[1][6] = "\"Kan ni säga mig någonting som ni vet om evolutionen, något enda, som är sant? Jag ställde frågan till " +
  						"geologerna vid Field Museum och allt jag fick till svar var tystnad. Jag ställde frågan " +
  						"till medlemmarna i Evolutionary Morphology Seminar på Chicagouniversitetet, en högt ansedd samling " +
  						"av evolutionister, och allt jag fick där var en lång tystnad. Slutligen sade någon, 'Jag vet EN sak - den " +
  						"borde aldrig läras ut i skolorna'.\"<br><b>Dr. Colin Patterson, paleontolog, Brittiska naturhistoriska museet</b>"

	citat[1][7] = "\"Evolution genom naturligt urval... har på senare tid kommit att fungera mer som en antiteori som man hänvisar till " + 
						"för att dölja pinsamma experimentella brister och legitimisera rön som i bästa fall är diskutabla och i värsta " + 
						"fall inte ens är fel.\"<br><b>Robert B. Laughlin, nobelpristagare i fysik 1998, A Different Universe (New York: " +
						"Basic Books, 2005)</b>"


// Mätmetoder
 	citat[2][0] = "\"Om en C14-datering stödjer våra teorier, sätter vi den i huvudtexten. Om den inte helt motsäger dem, " +
  						"sätter vi dem i en fotnot. Och om den är helt 'ur tiden', slänger vi den bara.\"<br><b>Ingrid U. Olsson, " +
  						"ed. -  'Radiocarbon Variations and Absolute Chronology' (Wiley, 1970)</b>";
  
  
// Människan
 	citat[3][0] = "\"...det är berättigat att fråga om mycket av vetenskap alls återstår att finna inom detta fält. Historien " +
  						"om pildownbluffen ger ett tämligen bra svar.\"<br><b>Lord Zuckerman om människans ursprung - '" +
  						"Beyond the Ivory Tower'</b>";
  						
  citat[3][1] = "\"Den övervägande majoriteten av konstnärernas föreställningar baseras mer på fantasier än " +
 							"på bevis... Konstnärerna måste skapa någonting mellan en apa och en människa; ju äldre exemplaret " +
 							"påstås vara,<br>desto mer aplikt blir det.\"<br><b>Anthro Art, Science Digest April 1981 s. 41</b>"
 							
 	citat[3][2] = "\"Huvudproblemet med att återskapa människans ursprung är bristen på fossila bevis: allt som finns " +
							"skulle kunna visas upp på ett middagsbord.\"<br><b>New Scientist 20 Maj 1982 s. 491</b>";
 
// Universum
 	citat[4][0] = "\"Jag misstänker att solen är 4,5 miljarder år gammal. Men, förutsatt att några nya och oväntade resultat " +
  						"visar motsatsen, och med en del tid för hektisk omkalkylering och teoretisk omjustering, antar jag att vi " +
  						"kunde leva med biskop Usshers värde på åldern för jorden och solen. Jag tror inte att vi har mycket när det " +
  						"gäller observerbara bevis inom astronomin som motsäger den.\"<br><b>John Eddy - Baton Rouge, Louisiana 1978</b>";

 	citat[4][1] = "\"Vissa har sagt att vetenskapen är en metod för att ställa frågor om naturen. Om detta är sant kan vi säga " + 
  						"att Big bang-anhängarna är människor som inte kan godta ett nej som ett svar.\"" +
  						"<br><b>Eric J Lerner - Universe, The Cosmology Quest</b>";
  						
  citat[4][2] = "\"Det verkar troligt att rödförskjutningen inte beror på ett expanderande universum och mycket av " +
  						"spekulationerna kring universums struktur kan kräva förnyad undersökning.\"" +
  						"<br><b>Edwin Hubble, PASP, 1947</b>"


// Jorden
 	citat[5][0] = "\"Tvärtemot vad de flesta vetenskapsmän skriver, stödjer inte fossilen den Darwinistiska teorin om " +
  						"evolutionen eftersom det är denna teori (det finns flera) som vi använder för att tolka fossilen. Genom att " +
  						"göra detta gör vi oss skyldiga till cirkelresonemang om vi sedan påstår att fossilen stödjer denna " +
  						"teori.\"<br><b>Ronald R. West, Assist. prof. i Paleobiologi - 'Paleoecology and uniformitarianism' " +
  						"- Compass, vol 45, 1986.</b>";
  						
  citat[5][1] = "\"Den extrema sällsyntheten av övergångsformer i det fossila materialet kvarstår som paleontologins " +
  						"fackhemlighet. Utvecklingsträden som pryder våra skolböcker har enbart information vid grenarnas " +
  						"toppar och knutpunkter; resten är slutledningar, dock rimliga, och inte bevis från fossil.\"<br><b>" +
  						"Stephen Jay gould, 'Evolution's Erratic Pace', Natural History, vol. 86 (Maj 1977), s. 14</b>";
  						
  citat[5][2] = "\"Jag instämmer helt i dina kommentarer beträffande frånvaron av klara exempel på evolutionära " +
  						"övergångar i min bok. Om jag kände till några, fossila eller levande, skulle jag självklart ha " + 
  						"inkluderat dem... Jag måste erkänna att det inte finns ett enda sådant fossil med vilket man kan föra " +
  						"ett vattentätt resonemang.\"<br><b>Dr. Colin Patterson, paleontolog vid British Museum of " +
  						"Natural History.</b>"


  var a = Math.floor(Math.random() * citat[sidnr].length);
	document.write(citat[sidnr][a]);
}



function meny() {
	// Skriver ut en tabellstrukturerad meny
	
	document.write('<table class="menu" border="0" cellspacing="5">');
	document.write('<tr><td><a href="inledning.htm">Inledning</a></td></tr>');
	document.write('<tr><td><a href="evolution.htm">Evolutionen</a></td></tr>');
	document.write('<tr><td><a href="radioakt.htm">Mätmetoder</a></td></tr>');
	document.write('<tr><td><a href="jorden.htm">Jorden</a></td></tr>');
	document.write('<tr><td><a href="universum.htm">Universum</a></td></tr>');
	document.write('<tr><td><a href="manniskan.htm">Människan</a></td></tr>');
	document.write('<tr><td><a href="lankar.htm">Länkar</a></td></tr>');
	document.write('<tr><td><hr></td></tr>');
	document.write('<tr><td><table><tr><td><img src="images/ny.gif" /></td><td><a href="darwin200.htm">Darwin<br>200 år</a></td></tr></table></td></tr>');
	document.write('<tr><td><hr></td></tr>');
	document.write('<tr><td><a href="http://holmdahl.wordpress.com" target="_blank">Min Blogg!</a></td></tr>');
	document.write('</table>');
}

function meny2() {
	// Skriver ut en meny i listform
	
	document.write('<ul class="navigering">');
	document.write('<li><a href="inledning.htm">Inledning</a></li>');
	document.write('<li><a href="evolution.htm">Evolutionen</a></li>');
	document.write('<li><a href="radioakt.htm">Mätmetoder</a></li>');
	document.write('<li><a href="jorden.htm">Jorden</a></li>');
	document.write('<li><a href="universum.htm">Universum</a></li>');
	document.write('<li><a href="manniskan.htm">Människan</a></li>');
	document.write('<li class="ny"><a href="darwin200.htm">Darwin 200 år</a></li>');
	document.write('<li><a href="lankar.htm">Länkar</a></li>');
	document.write('<li><a href="http://holmdahl.wordpress.com" target="_blank">Min Blogg!</a></li>');
	document.write('</ul>');
}


function senast_modifierad() {
	// Skriver ut ändringsdatum för filen.
	
	lastmod = document.lastModified;
	lastmoddate = Date.parse(lastmod);
	if (lastmoddate == 0) {               // okänt datum (eller 1 januari 1970)
		document.writeln("Senast ändrad: Okänt datum");
	}
	else {
		d = new Date(lastmod);
		year = (d.getYear() % 100) + 2000; // Krångligt och fult, men nödvändigt för att årtalet 
		                                   // skall visas korrekt i alla browsers :(
		
		document.write("Senast ändrad: ", d.getDate() + " " + manad(d.getMonth()) + " " + year);
	}
}



function manad(man) {
	// Svenska månadsnamn gör det hela snyggare.
	// Anropas från funktionen senast_modifierad().
	
	switch( man ) {
		case 0: s = "januari"; break;
		case 1: s = "februari"; break;
		case 2: s = "mars"; break;
		case 3: s = "april"; break;
		case 4: s = "maj"; break;
		case 5: s = "juni"; break;
		case 6: s = "juli"; break;
		case 7: s = "augusti"; break;
		case 8: s = "september"; break;
		case 9: s = "oktober"; break;
		case 10: s = "november"; break;
		case 11: s = "december"; break;
		default: s = "?"
	}
	return s;
}