// Corightright 2004 by MIke Knueppel, LV, USA. All rights reserved! 
var MKPageExtension = ""+window.location;
var MKPEndStr = MKPageExtension.length
var MKPStartStr = MKPageExtension.indexOf("?")+1;
var MKCheckText=MKPageExtension.substring(MKPStartStr,MKPEndStr)
var MKItemName=new Array(100)
var MKItemType=new Array(100)
var MKItemData1=new Array(100)
var MKItemData2=new Array(100)
var MKItemData3=new Array(100)
var MKItemData4=new Array(100)
var MKItemCounter=0
var MKPageItemName=new Array(100)
var MKPageItemData1=new Array(100)
var MKPageItemData2=new Array(100)
var MKPageItemData3 =new Array(100)
var MKPageItems=""
var MKPageItemCounter=0
var MKItemTable=new Array(25)
var MKDataBase=new Array(1000)
var MKDataBaseLength=25
var MKDataBaseSize=0
var MKDataBasePosition=0
var MKDBCounter=0
var MKDBCurrentCompare=""
var MKRefList=MKCheckText.substring(MKCheckText.indexOf("Ref="),MKCheckText.length);
var MKReference=MKRefList.substring(0,MKRefList.indexOf(";")+1);
var MKMenuList=MKCheckText.substring(MKCheckText.indexOf("Menu="),MKCheckText.length);
var MKMenu=MKMenuList.substring(0,MKMenuList.indexOf(";"));
var MKFileList=MKCheckText.substring(MKCheckText.indexOf("File="),MKCheckText.length);
var MKFile=MKFileList.substring(0,MKFileList.indexOf(";"));
if (MKReference.indexOf("Ref=")==-1)
 {
  MKReference=""
 }
if (MKMenu.indexOf("Menu=")==-1)
 {
  MKMenu="NoMenu"
 }
else
 {
  MKMenu=MKMenu.substring(5);
 }
if (MKFile.indexOf("File=")==-1)
 {
  MKFile="Info"
 }
else
 {
  MKFile=MKFile.substring(5);
 }
