dim MB(7,11,2)
dim HMen
dim kod
dim site 
dim f(10)
dim kaydiremmi
dim yapildi
yapildi = 0

sub window_onload
'Browser Kontrolu
  
 
  MB(1,1,0) = " Ana Sayfa"
  MB(1,1,1) = "/index.php"
  MB(1,2,0) = " Martı Hakkında"
  MB(1,2,1) = "/marti/martihakkinda.htm"
  MB(1,3,0) = " Vizyondan Misyona Martı"
  MB(1,3,1) = "/marti/vizyondanmisyona.htm"
  MB(1,4,0) = " Reklam Seçenekleri"
  MB(1,4,1) = "/marti/reklamsec.htm"
  MB(1,5,0) = " İş Başvuruları"
  MB(1,5,1) = "/marti/isbasvurusu.htm"
  MB(1,6,0) = " İletişim"
  MB(1,6,1) = "/marti/iletisim.htm"
  MB(1,7,0) = " Hukuki Şartlar ve Gizlilik Hakları"
  MB(1,7,1) = "/marti/hukukisart.htm"
  MB(2,1,0) = " hukukMatik    "
  MB(2,1,1) = "/urunler/hukukmatik/index.htm"
  MB(2,2,0) = " akçaMatik"
  MB(2,2,1) = "/urunler/akcamatik/index.htm"
  MB(2,3,0) = " büroMatik"
  MB(2,3,1) = "/urunler/buromatik/index.htm"
  MB(2,4,0) = " cezaMatik"
  MB(2,4,1) = "/urunler/cezamatik/index.htm"
  MB(2,5,0) = " davaMatik"
  MB(2,5,1) = "/urunler/davamatik/index.htm"
  MB(2,6,0) = " kayıtMatik"
  MB(2,6,1) = "/urunler/kayitmatik/index.htm"
  MB(2,7,0) = " icraMatik RD (YENİ)"
  MB(2,7,1) = "/marti.php?yol=urunler/icraMatikRD/index.php"
  MB(2,8,0) = " süreMatik RD (YENİ)"
  MB(2,8,1) = "/urunler/surematik/index.htm"
  MB(2,9,0) = " yargıMatik RD (YENİ)"
  MB(2,9,1) = "/urunler/yargimatik/index.htm"
  MB(3,1,0) = " Satış Koşulları"
  MB(3,1,1) = "/siparis/satiskosullari.htm"
  MB(3,2,0) = " Alışveriş"
  MB(3,2,1) = "/alisveris/alisveris.htm"
  MB(3,3,0) = " Kampanyalar"
  MB(3,3,1) = "/alisveris/kampanya01.php"
  MB(4,1,0) = " Destek Hizmetleri"
  MB(4,1,1) = "/destek/destek.htm"
  MB(4,2,0) = " icraMatik RD Hesaplama Tanımları"
  MB(4,2,1) = "/destek/harclar.htm"
  MB(4,3,0) = " Önceki Sürümlerin Hesaplama Tan."
  MB(4,3,1) = "/destek/harclar2.htm"
  MB(4,4,0) = " Program ve Veri Merkezi"
  MB(4,4,1) = "/destek/download/download.htm"
  MB(4,5,0) = " Pratik Bilgiler"
  MB(4,5,1) = "/destek/pratik/pratik.htm"
  MB(5,1,0) = " Martı'dan"
  MB(5,1,1) = "/haberler/martihbr.htm"
  MB(5,2,0) = " Hukuk"
  MB(5,2,1) = "/haberler/hukukhbr.htm"
  MB(5,3,0) = " Teknoloji"
  MB(5,3,1) = "/haberler/teknolojihbr.htm"
  MB(5,4,0) = " Yaşam"
  MB(5,4,1) = "/haberler/yasamhbr.htm"
  MB(5,5,0) = " Vay Canına"
  MB(5,5,1) = "/haberler/vaycaninahbr.htm"
  MB(5,6,0) = " Kaçıranlar İçin"
  MB(5,6,1) = "/haberler/fikirbahcesi/kaciranlaricin.htm"
  MB(6,1,0) = " Mazete"
  MB(6,1,1) = "/mazete/mazete.htm"
  MB(6,2,0) = " İstek Formu"
  MB(6,2,1) = "/marti/iletisim.htm"
  MB(7,1,0) = " E. Posta İle Görüşme"
  MB(7,1,1) = "/araclar/mailyolla2.php"
  MB(7,2,0) = " Dost Acı Söyler Hattı"
  MB(7,2,1) = "/marti/dostacisoyler.htm"

// 7ler onclick farklı


'  set c=document.all.tags("OBJECT")
'  b=c(0).Id 
  select case AnaAlan.TabIndex
     case 1 M1.classname = "MenuClicked"
     case 2 M2.classname = "MenuClicked"
     case 3 M3.classname = "MenuClicked"
     case 4 M4.classname = "MenuClicked"
     case 5 M5.classname = "MenuClicked"
     case 6 M6.classname = "MenuClicked"
     case 7 M7.classname = "MenuClicked"
  end select

