Keyword = new Object();
 Address = new Object();
 Keyword[0] =19

 Keyword[1] = "Компьютерная фирма 'Аксиома' (г. Тамбов),Тамбов,продажа компьютеров, комплектующих и оргтехники, сервисный центр, гарантийный и послегарантийный ремонт, монтаж локально-вычислительных сетей, автоматизация бухгалтерского, финансового и управленческого учета предприятий, 1С:предприятие, ПКАП Ордер, AVP, антивирус Касперского, ИПС Кодекс, информационно-правовая система, разработка интернет-сайтов и страниц, размещение сайтов, реклама, внедрение систем автоматизации бухгалтерского учета, "
 Address[1] = "index.htm"

 Keyword[2] = "Обновился сайт,новости,семинар,R-Style,SoftTool-2000,компьютерная фирма Аксиома"
 Address[2] = "news.htm"
 
 Keyword[3] = "Программы,программный комплекс автоматизации предприятий 'Ордер', 1С ,бухгалтерия, бухгалтерский учет, бюджетирование, зарплата, расчет и начисление заработной платы, кадровый учёт, отчетность в ПФ и ИМНС, склад, торговля, учёт основных средств, комплексная автоматизация, автоматизация бухгалтерского, финансового и управленческого учета предприятий"
 Address[3] = "order.htm"

 Keyword[4] = "кредит, кредит на покупку компьютера, купить компьютер в кредит, компьютеры в кредит, купить в рассрочку компьютер, кредит через Сбербанк, собственная система кредитования, договор со сроком оплаты, "
 Address[4] = "credit.htm"
 
 Keyword[5] = "История, образование компьютерной фирмы Аксиома, о компании, "
 Address[5] = "history.htm"
 
 Keyword[6] = "Компьютеры, комплектующие, оргтехника, продукция R-Style Computers,Internet,компьютер, монитор, принтер, процессор, видеокарта, память, винчестер, жесткие диски, сетевые адаптеры, сканеры, серверы, серверы COMPAQ и HP"
 Address[6] = "hard.htm"
 
 Keyword[7] = "Прайс-лист, техника, програмное обеспечение, 1С, Ордер, Кодекс АВП, AVP, антивирус Касперского, скачать, внедрение, услуги, разработка сайтов"
 Address[7] = "price_gl.htm"

 Keyword[8] = "AVP, Антивирус Касперского, поиск и удаление вирусов и вредоносных программ,антивирусы,антивирусные программы...  "
 Address[8] = "antivirus.htm"
 
 Keyword[9] = "Информационная система Кодекс,профессиональные юридические системы,системы судебной практики, справочные системы"
 Address[9] = "kodeks.htm"

 Keyword[10] = "Кодекс, прайс-лист, прейскурант, скачать"
 Address[10] = "price_gl.htm"
 
 Keyword[11] = "Антивирусы, антивирусные программы, прайс-лист, скачать"
 Address[11] = "price_gl.htm"
 
 Keyword[12] = "Кондиционеры, специальное предложение, идеальный климат, дешевый монтаж"
 Address[12] = "index1.htm"
 
 Keyword[13] = "кондиционеры, возможности, технические характеристики, режимы, вес, мощность, сайт компании МВ"
 Address[13] = "kondic.htm"         
 
 Keyword[14] = "Полная версия ПКАП Ордер, версия 5.11, ордер-стандарт, 6 часов настройки и обучения бесплатно, версия ОЕМ, поставляется с новыми компьютерами"
 Address[14] = "order_g.htm"

 Keyword[15] = "Модули: центральная бухгалтерия, заработная плата и кадры, склад и торговля, бюджетирование, система клиент-банк, автоматическое формирование отчетности"
 Address[15] = "har.htm"

 Keyword[16] = "Система санаторно-гостиничного учета Лагуна, система начисления абонентской платы Абонент"
 Address[16] = "progs.htm"
 
 Keyword[17] = "Об отделе внедрения программного обеспечения (ПО), клиенты, методы внедрения, сотрудники"
 Address[17] = "vnedren.htm"
 
 Keyword[18] = "Компьютерная фирма Аксиома предлагает изготовление Web-сайтов, интернет-страниц, образцы работ, портфолио, стоимость услуг, цены и сроки изготовления сайтов, Стоимость у нас на изготовление Web-сайтов различна, в зависимости от сложности самого Web-сайта"
 Address[18] = "web.htm"
 
 Keyword[19] = "Ссылки на производителей компьютерной техники"
 Address[19] = "vendors.htm"
 
 

 function contains(sub,s){
 strlen1=sub.length
 strlen2=s.length
 istrue=false
 for(i=0;i<=strlen2;i++)
 {
 comp=s.substring(i-1,strlen2)
 comp=comp.substring(0,strlen1)
 if(comp==sub){
 istrue=true
 break  
    }   
   }
 return istrue
  }

 function dolt() {
 loopCount=0;
 var Found=false
 var Item=document.forms[0].sub.value.toLowerCase();
 
stats='toolbar=no,location=no,scrollbars=yes,directories=no,status=yes,menubar=no,height=200,width=600,top=0,left=0'
stats += 'scrollbars=yes,resizable=yes'
MsgBox = window.open ("","msgWindow",stats) 
MsgBox.opener = window;
MsgBox.opener.name = "opener";
MsgBox.document.write("<head><title>Результаты поиска: для "+Item+"</title></head>");

 if(document.form1.sub.value=="")
 MsgBox.document.write('<h5><font face="Verdana,Arial,Helvetica" color="#0000000">Результаты поиска: все ссылки. Не указаны условия поиска.<HR></h5></font>');
 else
 MsgBox.document.write('<h5><font face="Verdana,Arial,Helvetica" color="#0000000">Результаты поиска: для '+Item+'<HR></h5></font>');
 for(var i=1; i<=Keyword[0]; i++){
 contains(Item,Keyword[i].toLowerCase())
 if(comp==Item){
 loopCount++;
 Found=true;
  MsgBox.document.write('<div align="center"><center><table border="0" width="740" cellspacing="0" cellpadding="8"><tr><td width="2%" bgcolor="#FFFffF" height="18"align="center"><font face="Verdana,Arial,Helvetica" size="2" color="#000000"><h5>'+loopCount+'. </h5></font></td>    <td width="150%" bgcolor="#FFFFFF" height="18" align="left"><font color="#000000"></font><fontcolor="#000000"><font face="Verdana,Arial,Helvetica" size="2" color="#000000">'+Keyword[i]+'<BR><A HREF='+Address[i]+' target="MyFr">Выберите, чтобы перейти к разделу...</A></font></h1></font><font color="#0000000"></font></td></tr></table></center></div>')
  MsgBox.document.write('<script Language="JavaScript">window.status=("Всего найдено: '+loopCount+'")</'+'script'+'>');

     }
  }
if(!Found)
MsgBox.document.write('<font face="Verdana,Arial,Helvetica" size="2" color="#FF0000">Извените, по вашему запросу ничего не найдено. Попробуйте перефразировать запрос.</font>')
MsgBox.document.write('<style><!--A:link{color: #FF0000; text-decoration:none} A:visited {color: #FF9950; text-decoration:none}--></style>')
if(loopCount==0){
MsgBox.document.write('<script Language="JavaScript">window.status=("Ничего не найдено")</'+'script'+'>');
      }
    }