// Code written by Natalie V. Zubar, revised by Willy De Roeck. Translate by kwebbel.net
// Author claims no responsibility for esoteric method of past-life calculations and its results.
// If you decided to use it you were a thief in your past life and you will cheat forever!

function mod(x, x_div){
    for (var i=x; i>=x_div; i -= x_div);
    return i;
}

function checkNum(str, min, max) {
    if (str == "") {
        alert("Gelieve de datum volledig in te vullen !");
        return false;    }

    for (var i = 0; i < str.length; i++) {
        var ch = str.substring(i, i + 1);
        if (ch < "0" || ch > "9") {
            alert("Nummer, aub!");
            return false;
        }
    }

    var val = parseInt(str, 10);
    if ((val < min) || (val > max)) {
        alert("Geef een nummer van  1 tot "+max+".");
        return false;
    }

    return true;
}



function pastlife(form){
	var sex; 

//Check for a valid date			

     if ((checkNum(form.day.value,1,31)) && (checkNum(form.month.value,1,12)) &&
        (checkNum(form.year.value,0,99)))  {	
	var day = parseInt(form.day.value,10);
	var cur_month = parseInt(form.month.value,10);
	var cur_year = parseInt(form.year.value,10);

// define past life sex

	if (cur_month-2*(parseInt(cur_month/2)) == 0){
		if (cur_year - 4*(parseInt(cur_year/4)) == 0)
			sex = 1; else sex = 2} 
  	      else if (cur_year - 4*(parseInt(cur_year/4)) == 0)
			sex = 0; else sex = 1};



		msgWindow=window.open("","diagnosis","width=900,height=700,screenX=50,screenY=50,toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no");

	msgWindow.document.open(); 
	msgWindow.document.bgColor="black";
 	msgWindow.document.writeln("<BODY BACKGROUND=starsglow1.gif LINK=#FFB401 VLINK=#FFB401>");
	msgWindow.document.write("<div align=center><img src=http://users.pandora.be/gad/re/uvijnklein.jpg></div>");	
	msgWindow.document.write("<FONT Color=red Face=Arial><B><I>Diagnose:</I></B></FONT><FONT Color=white Face=Arial>"); 
	msgWindow.document.write("<P>Ik weet niet hoe u er zich bij voelt, maar u was een ");


	var yearString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";

	var ys; ys = yearString.charAt(cur_year);

	var p1; var p2; var place;
	if (sex == 1){

		msgWindow.document.write("<FONT color=yellow>man</FONT>");



	//for males	



	var indexString = "VTWZXYURPSOMNQYWZVTUXOMPSQRNWUXTYZVMRNQOPSUZVYWXTRPSOMNQTYUXVWZPNQMRSOYWZVTUXNSORPQM";

	

	var profString = "CDBADCABBACD";

		

	p1 = profString.charAt(cur_month-1);

	

	for (i=0;i<=6;i++){

		if (ys == indexString.charAt((cur_month-1)*7+i)) break}



	p2 = i+1;




	//PLACE OF BIRTH Male




	if (p2 == 1){

		if (day < 3) place=5;

		else if (day < 10) place=46;

		else if (day < 17) place=37;

		else if (day < 24) place=48;

		else if (day < 31) place=65;

		else place=6};



	if (p2 == 2){

		if (day < 8) place=28;

		else if (day < 15) place=58;

		else if (day < 22) place=10;

		else if (day < 29) place=38;

		else place=11};



	if (p2 == 3){

		if (day < 4) place=29;

		else if (day < 11) place=53;

		else if (day < 18) place=30;


		else if (day < 25) place=69;

		else place=1};



	if (p2 == 4){

		if (day < 7) place=74;

		else if (day < 14) place=4;

		else if (day < 21) place=47;

		else if (day < 28) place=20;

		else place=26};



	if (p2 == 5){

		if (day < 5) place=23;

		else if (day < 12) place=21;

		else if (day < 19) place=44;

		else if (day < 26) place=16;

		else place=43};



	if (p2 == 6){

		if (day < 6) place=34;

		else if (day < 13) place=27;

		else if (day < 20) place=14;

		else if (day < 27) place=41;

		else place=50};



	if (p2 == 7){

		if (day < 2) place=73;

		else if (day < 9) place=63;

		else if (day < 16) place=66;

		else if (day < 23) place=54;

		else if (day < 30) place=61;

		else place=72}

}

	else {

	//for females



   		msgWindow.document.write("<FONT color=yellow>vrouw</FONT>");



	var indexString = "OMPSQRNYWZVTUXSQMPNORUZVYWXTQORNSMPZXTWUVYOMPSQRNXVYUZTWNSORPQMVTWZXYUSQMPNORTYUXVWZ";

	

	var profString = "ACDBCABDDBCA";

		

	p1 = profString.charAt(cur_month-1);

	

	for (i=0;i<=6;i++){

		if (ys == indexString.charAt((cur_month-1)*7+i)) break}



	p2 = i+1;

 
		//PLACE OF BIRTH Female



	if (p2 == 1){

		if (day < 3) place=22;

		else if (day < 10) place=17;

		else if (day < 17) place=36;

		else if (day < 24) place=59;

		else if (day < 31) place=51;

		else place=9};



	if (p2 == 2){

		if (day < 8) place=40;

		else if (day < 15) place=2;

		else if (day < 22) place=64;

		else if (day < 29) place=56;

		else place=35};



	if (p2 == 3){

		if (day < 4) place=19;

		else if (day < 11) place=67;

		else if (day < 18) place=13;

		else if (day < 25) place=32;

		else place=31};



	if (p2 == 4){

		if (day < 7) place=15;

		else if (day < 14) place=49;

		else if (day < 21) place=12;

		else if (day < 28) place=39;

		else place=33};



	if (p2 == 5){

		if (day < 5) place=42;

		else if (day < 12) place=60;

		else if (day < 19) place=24;

		else if (day < 26) place=3;

		else place=52};



	if (p2 == 6){

		if (day < 6) place=18;

		else if (day < 13) place=25;

		else if (day < 20) place=57;

		else if (day < 27) place=45;

		else place=62};



	if (p2 == 7){

		if (day < 2) place=8;

		else if (day < 9) place=55;

		else if (day < 16) place=70;


		else if (day < 23) place=68;

		else if (day < 30) place=71;

		else place=7}

}

	

	var pro; pro=p1+p2;



	msgWindow.document.write(" in uw laatste, eerdere re&iuml;ncarnatie." + "<BR>");

	

	//msgWindow.document.write("month=" + cur_month + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");



	

	//countries data

	var countryString="";

	if (place == 1) countryString="Alaska"; 

	else if (place == 2) countryString="Scandinavie"; 

	else if (place == 3) countryString="Noord-Canada"; 

	else if (place == 4) countryString="Zuid-Canada"; 

	else if (place == 5) countryString="West-Canada";

	else if (place == 6) countryString="Oost-Canada"; 

	else if (place == 7) countryString="Vietnam"; 

	else if (place == 8) countryString="Groenland"; 

	else if (place == 9) countryString="Amerika Noord-West"; 

	else if (place == 10) countryString="Amerika Zuid-West";

	else if (place == 11) countryString="Amerika Noord-Centraal"; 

	else if (place == 12) countryString="Amerika Zuid-Centraal"; 

	else if (place == 13) countryString="Amerika Noord-Oost"; 

	else if (place == 14) countryString="Amerika Zuid-Oost"; 

	else if (place == 15) countryString="Noorwegen"; 

	else if (place == 16) countryString="Scotland"; 

	else if (place == 17) countryString="Noord-Engeland"; 

	else if (place == 18) countryString="Centraal-Engeland"; 

	else if (place == 19) countryString="Zuid-Engeland";

	else if (place == 20) countryString="Nederland"; 

	else if (place == 21) countryString="Ierland"; 

	else if (place == 22) countryString="Noord-Europa"; 

	else if (place == 23) countryString="Frankrijk"; 

	else if (place == 24) countryString="Spanje"; 

	else if (place == 25) countryString="Portugal"; 

	else if (place == 26) countryString="Oostenrijk"; 

	else if (place == 27) countryString="Duitsland"; 

	else if (place == 28) countryString="Ukraine"; 

	else if (place == 29) countryString="Italie"; 

	else if (place == 30) countryString="Turkije"; 

	else if (place == 31) countryString="West-Rusland"; 

	else if (place == 32) countryString="Siberie"; 

	else if (place == 33) countryString="Centraal-Rusland"; 

	else if (place == 34) countryString="Griekeland"; 

	else if (place == 35) countryString="Iran"; 

	else if (place == 36) countryString="Saoudie-Arabie"; 

	else if (place == 37) countryString="Polen"; 

	else if (place == 38) countryString="Hongarije"; 

	else if (place == 39) countryString="Joegoeslavie"; 

	else if (place == 40) countryString="Roemenie"; 

	else if (place == 41) countryString="Bulgarije"; 

	else if (place == 42) countryString="Israel"; 

	else if (place == 43) countryString="Tibet"; 

	else if (place == 44) countryString="Burma"; 

	else if (place == 45) countryString="Thailand"; 

	else if (place == 46) countryString="Zuid-China"; 

	else if (place == 47) countryString="Mongolie"; 

	else if (place == 48) countryString="Noord-China"; 

	else if (place == 49) countryString="Korea"; 

	else if (place == 50) countryString="Noord-Japan"; 

	else if (place == 51) countryString="Zuid-Japan"; 

	else if (place == 52) countryString="Sumatra"; 

	else if (place == 53) countryString="Borneo"; 

	else if (place == 54) countryString="Filippijnen"; 

	else if (place == 55) countryString="Nieuw-Guinea"; 

	else if (place == 56) countryString="Noord-Australie"; 

	else if (place == 57) countryString="West-Australie"; 

	else if (place == 58) countryString="Oost-Australie";

	else if (place == 59) countryString="Zuid-Australie"; 

	else if (place == 60) countryString="Noord Nieuw-Zeeland"; 

	else if (place == 61) countryString="Zuid Nieuw-Zeeland"; 

	else if (place == 62) countryString="Oceania";

	else if (place == 63) countryString="Noord-India"; 

	else if (place == 64) countryString="Centraal-India"; 

	else if (place == 65) countryString="Zuid-India"; 

	else if (place == 66) countryString="Egypte"; 

	else if (place == 67) countryString="Noord-Afrika"; 

	else if (place == 68) countryString="West-Afrika"; 

	else if (place == 69) countryString="Centraal-Afrika"; 

	else if (place == 70) countryString="Zuid-Afrika"; 

	else if (place == 71) countryString="Mexico"; 

	else if (place == 72) countryString="Cyprus";

	else if (place == 73) countryString="Noorden van Latijns Amerika"; 

	else countryString="Zuiden van Latijns Amerika";



	//year of past life calculation

	

	var ys1;



	     if (ys == "M") var mString = "185014001125102507000700180014751800130011751100";

	else if (ys == "N") var mString = "092518750425185017501350080006750825182515250875";

	else if (ys == "O") var mString = "172516750875070013251825177508001075165009001625";

	else if (ys == "P") var mString = "145005001800100008000550165017001325072511001550";

	else if (ys == "Q") var mString = "100014500950042517001525135011001625122517251025";

	else if (ys == "R") var mString = "097513751200127504500825137513500700092509250725";

	else if (ys == "S") var mString = "122506251250142509251150147507501300157506001125";

	else if (ys == "T") var mString = "117514001825127517500975185011501600187515251850";

	else if (ys == "U") var mString = "090009000775105013751675107515000825072510251500";

	else if (ys == "V") var mString = "122507501825140011501325167512751475160009501200";

	else if (ys == "W") var mString = "057516750775047517001450085017251775102517750400";

	else if (ys == "X") var mString = "180015751425157515501200160012001300037507751250";

	else if (ys == "Y") var mString = "107512501000165009501825155014250800175010750875";

	else                    var mString = "097505251175085015751125177513500700065013501050";

	

	ys1 = mString.charAt((cur_month-1)*4); 

	if (ys1 == "0") ys1 = ""; {

	ys1 += mString.charAt((cur_month-1)*4+1);

		ys1 += mString.charAt((cur_month-1)*4+2); ys1 += mString.charAt((cur_month-1)*4+3)} ;

		

	//past life profession



           if (pro == "A1") var proString = "grafdelver, begrafenisondernemer";

	else if (pro == "A2") var proString = "filosoof, geleerde";

	else if (pro == "A3") var proString = "ontwerper, ingenieur, vakman";

	else if (pro == "A4") var proString = "chemicus, alchimist, gifmenger";

	else if (pro == "A5") var proString = "zeeman, kok, timmerman";

	else if (pro == "A6") var proString = "juwelier, horlogemaker";

	else if (pro == "A7") var proString = "medicus, chirurg, kruidengenezer";

	else if (pro == "C1") var proString = "herder, ruiter, boswachter";

	else if (pro == "C2") var proString = "leider, majoor, kapitein";

	else if (pro == "C3") var proString = "bibliothecaris, priester, houder van stamrelikwieën";

	else if (pro == "C4") var proString = "entertainer, muzikant, dichter, tempel-danser";

	else if (pro == "C5") var proString = "zeeman, handelaar, zakenman, makelaar";

	else if (pro == "C6") var proString = "monnik, bijenhouder, gangster";

	else if (pro == "C7") var proString = "schrijver, dramaticus, organisator van rituelen";

	else if (pro == "B1") var proString = "wegenbouwer, bruggenbouwer, havenwerker";

	else if (pro == "B2") var proString = "kaartenmaker, astroloog, astronoom";

	else if (pro == "B3") var proString = "handenarbeider, mecanicien";

	else if (pro == "B4") var proString = "krijger, jager, visser, iemand die offers brengt";

	else if (pro == "B5") var proString = "artiest, goochelaar, voorspeller";

	else if (pro == "B6") var proString = "zeeman, schoenmaker";

	else if (pro == "B7") var proString = "huizenbouwer, tempelbouwer, bouwer van kathedralen";

	else if (pro == "D1") var proString = "trainer, iemand die kleine dieren, vogels, insecten houdt";

	else if (pro == "D2") var proString = "predikant, uitgever, schrijver van oude opschriften";

	else if (pro == "D3") var proString = "boer, wever, kleermaker";

	else if (pro == "D4") var proString = "dramaticus, dirigent, musicus, dichter";

	else if (pro == "D5") var proString = "bankier, woekeraar, financier, rechter";

	else if (pro == "D6") var proString = "leraar, wiskundige, geoloog";

	else var proString = "danser, zander, acteur";

	 

	//characteristics



	
if (p2 == 1) {if (place-2*(parseInt(place/2)) > 0) var charString = "Persoon met veel energie, goed in planning en superviseren. Indien je simpelweg een vuilnisman was, dan zou je chef van de vuilnismannen zijn.";else var charString = "Revolutionair type. Jij brengt overal veranderingen teweeg - in de politiek, zakenwereld, godsdienst, huishouden. Kon een leider zijn."
}; if (p2 == 2) {if (place-2*(parseInt(place/2)) > 0) var charString = "Artistieke persoonlijkheid, altijd bezig lelijke dingen in mooie dingen te veranderen, grijs in mooie kleuren. Je zou altijd een manier vinden om je creatief uit te laten.";else var charString = "Schuchtere, geremde, stille persoon. Je had creatieve talenten, maar wachtte om ze te uiten. Soms vond je omgeving je een raar iemand."
}; if (p2 == 3) {if (place-2*(parseInt(place/2)) > 0) var charString = "Steeds op zoek naar waarheden en wijsheden. Je zou je toekomstige levens kunnen gezien hebben. Anderen zagen jou als een idealistische verhelderende wegwijzer naar de toekomst.";else var charString = "Je reisde graag, je hield ervan dingen te onderzoeken, uit te pluizen, je kon een detective of een spion zijn."
}; if (p2 == 4) {if (place-2*(parseInt(place/2)) > 0) var charString = "Je was een verstandige praktisch ingestelde persoon, een materialist zonder geestelijk geweten. Je eenvoudige wijsheid hielp de zwakkeren en de armen.";else var charString = "Je reisde graag, je hield ervan dingen te onderzoeken, uit te pluizen, je kon een detective of een spion zijn."
}; if (p2 == 5) {if (place-2*(parseInt(place/2)) > 0) var charString = "Alternatieve persoonlijkheid, mysterieus, enorm begaafd, in staat oude boeken te begrijpen. Toverkrachten, kan een dienaar geweest zijn van duistere krachten of machten.";else var charString = "Natuurlijk talent van een psycholoog, je wist de mogelijkheden te benutten. Koelbloedig en kalm onder alle omstandigheden."
}; if (p2 == 6) {if (place-2*(parseInt(place/2)) > 0) var charString = "Nieuwsgierig, vindingrijk, hield er van dingen haarfijn uit te pluizen en in boeken te snuffelen. Talent voor drama, natuurtalent als acteur."
else var charString = "Dergelijke mensen zijn steeds met nieuwe dingen bezig. Je hebt steeds van veranderingen gehouden, vooral op gebied van kunst, muziek en koken."
}; if (p2 == 7) {if (place-2*(parseInt(place/2)) > 0) var charString = "Je had de geest van een wetenschapper, altijd op zoek naar nieuwe verklaringen. De omgeving begreep hem vaak verkeerd of niet, maar respecteerde zijn kennis.";else var charString = "Meedogenloos karakter, zijn beslissingen in kritische omstandigheden altijd goed afwegend, met een heel goede zelfbeheersing en een sterk karakter. Meestal worden deze mensen graag gezien, maar niet altijd bemind."
};
if (p2 == 1){      if (day < 12) var lesString = "Je hebt de neiging om op gelijk welke manier problemen aangaande milieuvervuiling, recyclage, verkeerd gebruik van grondstoffen, verwijdering van radioactiviteit op te lossen, ook met psychologische methoden.";else if (day < 22) var lesString = "Uw les - het leren van nederigheid en geloof in spirituele zaken. Je zou geloven in hogere waarden.";             else  var lesString = "Je bent geneigd om te leren hoe je andere mensen kan begrijpen en om alle moeilijkheden van het leven het hoofd te bieden met een blij gemoed. Je zou anderen steeds helpen, en hen levenskracht/vreugde geven."};
if (p2 == 2) {     if (day < 12) var lesString = "Het lijkt je alsof je de wereld net iets anders ziet. Uw les - vertrouwen op je intuïtie als zijnde je beste gids in het huidige leven.";else if (day < 22) var lesString = "Uw belangrijkste taak - de wereld  mooier maken. Fysische en spirituele woestijnen wachten op Uw bijdrage. Blijven lachen!";              else var lesString = "Uw belangrijkste les  -- edelmoedigheid ontwikkelen alsook het gevoel van broederschap. Probeer minder afhankelijk te zijn van het materiële en leer enkel zoveel te hebben als je kan weer geven."};
if (p2 == 3) {     if (day < 12) var lesString = "Uw les - een vriendelijke houding aannemen ten opzichte van anderen, de kunst van het begrijpen en van medelijden onder de knie krijgen.";else if (day < 22) var lesString = "Uw les - ontwikkeling en uitbreiding van je geestelijke gevoel. Zoek een goede leraar, spendeer een deel van je tijd en energie aan zijn wijsheid.";              else var lesString = "Je voert je les uit door ouderen en kinderen te helpen. Je leefde toen om te leren je te bekommeren om de zwakken en de behoeftigen."};
if (p2 == 4) {     if (day < 12) var lesString = "Je zou je talent voor liefde, vreugde en enthousiasme moeten ontwikkelen en deze gevoelens aan iedereen overbrengen.";else if (day < 22) var lesString = "Je zou je eigenliefde en je bekwaamheid om hoop in de mensen hun hart te planten moeten ontwikkelen. Ambitie is niet alles. Echte rijkdom is in je ziel begraven.";              else var lesString = "Uw les - de jaloersheid en de woede in jezelf overwinnen en vervolgens ook bij de mensen die jou als hun gids kiezen. Je moet begrijpen dat deze zwakheden veroorzaakt zijn door angst en berouw."};
if (p2 == 5) {     if (day < 12) var lesString = "Jouw probleem - leren het universum te beminnen en te vertrouwen. Je bent geneigd te denken, te studeren, dingen te overwegen, innerlijke wijsheid te ontwikkelen.";else if (day < 22) var lesString = "Jouw probleem - het aanleren van vastberadenheid en volharding. Tegenspoed zou je niet meer klein mogen krijgen.";              else var lesString = "Schuchtere, eenzame en zelfzekere mensen zijn overal te vinden, en jouw probleem is deze neigingen in jezelf te overwinnen en andere mensen te hulp komen."};
if (p2 == 6) {     if (day < 12) var lesString = "De wereld loopt vol met zieke en eenzame mensen. Je zou degene helpen die er minder goed aan toe zijn dan jijzelf.";else if (day < 22) var lesString = "Er is een onzichtbare link tussen de materiële en de spirituele wereld. Uw les - zoeken, vinden en gebruiken van deze link.";              else var lesString = "Uw les - het aanleren van tact en billijkheid en dan dat ook aan anderen leren. Je zal gelukkiger zijn, wanneer je diegenen helpt die geen rede kennen."};
if (p2 == 7) {     if (day < 12) var lesString = "Uw les - bestuderen, in praktijk brengen en gebruiken van wijsheid, vervat in de psychologische wetenschap, en in oude manuscripten. Met een sterk geloof en hard werken zal je je ware lot/bestemming bereiken in het huidige leven.";else if (day < 22) var lesString = "Uw les - geweld en tweedracht in onze wereld bestrijden, om zijn oorsprong te begrijpen. Alle mondiale problemen hebben gelijkaardige oorzaken.";              else var lesString = "Magie is overal rondom U, in de meest gewone en alledaagse gebeurtenissen. Uw les - de magie aanleren en mensen helpen om het te begrijpen. Je bent een tovenaar!"};
msgWindow.document.write("<p>U werd geboren ergens in het moderne " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" omstreeks " + ys1.fontcolor("yellow") + ".<p>");

	msgWindow.document.write("Uw beroep was " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Uw kort psychologisch profiel toentertijd :<p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>Hetgene u onbewust onthouden heeft uit de levensloop van dit vorig leven :<p>" + lesString.fontcolor("yellow") + "<p><HR><p><div align=center><a href=http://www.kwebbel.net/hair/>Op welke leeftijd word ik kaal !?! Bereken het hier</a><P><a href=http://users.pandora.be/merelbeke/sa/nl.html>Ondek je sex-appeal in je huidig leven ... klik hier !</a><P><a href=http://www.kwebbel.net/dood/>Bereken uw sterfdatum in uw huidig leven</a> ");



msgWindow.document.write("<p><a href=http://users.pandora.be/gad/angel/nl/leeftijdsberekening.html>Hoe oud ben je ? ... op een andere planeet !?!</a><p><a href=http://www.kwebbel.net/voorspellingen>Laat uw toekomst voorspellen aan de hand van amuletten of talismannen</a><p><a href=http://users.pandora.be/gad/angel/nl/index.html>Test uw Beschermengel</a><p><a href=http://www.kwebbel.net/helderziend>Heb jij paranormale gaven ? Test hier in welke mate je helderziend bent.</a><P><a href=http://www.e-quies.com/funsms>Funny sms messages (en)</a> - <a href=http://www.e-quies.com/sms>Grappige sms berichten (nl)</a><P><B> NIEUW ! : <a href=http://www.kwebbel.net/hell>Ga ik naar de HEL na dit leven ?</a></div><p><HR></FONT> ");





msgWindow.document.write("<P><DIV align=center><iframe scrolling=no frameborder=no src=pubreincarnatie.html style=width:728px; height: 150px; border:0; overflow:hidden;></iframe></DIV><P>");



msgWindow.document.write("<P><DIV align=right><A HREF=http://www.kwebbel.net/nl.html><FONT COLOR=#ff0000 SIZE=+1>Meer ...  </FONT> <IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 