var hotkey="CTRL-D";
var agent=navigator.userAgent.toLowerCase();
d=document;
if (agent.indexOf("msie")!=-1) version_ie=parseFloat(agent.split("msie")[1])
if (agent.indexOf("msie")!=-1 && version_ie>=4 && navigator.appName!="Netscape" && agent.indexOf("opera")<1) ie_ok="1"
else ie_ok="0"
if (agent.substr(agent.indexOf('opera')+6,1)<9) hotkey="CTRL-T"
d.write("<Form Name=\"programs\">")
d.write("<Input Type=\"BUTTON\" Value=\"1\" OnClick=\"location='http://slezenko.com'\" title=\"На головну сторінку!\">")
d.write("<Input Type=\"BUTTON\" Value=\"<<\" OnClick=\"history.go(-1)\" title=\"Попередн\я сторінка!\">")
if (ie_ok=="1") d.write("<Input Type=\"BUTTON\" Value=\"+\" OnClick=\"window.external.AddFavorite(location.href,d.title)\" title=\"Покласти закладинку!\">")
if (ie_ok=="0") d.write("<Input Type=\"BUTTON\" Value=\"+\" OnClick=\"alert(\'Натисніть '+hotkey+', щоб покласти закладинку!\')\" title=\"Покласти закладинку!\">")
d.write("<Input Type=\"BUTTON\" Value=\">>\" OnClick=\"history.go(1)\" title=\"Наступна сторінка!\">")
if (ie_ok=="1" && version_ie>=5) d.write("<Input Type=\"BUTTON\" Value=\"!\" OnClick=\"this.style.behavior='url(#default#homepage)'; this.setHomePage(d.location)\" title=\"Це мій сайт!\">")
if (ie_ok=="1" && version_ie<5) ie_ok="0"
if (ie_ok=="0") d.write("<Input Type=\"BUTTON\" Value=\"!\" OnClick=\"alert(\'Зробіть домівку стартовою самостійно! Спасибі!\')\" title=\"Це мій сайт!\">")
d.write("<Input Type=\"BUTTON\" Value=\"R\" OnClick=\"javascript:d.location.reload()\" title=\"Оновити сторінку!\">&nbsp;")
to="slezenko<slezenko@uninet.kiev.ua>";
subject="from: "+d.referrer;
if (ie_ok=="1") txt="1"
else if (agent.indexOf("opera")!=-1 || agent.indexOf("netscape")!=-1 || agent.indexOf("msie")!=-1) txt="0"
else txt="1"
sp="\n\n";
if (txt=="1") {m1="Доброго дня."; m2="Мене зацікавив продукт зі сторінки "; m3="! Будь ласка, надішліть умови, за яких його можна зареєструвати! Дякую!"; m4="Мої контактні дані..."}
else {m1="Pryvit!"; m2="Mene zatsikavyv produkt zi storinky "; m3="! Nadishlit' meni umovy, za yakykh mozhna iogo zareyestruvaty! Spasybi!"; m4="email"; m1=escape(m1); m2=escape(m2); m3=escape(m3); m4=escape(m4)}
send="mailto:"+escape(to)+"?subject="+escape(subject)+"&body="+m1+escape(sp)+m2+escape(location.href)+m3+escape(sp)+m4;
function sendMessage(){alert("Зараз буде створено лист!\nПотім натисніть кнопку \"Відправити\" у вашому поштовому клієнті!"); window.location=send}
d.write("<Input Type=\"BUTTON\" Value=\"$\" OnClick=\"sendMessage()\" title=\"Хочу зареєструвати цю програму!\">")
d.write("&nbsp;<Input Type=\"BUTTON\" Value=\"SOS\" OnClick=\"topage()\" title=\"Питанн\я і відповіді !\">")
d.write("&nbsp;<Input Type=\"BUTTON\" Value=\"?\" OnClick=\"alert(\'1 &nbsp;&nbsp;- Повернутись додому.\\n<< - Перейти назад.\\n>> - Перейти вперед.\\n+ &nbsp;&nbsp;- Додати у Вибране.\\n! &nbsp;&nbsp;&nbsp;- Встановити стартовою.\\n$ &nbsp;&nbsp;- Розділ [Магазин].\\n@ &nbsp;- Порадити сайт другу.\\nR &nbsp;&nbsp;- Оновити сторінку.\\nP &nbsp;&nbsp;- Друкувати сторінку.\\nh &nbsp;&nbsp;- Бажано прочитати.\\nSOS - На сторінку питань.\\n\\n? &nbsp;&nbsp;- Дана довідка.\')\" title=\"Довідкове меню!\">")
d.write('&nbsp;&nbsp;&nbsp;<select name="programs" size="1"><option value="programs.htm">Меню "Програми"</option><option value="prog_list.htm" selected>> Список програм</option><option value="abadaba.htm">>> Aba Daba</option><option value="abadabad.htm">>> Aba Daba Deluxe</option><option value="axpstyle.htm">>> Actual XP Style</option><option value="agrapher.htm">>> Advanced Grapher</option><option value="allsubmitter.htm">>> AllSubmitter</option><option value="agp.htm">>> AntiGarbage ToolKit Pro</option><option value="a3000.htm">>> Archivarius 3000</option><option value="as3pf.htm">>> AS3 Personal Firewall</option><option value="atompager.htm">>> AtomPager</option><option value="barcode.htm">>> BarCode Checker</option><option value="caffe1ne.htm">>> Caffe1ne</option><option value="cminesweeper.htm">>> Crazy Minesweeper</option><option value="ctetris.htm">>> Crazy Tetris</option><option value="cursorus.htm">>> CursorUS</option><option value="mdexpress.htm">>> Download Express</option><option value="efcommander.htm">>> EF Commander</option><option value="efd3f.htm">>> EF Duplicate MP3 Finder</option><option value="efprcman.htm">>> EF Process Manager</option><option value="fastiqt.htm">>> Fast IQ Test ;)</option><option value="fnb.htm">>> Find \'n\' Block Personal Firewall</option><option value="htmlgenerator.htm">>> HTML-Generator</option><option value="isiim.htm">>> ISIIM</option><option value="japan.htm">>> Japan crossword editor</option><option value="taxi.htm">>> J&D taxi</option><option value="lightpad.htm">>> LightPad</option><option value="lyrics3000.htm">>> Lyrics 3000</option><option value="mdownloader.htm">>> Mass Downloader</option><option value="nsis.htm">>> NSIS</option><option value="overload.htm">>> Overload</option><option value="ox5.htm">>> Ox5</option><option value="pictureste.htm">>> PicturesToExe</option><option value="pixbuilders.htm">>> PixBuilder Studio</option><option value="radioboss.htm">>> Radio Boss</option><option value="seabattle.htm">>> Sea Battle</option><option value="syacht.htm">>> Shark\'s Yacht 2</option><option value="sitelinksacc.htm">>> Site Links Accountant</option><option value="snotes.htm">>> Small Notes</option><option value="solfedjina.htm">>> Solfedjina</option><option value="stamina.htm">>> Stamina</option><option value="tingram.htm">>> Tingram</option><option value="vampina.htm">>> Vampina</option><option value="whitecrow.htm">>> White Crow</option><option value="whitecrowpro.htm">>> White Crow Pro</option><option value="winget.htm">>> WinGet</option><option value="wnavigator.htm">>> WinNavigator</option><option value="ukr.htm">>> Ukrainian KeyboaRd</option><option value="ukr2000.htm">>> Ukrainian KeyboaRd 2000</option><option value="ukrxp.htm">>> Ukrainian KeyboaRd XP</option><option value="ukruniversal.htm">>> Ukrainian KeyboaRd UNIVERSAL</option><option value="uwup.htm">>> Unusual Works Utility Pack</option><option value="uricrypt.htm">>> URI Crypter</option><option value="pictures/logo/">> Огл\яд логотипів</option><option value="utils.htm">> Утиліти/Сервіси</option><option value="antivir.htm">>> Антивіруси-сервіси</option><option value="antivir2.htm">>> Антивіруси-утиліти</option><option value="search.htm">>> Пошук</option><option value="links.htm">> Цікаві лінки</option><option value="http://www.ukrface.org.ua">>> http://www.ukrface.org.ua</option><option value="http://slezenko.info">>> http://slezenko.info</option></select><input type=button title="Виберіть цікавий розділ і натисніть кнопку &quot;Ok&quot;." name="go" value="Ok" onclick="top.location.href=this.form.programs.options[this.form.programs.selectedIndex].value">')

function topage(){
url=document.location.href.toLowerCase();
path=url.replace(/[a-z]*:\/*.../i, "");
names=path.split("/");
name_page=path.split("/")[names.length-1];
if (name_page.indexOf(".")!=-1) name=name_page.split(".")[0]
q_url="q_programs.htm";
if (name=="atompager") q_url="q_"+name_page
if (name=="ctetris") q_url="q_"+name_page
if (name=="taxi") q_url="q_"+name_page
location=q_url;
}