<!-- Begin
dim oPopup
sub Popup
  'iview.focus
  vMenuContent = document.getElementById("mnuMain").innerHTML
  set oPopup = window.createPopup()
  set oPopupBody = oPopup.document.body
  oPopupBody.style.backgroundColor = "gainsboro"
  oPopupBody.style.border = "outset 2px"
  oPopupBody.innerHTML = vMenuContent
  oPopup.show window.event.x-180,window.event.y,180,clng(replace(mnuMain.style.height,"px","")),document.body
end sub

sub zcontentPopup(pContentTypeID, pContentID, pContentGroupID)
  'iview.focus
  ContentTypeID.value = pContentTypeID
  ContentID.value = pContentID
  ContentGroupID.value = pContentGroupID
  if pContentTypeID = "1" then
    vHeight = 94
    mnuContent2.style.display = "block"
  else
    vHeight = 73
    mnuContent2.style.display = "none"
  end if 
  if Administrator.value <> "1" then
    vHeight = vHeight - 21
  end if   
  vMenuContent = document.getElementById("mnuContent").innerHTML
  window.alert(vMenuContent)
  set oPopup = window.createPopup()
  set oPopupBody = oPopup.document.body
  oPopupBody.className = "parent.subMenu"
  'oPopupBody.style.backgroundColor = "gainsboro"
  'oPopupBody.style.border = "outset 2px"
  oPopupBody.innerHTML = vMenuContent
  oPopup.show window.event.x,window.event.y,120,vHeight,document.body
end sub

sub highlight(obj)
  obj.style.backgroundcolor = "#CCCCCC"
  obj.style.color = "black"
  obj.style.cursor = "hand"
  obj.style.border = "1px solid #999999"
  obj.style.padding = "2px"
end sub

sub lowlight(obj)
  obj.style.backgroundcolor = "gainsboro"
  obj.style.color = "black"
  obj.style.cursor = "default"
  obj.style.border = "none"
  obj.style.padding = "3px"
end sub

sub x_document_onmousedown
  if window.event.button = 2 then
    Popup 
    window.event.cancelBubble = true
    window.event.returnValue = false
  end if  
end sub

sub imgMenu_onclick
  Popup 
end sub

//  End -->