function tildel(nummer) {
  tid=new Date();
  vent=1;
  if ( 1 || document.all || document.layers) {
    data=Math.round(5.5+(3.99)*Math.random())
    }
  else {
    if (nummer==0) {
      data=(6+(Math.round(tid.getTime()/10))%4); }
    else
    if (nummer==1) {
      data=(6+(Math.round(tid.getTime()/10)%101)%4); }
    else
    if (nummer==2) {
      data=(6+(Math.round(tid.getTime()/10)%103)%4); }
    else
    if (nummer==3) {
      data=(6+(Math.round(tid.getTime()/10)%107)%4); }
    else
    if (nummer==4) {
      data=(6+(Math.round(tid.getTime()/10)%109)%4); }
    else
    if (nummer==5) {
      data=(6+(Math.round(tid.getTime()/10)%113)%4); }
    else {
      data=0; }
    }
  return data
  }

function potens(exp) {
  data=0;
  if (exp==0) data=1;
  if (exp==1) data=2;
  if (exp==2) data=4;
  return data;
  }

function setHexa(lower, upper) {
  if (lower==0 && upper==0) return 2;
  if (lower==0 && upper==1) return 16;
  if (lower==0 && upper==2) return 8;
  if (lower==0 && upper==3) return 45;
  if (lower==0 && upper==4) return 23;
  if (lower==0 && upper==5) return 35;
  if (lower==0 && upper==6) return 20;
  if (lower==0 && upper==7) return 12;
  if (lower==1 && upper==0) return 24;
  if (lower==1 && upper==1) return 51;
  if (lower==1 && upper==2) return 3;
  if (lower==1 && upper==3) return 17;
  if (lower==1 && upper==4) return 27;
  if (lower==1 && upper==5) return 21;
  if (lower==1 && upper==6) return 42;
  if (lower==1 && upper==7) return 25;
  if (lower==2 && upper==0) return 7;
  if (lower==2 && upper==1) return 40;
  if (lower==2 && upper==2) return 29;
  if (lower==2 && upper==3) return 47;
  if (lower==2 && upper==4) return 4;
  if (lower==2 && upper==5) return 64;
  if (lower==2 && upper==6) return 59;
  if (lower==2 && upper==7) return 6;
  if (lower==3 && upper==0) return 19;
  if (lower==3 && upper==1) return 54;
  if (lower==3 && upper==2) return 60;
  if (lower==3 && upper==3) return 58;
  if (lower==3 && upper==4) return 41;
  if (lower==3 && upper==5) return 38;
  if (lower==3 && upper==6) return 61;
  if (lower==3 && upper==7) return 10;
  if (lower==4 && upper==0) return 15;
  if (lower==4 && upper==1) return 62;
  if (lower==4 && upper==2) return 39;
  if (lower==4 && upper==3) return 31;
  if (lower==4 && upper==4) return 52;
  if (lower==4 && upper==5) return 56;
  if (lower==4 && upper==6) return 53;
  if (lower==4 && upper==7) return 33;
  if (lower==5 && upper==0) return 36;
  if (lower==5 && upper==1) return 55;
  if (lower==5 && upper==2) return 63;
  if (lower==5 && upper==3) return 49;
  if (lower==5 && upper==4) return 22;
  if (lower==5 && upper==5) return 30;
  if (lower==5 && upper==6) return 37;
  if (lower==5 && upper==7) return 13;
  if (lower==6 && upper==0) return 46;
  if (lower==6 && upper==1) return 32;
  if (lower==6 && upper==2) return 48;
  if (lower==6 && upper==3) return 28;
  if (lower==6 && upper==4) return 18;
  if (lower==6 && upper==5) return 50;
  if (lower==6 && upper==6) return 57;
  if (lower==6 && upper==7) return 44;
  if (lower==7 && upper==0) return 11;
  if (lower==7 && upper==1) return 34;
  if (lower==7 && upper==2) return 5;
  if (lower==7 && upper==3) return 43;
  if (lower==7 && upper==4) return 26;
  if (lower==7 && upper==5) return 14;
  if (lower==7 && upper==6) return 9;
  if (lower==7 && upper==7) return 1;
  return -1;
  }

