'sag menu elemanın yaratır
koddiv = "<div id=sagmenu style=" & chr(34) & "position:absolute; left:40px; top:10px; width:245; height:10px; z-index:99; background-color: #CCCCCC; layer-background-color: #CCCCCC; border: 1px none #000000; visibility: hidden" & chr(34) & "></div>"
set sgmn=document.createElement(koddiv)
document.body.appendChild(sgmn)

sub menusakla
  sagmenu.style.visibility = "hidden"
end sub

sub kisayolumaekle
  bilgiler = cookiebul("sagmenu")
  bilgi = split(bilgiler, "$")

  if eklemekontrolu(bilgi, document.title) then
    if ubound(bilgi) >= 0 then
      bilgi(ubound(bilgi)) = document.title & "$" & document.url & "$"
      bilgiler = join(bilgi,"$")
    else
      bilgiler = document.title & "$" & document.url & "$"
    end if
  
    cookieyap "sagmenu",bilgiler
  end if

  sagmenugoster()
end sub

sub kisayolumukaldir
  bilgiler = cookiebul("sagmenu")
  bilgi = split(bilgiler, "$")
  if MsgBox (document.title & " kısayolunu kaldırmak istiyor musunuz?", 36, "Kısayol Silinecek. Emin misiniz?") = 6 then
    bilgiler = kisayolkaldir(bilgi, document.title)
    cookieyap "sagmenu",bilgiler
    sagmenugoster()
  end if
end sub

function kisayolkaldir(byVal nerden, byVal kaldirilacak)
  x = 0
  kisayolkaldir = ""
  for i = 0 to ubound(nerden) - 1 step 2
    if nerden(i) <> kaldirilacak then 
      kisayolkaldir = kisayolkaldir + nerden(i) +"$"+ nerden(i + 1) +"$"
    end if
  next
end function

function eklemekontrolu(byVal gelen, byVal karsilastir)
  eklemekontrolu = true
  for i = 0 to ubound(gelen) - 1 step 2
    if gelen(i) = karsilastir then 
      eklemekontrolu = false
      exit for
    end if
  next
end function

sub kisayolumutemizle
  if MsgBox ("Kısayolları silmek istediginizden emin misiniz?", 36, "Kısayollar Temizlenecek. Emin misiniz?") = 6 then
    cookieyap "sagmenu",""
  end if
  sagmenugoster()
end sub

function sagmenugoster
  on error resume next
  sag = document.body.clientWidth - window.event.clientX
  alt = document.body.clientHeight - window.event.clientY
 
  if sag < sagmenu.offsetWidth then
 	sagmenu.style.left = document.body.scrollLeft + window.event.clientX - sagmenu.offsetWidth
  else
 	sagmenu.style.left = document.body.scrollLeft + window.event.clientX
  end if
 
  if alt < sagmenu.offsetHeight then
    sagmenu.style.top = document.body.scrollTop + window.event.clientY - sagmenu.offsetHeight
  else
    sagmenu.style.top = document.body.scrollTop + window.event.clientY
  end if

  bilgiler = cookiebul("sagmenu")
  bilgi = split(bilgiler, "$")

  kod = "<table class=SagMenuTam STYLE=" & chr(34) & "width:100%" & chr(34) & " border=0 cellspacing=2>"
  kod = kod & "<tr align=center class=SagMenuBaslik><td> <span onClick=" & chr(34) & "EveGit()" & chr(34) & ">Ana Sayfa</span><span  onClick=" & chr(34) & "BasaGit()" & chr(34) & "> | Başa </span><span onClick=" & chr(34) & "GeriGit()" & chr(34) & ">| Önceki</span><span onClick=" & chr(34) & "IleriGit()" & chr(34) & "> | Sonraki</span></td></tr>"

<!--  if ubound(bilgi) < 9 then -->
    if eklemekontrolu(bilgi, document.title) then
      kod = kod & "<tr class=SagMenuBeyaz onClick=" & chr(34) & "kisayolumaekle()" & chr(34) & "><td>Bu Sayfanın Kısayolunu EKLE</td></tr>"
    end if
<!--  end if -->

  if not eklemekontrolu(bilgi, document.title) then
    kod = kod & "<tr class=SagMenuBeyaz onClick=" & chr(34) & "kisayolumukaldir()" & chr(34) & "><td>Bu Sayfanın Kısayolunu KALDIR</td></tr>"
  end if

  if ubound(bilgi) > 0 then
    kod = kod & "<tr class=SagMenuBeyaz onClick=" & chr(34) & "kisayolumutemizle()" & chr(34) & "><td>Kısayolları temizle</td></tr>"
  end if

  for i= 0 to ubound(bilgi) - 1 step 2
    kod = kod & "<tr class=SagMenu><td><a href=" & chr(34) & bilgi(i + 1) & chr(34) & ">" & bilgi(i) & "</a></td></tr>"
  next
  kod = kod & "<tr class=SagMenuBaslik><td> <span><a href=" & chr(34) & "/urunler/surematik/index.htm" & chr(34) & ">süreMatik RD çıktı</a></span>"
  kod = kod & "<tr class=SagMenuBaslik><td> <span><a href=" & chr(34) & "/urunler/yargimatik/index.htm" & chr(34) & ">yargıMatik RD çıktı</a></span>"
  kod = kod & "<tr class=SagMenuBaslik><td> <span><a href=" & chr(34) & "/destek/download/download.htm" & chr(34) & ">Program ve Veri Merkezi</a></span>"
  kod = kod & "<tr class=SagMenuBaslik><td> <span><a href=" & chr(34) & "/alisveris/alisveris.htm" & chr(34) & ">Alışveriş</a></span></td></tr>"
  kod = kod & "</td></tr></table>"
  sagmenu.innerHtml = kod

  sagmenu.style.visibility = "visible"
  window.event.returnValue = false
end function