end sub

sub ALTMenu_onclick
  set e = window.event.srcElement
  a=e.id
  a=mid(a,4,2)

// *****************************
//  Bak burda üstünde bulunduğun nesnenin id sine bakarak hangi adresi çalıştıracağını anlıyor. büyük olasılıkla id yi değiştirmemişsindir
//  Yeni açtığın satırın idsini düzeltirsen sorunların düzelir.
//  Aslında 10 satır sınırı koymayacaktım ama dinamik dizi oluştururken bazı sınırlamalar va vb de o yüzden statik tanımlamak zorunda kaldım.
//  Eğer bi yolunu bulrsan düzelt. Banada haber ver ki öğrenelim
//  Herkese bol selam. 
// *****************************

  if e.innertext <> "" then
    if (HMen = 7) and (a = 1) then
      window.open MB(HMen,a,1),"blank","left=210,top=200, width=446,height=285,status=no,toolbar=no,menubar=no,location=no,scrollbars=no"
	else
	   parent.window.document.url = MB(HMen,a,1)
    end if
  end if
  ALTMenu.Style.visibility = "Hidden" 
  window.event.cancelBubble = true
end sub

sub ALTMenu_onmouseover
  set e = window.event.srcElement
  a=e.id
  a=mid(a,1,2)
  if a = "Am" then
    e.className = "AltMenuFlash"
  end if
  window.event.cancelBubble = true
'  window.status = MB(HMen,a,2)
end sub

sub ALTMenu_onmouseout
  set e = window.event.srcElement
  e.className = "ALtMenu"
  window.event.cancelBubble = true
End sub

sub USTMenu_onmouseover
  set e = window.event.srcElement
  a=e.id
  a=mid(a,2,1)
  b=mid(e.id,1,1)
 if b = "M" then
  if e.className <> "MenuClicked" then
     e.className = "menuFlash"
  end if

  window.event.cancelBubble = true


  ALTMenu.Style.PosLeft = (e.offsetLeft)+ AnaAlan.offsetLeft - 2

  ALTMenu.Style.Top  = 84 + USTMenu.Style.pixelHeight
  genislik = 0
  uzunluk = 0

  for i = 1 to 11 

   if genislik < LEN(MB(a,i,0)) then
      genislik = LEN(MB(a,i,0))
   end if

   if MB(a,i,0) <> "" then
      uzunluk = uzunluk + 1 
   end if

  next  
  ALTMenu.Style.Width = genislik * 9.5

  kod=""
  for i = 1 to uzunluk 
    sira = Cstr(i)
    kod = kod + "<SPAN class=AltMenu STYLE=" + chr(34) + "width:100%" + chr(34) + " ID=AmM" + sira + " type = " + sira +"> M </SPAN>"
  next	
  ALTMenu.InnerHtml = kod

  set k = Altmenu.all.tags("SPAN")  
  for g = 0 to (k.length - 1)
      set f(g + 1) = k(g)
  next

  for g = 1 to 10
      if uzunluk >= g then
         f(g).InnerText = MB(a,g,0)
      end if
  next

  HMen = a
  ALTMenu.Style.Visibility = "Visible"
 end if
end sub

sub USTMenu_onmouseout
  set e = window.event.srcElement
  if e.className <> "MenuClicked" then
     e.className = "menu"
  end if
  window.event.cancelBubble = true
end sub

sub document_onmouseover
    set e = window.event.srcElement
    if e.id <> "USTMenu" and e.id <> "ALTMenu" and e.id <> "Layer3" then
       ALTMenu.Style.visibility = "Hidden" 
    end if
end sub

sub sayfaac (sayfa, en, boy)
if sayfa <> "" then   
  window.open sayfa, blank, "width=" & en & ",height=" & boy & ",status=no,toolbar=no,menubar=no,location=no,scrollbars=no"
end if
end sub

sub GeriGit
  History.Back
end sub

sub IleriGit
  History.Forward
end sub

sub EveGit
  document.url = "/index.php"
end sub

sub BasaGit
  Document.body.ScrollTop = 0
end sub

sub kay
   on error resume next 
      if document.body.readystate = "complete" then
'        if document.body.scrollheight - 400 > document.body.scrolltop then
          if document.body.scrolltop - 90 < 0 then
             yanmenu.style.height = 0
          else
            if document.body.scrollHeight > document.body.scrollTop + 590 then
			   yanmenu.style.height = document.body.scrolltop - 90 
            end if
          end if
'        end if
      end if
end sub

sub kaydir
end sub

sub Metin_Ekle
    KonuMetni = "Yazar: " &  YazarinAdi.InnerText & ", Yazı: " & YazininBasligi.InnerText
    GovdeMetni = ""
    Metinler.href = "mailto:marti@martiyazilim.com.tr?Subject=" & KonuMetni & "&body="
end sub

sub adres_ekle
'metnin en sonuna sayfanın adresini ekler
  if yapildi = 0 then
    a_a_okusun.href = a_a_okusun.href + Document.url
    yapildi = 1
  end if
end sub