function I_Ching_kast()
{
	// definering af variable
	this.Kast_1 = new Array(6);
	this.Kast_2 = new Array(6);
	this.Linier = new Array(6);
	this.Extra=0;
	this.Low1=0;
	this.Low2=0;
	this.Upp1=0;
	this.Upp2=0;
	//tilskrivning af verdier
	for (var x=0; x<6; x++)
	{
		this.Kast_1[x]=tildel(x);
		if (this.Kast_1[x]==0)
		{
			alert("\nDer er fejl i kastene\n- send mig venligst en E-mail!");
		}
		if (this.Kast_1[x]==6 || this.Kast_1[x]==9)
		{
			this.Linier[x]=1;
			this.Extra=1;
		}
		else
		{
			this.Linier[x]=0;
		}
		this.Kast_2[x]=this.Kast_1[x];
		if (this.Kast_1[x]==6)
		{
			this.Kast_2[x]=7;
		}
		if (this.Kast_1[x]==9)
		{
			this.Kast_2[x]=8;
		}
		if (x<3)
		{
			if ((this.Kast_1[x]%2)==1)
			{
				this.Low1+=potens(x);
			}
			if ((this.Kast_2[x]%2)==1)
			{
				this.Low2+=potens(x);
			}
		}
		else
		{
			if ((this.Kast_1[x]%2)==1)
			{
				this.Upp1+=potens(x-3);
			}
			if ((this.Kast_2[x]%2)==1)
			{
				this.Upp2+=potens(x-3);
			}
		}
	}

	var linier = "";
	if (this.Extra==1)
	{
		for (var x=0; x<6; x++)
		{
			if (this.Linier[x]==1)
			{
				linier += (x+1);
			}
		}
	}

	this.Linier = linier;
	return this;
}

function I_Ching(inputForm) {
	ichType = inputForm.ichType.value;
	switch ( ichType) 
	{
		case 'denkloge' :
		{
			ichQuery = '';
			for (var x=1; x<=6; x++)
			{
				ichUdvidet = new I_Ching_kast();
				ichQuery += '&dir' +x +'=' +setHexa(ichUdvidet.Low1, ichUdvidet.Upp1);
				ichQuery += '&lin' +x +'=' +ichUdvidet.Linier;
				if ( ichUdvidet.Linier != "")
				{
					ichQuery += '&afl' +x +'=' +setHexa(ichUdvidet.Low2, ichUdvidet.Upp2);
				}
				else
				{
					ichQuery += '&afl' +x +'=';
				}
			}
			inputForm.action = 'cmspage.asp?pagefile=iching&type=denkloge&title=I+Ching' +ichQuery +'';
			break;
		}
		case 'bevidsthed' :
		{
			ichQuery = '';
			for (var x=1; x<=4; x++)
			{
				ichUdvidet = new I_Ching_kast();
				ichQuery += '&dir' +x +'=' +setHexa(ichUdvidet.Low1, ichUdvidet.Upp1);
				ichQuery += '&lin' +x +'=' +ichUdvidet.Linier;
				if ( ichUdvidet.Linier != "")
				{
					ichQuery += '&afl' +x +'=' +setHexa(ichUdvidet.Low2, ichUdvidet.Upp2);
				}
				else
				{
					ichQuery += '&afl' +x +'=';
				}
			}
			inputForm.action = 'cmspage.asp?pagefile=iching&type=bevidsthed&title=I+Ching' +ichQuery +'';
			break;
		}
		case 'udvidet' :
		{
			ichQuery = '';
			for (var x=1; x<=4; x++)
			{
				ichUdvidet = new I_Ching_kast();
				ichQuery += '&dir' +x +'=' +setHexa(ichUdvidet.Low1, ichUdvidet.Upp1);
				ichQuery += '&lin' +x +'=' +ichUdvidet.Linier;
				if ( ichUdvidet.Linier != "")
				{
					ichQuery += '&afl' +x +'=' +setHexa(ichUdvidet.Low2, ichUdvidet.Upp2);
				}
				else
				{
					ichQuery += '&afl' +x +'=';
				}
			}
			inputForm.action = 'cmspage.asp?pagefile=iching&type=udvidet&title=I+Ching' +ichQuery +'';
			break;
		}
		case 'enkelt' :
		default :
		{
			IChingKast = new I_Ching_kast();
			if (IChingKast.Linier != "")
			{
				inputForm.action = 'cmspage.asp?pagefile=iching&title=I+Ching&dir=' +setHexa(IChingKast.Low1, IChingKast.Upp1) +'&lin=' +IChingKast.Linier +'&afl=' +setHexa(IChingKast.Low2, IChingKast.Upp2) +'&type=enkelt';
			}
			else
			{
				inputForm.action = 'cmspage.asp?pagefile=iching&title=I+Ching&dir=' +setHexa(IChingKast.Low1, IChingKast.Upp1) +'&lin=' +IChingKast.Linier +'&afl=&type=enkelt';
			}
			break;
		}
	}

	inputForm.submit();

  }