function MKCheckTextSet(InputData)
{
 if (MKCheckText.indexOf(";")==-1)
  {
   MKCheckText=InputData;
  }
} 
function MKPageItemRun()
{
 for (counter=0;counter<MKItemCounter;counter++)
 {
//  if (MKItemType[counter]=="0DATA")
//   {
//    document.write(MKItemData1[counter])
//   }
  if (MKItemType[counter]=="1DATA" || MKItemType[counter]=="DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData1[counter2]+MKItemData2[counter])
       }
     }
   }
  if (MKItemType[counter]=="11DATA" || MKItemType[counter]=="2DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData1[counter2]+MKItemData2[counter]+MKPageItemData1[counter2]+MKItemData3[counter])
       }
     }
   }
  if (MKItemType[counter]=="111DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData1[counter2]+MKItemData2[counter]+MKPageItemData1[counter2]+MKItemData3[counter]+MKPageItemData1[counter2]+MKItemData4[counter])
       }
     }
   }
  if (MKItemType[counter]=="12DATA" || MKItemType[counter]=="LINK")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData1[counter2]+MKItemData2[counter]+MKPageItemData2[counter2]+MKItemData3[counter])
       }
     }
   }
  if (MKItemType[counter]=="21DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData2[counter2]+MKItemData2[counter]+MKPageItemData1[counter2]+MKItemData3[counter])
       }
     }
   }
  if (MKItemType[counter]=="123DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData1[counter2]+MKItemData2[counter]+MKPageItemData2[counter2]+MKItemData3[counter]+MKPageItemData3[counter2]+MKItemData4[counter])
       }
     }
   }
  if (MKItemType[counter]=="213DATA")
   {
    for (counter2=0;counter2<MKPageItemCounter;counter2++)
     {
      if (MKPageItemName[counter2]==MKItemName[counter])
       {
        document.write(MKItemData1[counter]+MKPageItemData2[counter2]+MKItemData2[counter]+MKPageItemData1[counter2]+MKItemData3[counter]+MKPageItemData3[counter2]+MKItemData4[counter])
       }
     }
   }
  if (MKItemType[counter]=="CODE")
   {
    document.write(MKItemData1[counter])
   }
 }
}  
function MKItemListSet(InputItemName,InputItemType,InputItemData,InputItemData2,InputItemData3,InputItemData4)
{
 MKItemName[MKItemCounter]=InputItemName;
 MKItemType[MKItemCounter]=InputItemType;
 MKItemData1[MKItemCounter]=InputItemData;
 MKItemData2[MKItemCounter]=InputItemData2;
 MKItemData3[MKItemCounter]=InputItemData3;
 MKItemData4[MKItemCounter]=InputItemData4;
 MKItemCounter++;
}
function MKItemListPrint()
{
 for (counter=0;counter<MKItemCounter;counter++)
 {
  document.write(MKItemName[counter]+" ("+MKItemType[counter]+") "+counter+"<br>");
 }
}
function MKPageItemEnd()
{
 var MKCheckItem="";
 var MKCheckResult=1; 
 for (counter=0;counter<MKCheckText.length;counter++)
 {
  MKCheckItem=MKCheckItem+MKCheckText.substring(counter,counter+1)
  if (MKCheckText.substring(counter,counter+1)==";")
  {
   if (MKCheckItem.indexOf("Ref=")==-1 && MKCheckItem.indexOf("Menu=")==-1 && MKCheckItem.indexOf("File=")==-1)
   { 
    if (MKPageItems.indexOf(MKCheckItem)==-1 && MKPageItems.indexOf("Page=ALL;")== -1)
    {
     MKCheckResult=0;
     counter=MKCheckText.length;
    }
   }
   MKCheckItem=""  
  }
 }
 if (MKCheckResult==1)
 {
  MKPageItemRun();
 }
}  
function MKPageItemListPrint()
{
 for (counter=0;counter<MKPageItemCounter;counter++)
 {
  document.write(MKPageItemName[counter]+" "+" ("+MKPageItemData1[counter]+") "+counter+"<br>");
 }
 document.write(MKPageItems+"<br>");
}  
function MKPageItemSet(InputItemName,InputItemData,InputItemLink,InputItemExt)
{
   if (InputItemName=="Next" || InputItemName=="End")
   {
    MKPageItemEnd()
    MKPageItemCounter=0
    MKPageItems=""
   }
   else
   {
    MKPageItemName[MKPageItemCounter]=InputItemName
    MKPageItemData1[MKPageItemCounter]=InputItemData
    MKPageItemData2[MKPageItemCounter]=InputItemLink
    MKPageItemData3[MKPageItemCounter]=InputItemExt
    MKPageItems=MKPageItems+InputItemName+"="+InputItemData+";"
    MKPageItemCounter++
   }
}
function MKPageTableSet()
{
 var MKArgV=MKPageTableSet.arguments
 var MKArgC=MKArgV.length
 var MKItemCName="" 
 var MKItemCValue=""
 var MKItemCText="" 
 if (MKArgC>2)
  {
   MKItemCName=MKArgV[0]
   MKItemCValue=MKArgV[1]
   MKItemCText=MKItemCName+"="+MKItemCValue+";"
   if (MKCheckText.indexOf(MKItemCText)!=-1)
    {
     for (counter=0;counter<MKArgC;counter++)
      {
       MKItemTable[counter]=MKArgV[counter]
      }
    }   
  } 
}
function MKDBSet()
{
 var MKArgV=MKDBSet.arguments
 var MKArgC=MKArgV.length
 for (counter=0;counter<MKArgC;counter++)
  {
   MKDataBase[counter+MKDataBaseSize*MKDataBaseLength]=MKArgV[counter]
  }
 MKDataBaseSize++
}
function MKDBPos(MKDBRow)
{
 MKDataBasePosition=MKDBRow;
 return "";
}  
function MKDBGet(MKDBColumn)
{
 return MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
} 
function MKDBNextGet(MKDBColumn)
{
 if (MKDataBasePosition+1<MKDataBaseSize)
  {
   MKDataBasePosition++;
   return MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
  }
 else
  {
   return "";
  }
} 
function MKDBPreviousGet(MKDBColumn)
{
 if (MKDataBasePosition>0)
  {
   MKDataBasePosition--;
   return MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
  }
 else
  {
   return "";
  }
} 
function MKDBPosGet(MKDBRow,MKDBColumn)
{
 MKDataBasePosition=MKDBRow;
 return MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
} 
function MKDBFind(MKDBColumn,MKDBCompare)
{
 var MKDBReturn="";
 MKDBCurrentCompare=MKDBCompare;
 for (MKDBCounter=0;MKDBCounter<MKDataBaseSize;MKDBCounter++)
  {
   if (MKDataBase[MKDBColumn+MKDBCounter*MKDataBaseLength]==MKDBCompare)
     {
      MKDataBasePosition=MKDBCounter;
      MKDBReturn=MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
      MKDBCounter=MKDataBaseSize;
     }     
  }
  return MKDBReturn;
}
function MKDBNextFind(MKDBColumn)
{
 var MKDBReturn="";
 for (MKDBCounter=MKDataBasePosition+1;MKDBCounter<MKDataBaseSize;MKDBCounter++)
  {
   if (MKDataBase[MKDBColumn+MKDBCounter*MKDataBaseLength]==MKDBCurrentCompare)
     {
      MKDataBasePosition=MKDBCounter;
      MKDBReturn=MKDataBase[MKDBColumn+MKDataBasePosition*MKDataBaseLength];
      MKDBCounter=MKDataBaseSize;
     }     
  }
  return MKDBReturn;
}  
function MKDBPage(MKDBColumn1,MKDBColumn2)
{
 var MKDBReturn="";
 var MKDBCompare="";
 for (MKDBCounter=0;MKDBCounter<MKDataBaseSize;MKDBCounter++)
  {
   MKDBCompare="="+MKDataBase[MKDBColumn1+MKDBCounter*MKDataBaseLength]+";"
   if (MKCheckText.indexOf(MKDBCompare)!=-1)
     {
      MKDataBasePosition=MKDBCounter;
      MKDBReturn=MKDataBase[MKDBColumn2+MKDataBasePosition*MKDataBaseLength];
      MKDBCounter=MKDataBaseSize;
     }     
  }
  return MKDBReturn;
}