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

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

	if (linier != "") {
		inputForm.action = 'cmspage.asp?pagefile=iching&title=I+Ching&dir=' +setHexa(Low1, Upp1) +'&lin=' +linier +'&afl=' +setHexa(Low2, Upp2);
			}
		else {
		inputForm.action = 'cmspage.asp?pagefile=iching&title=I+Ching&dir=' +setHexa(Low1, Upp1) +'&lin=' +linier +'&afl=';
			}

	inputForm.submit();

  }