• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 304
  • Last Modified:

Displaying recorsets in dropdown menu

I am trying to display records called "Title" from the Sections DB table horizontally in the dropdown menu and any related recordsets (connected via secondary key SectionID) called "Title" from the Files DB table vertically and every time I add

while not objRs.eof
objRs.MoveNext
wend

when getting recordsets from the Section DB table I receive Either BOF or EOF is True Error. Otherwise the code below displays random menu (see below) where I can not figure out what File Title belongs to what Section. Any ideas, please help. I am just going in circles now and can not find any solution what so ever.

code:
Sub readItemsFromDatabase
Dim db,q,sql,objRs,rsarr,rsarr2,p_page_id,p_title,p_sec_id,p_sec,p_parent_id,cols,max,menu
        'The path to database:
      db ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb")
 
  q = "SELECT sectionid, Title, parentid From Sections Order by sectionid"
 
  Set objRs=Server.CreateObject("ADODB.Recordset")
  Set sqlobjRs=Server.CreateObject("ADODB.Recordset")
  objRs.CacheSize = 25             
  objRs.CursorType = 3
  objRs.LockType = 3
 
  'Opening database --- --
  objRs.Open q,db

 
  sql = "Select fileid, title, sectionid From Files Where sectionid = " &  objRs("sectionid") & " and Files.DLCId = 4"
 
 
  sqlobjRs.Open sql,db
 
   if NOT objRs.EOF then  
    rsarr = objRs.GetRows()
            max = Ubound(rsarr,2)
   else
            max = ""
  end if
 
   
  if NOT sqlobjRs.EOF then
    rsarr2 = sqlobjRs.GetRows()
            max = Ubound(rsarr2,2)
  else
            max = ""
  end if
  'Closing database
 
 
      row=0
      do while(row<=max) 'Looping rows
    'Setting variables
    menuparentlink = "m" & rsarr(0,row)
      p_sec_id = rsarr(0,row)
      p_sec = rsarr(1,row)
      p_page_id = rsarr2(0,row)
    p_title = rsarr2(1,row)
      pagelink = "mypage.asp?id=" & p_page_id
    p_parent_id = rsarr2(2,row)
    if(p_parent_id<>0) then
                  p_parent_id = "m" & p_parent_id
    else
                  p_parent_id=""
    end if
            'Making menu item
      menu = menu & ""
    Response.write("oCMenu.makeMenu('" & menuparentlink & "','" &p_parent_id & "','" & p_sec & "','" & pagelink & "')" & vbcrlf)
         row = row + 1
      loop
      
      objRs.close()
    Set objRs = Nothing
    sqlobjRs.close()
    Set sqlobjRs = Nothing
      
End Sub


random menu display:

oCMenu.makeMenu('m71','m71','company','mypage.asp?id=297')
oCMenu.makeMenu('m72','m71','disciplines','mypage.asp?id=298')
oCMenu.makeMenu('m73','m71','library','mypage.asp?id=306')
oCMenu.makeMenu('m74','m71','gallery','mypage.asp?id=309')
oCMenu.makeMenu('m75','m71','web','mypage.asp?id=310')
oCMenu.makeMenu('m76','m71','marketing','mypage.asp?id=314')
oCMenu.makeMenu('m77','m71','section','mypage.asp?id=351')
oCMenu.makeMenu('m79','m71','test','mypage.asp?id=352')
oCMenu.makeMenu('m80','m71','The Project','mypage.asp?id=353')
oCMenu.makeMenu('m81','m71','Project Management','mypage.asp?id=354')

0
Svjetlana
Asked:
Svjetlana
  • 15
  • 8
  • 7
1 Solution
 
PreeceCommented:
Unless you have it somewhere else, it looks like you are missing the connection to the db:

Sub readItemsFromDatabase
Dim db,q,sql,objRs,rsarr,rsarr2,p_page_id,p_title,p_sec_id,p_sec,p_parent_id,cols,max,menu
       'The path to database:
     db ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb")


  '/////// add these two lines  
  set adoConn = server.CreateObject("ADODB.CONNECTION")
  adoConn.Open db


  q = "SELECT sectionid, Title, parentid From Sections Order by sectionid"
 
  Set objRs=Server.CreateObject("ADODB.Recordset")
  Set sqlobjRs=Server.CreateObject("ADODB.Recordset")
  objRs.CacheSize = 25          
  objRs.CursorType = 3
  objRs.LockType = 3
 
  'Opening database --- --
  objRs.Open q,db


Preece
0
 
PreeceCommented:
If it helps, here is a simplistic example of connecting to a db, opening a rs, looping thru rs, closing rs, closing db connection:

    dim adoConn
    dim strConnect
    dim strSQL
    dim oRS

    strConnect ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb")
    set adoConn = server.CreateObject("ADODB.CONNECTION")
    adoConn.Open strConnect

    strSQL = "select * from sometable"

    SET oRS = server.CreateObject("ADODB.Recordset")
    oRS.Open strSQL,adoConn
    If not oRS.BOF and not oRS.EOF Then
        Do while not oRS.EOF
            response.write(oRS("field1"))
            oRS.MoveNext
        Loop
    End if
    oRS.Close
    adoConn.Close
0
 
SvjetlanaAuthor Commented:
Connection to the database is OK, records are displayed in the menu but not in the right order as I want them to be displayed. However I have added:

if NOT objRs.EOF and not objRs.EOF then  
   Do while not objRs.EOF
    rsarr = objRs.GetRows()
          max = Ubound(rsarr,2)
   objRs.MoveNext
   Loop

 else
          max = ""
end if

and still getting an errror:

ADODB.Recordset
error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
script.asp, line 152

LINE 152 IS objRs.MoveNext

Thanks,
Lana

0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
PreeceCommented:
This:
if NOT objRs.EOF and not objRs.EOF then  

should be:
if NOT objRs.BOF and not objRs.EOF then  

Preece
0
 
SvjetlanaAuthor Commented:
Sorry typing mistake in the if-then-else statement, it is actually

if NOT objRs.BOF and NOT objRs.EOF then  
   Do while not objRs.EOF
   rsarr = objRs.GetRows()
          max = Ubound(rsarr,2)
   objRs.MoveNext
   Loop

 else
          max = ""
end if

and still getting an errror:

ADODB.Recordset
error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
script.asp, line 152

LINE 152 IS objRs.MoveNext

0
 
PreeceCommented:
You had EOF (end of file) twice, and should have BOF (beginning of file) and then EOF.

Preece
0
 
PreeceCommented:
What does this do:

rsarr = objRs.GetRows()

Preece
0
 
peterxlaneCommented:
I would recommend taking a step back and really simplifying this code if you are really getting nowhere with it.  Unless this is a really large recordset I would scrap the whole getrows method.  The code could be much cleaner and far easier to debug without that.

Whatever you do, I would temporarily remove the inner recordset and make sure that your outer recordset is working on it's own.

0
 
PreeceCommented:
In your example, you may not need the objRs.MoveNext.

Preece
0
 
PreeceCommented:
Seems to me that you are getting the rs to begin with and you may not need the objRs.GetRows().

Preece
0
 
PreeceCommented:
What are you attempting to do with this code:

if NOT objRs.BOF and NOT objRs.EOF then  
   Do while not objRs.EOF
   rsarr = objRs.GetRows()
          max = Ubound(rsarr,2)
   objRs.MoveNext
   Loop

 else
          max = ""
end if


Preece
0
 
SvjetlanaAuthor Commented:
Preece,

I tried without "objRs.MoveNext" and "if NOT objRs.BOF and NOT objRs.EOF then" but no luck.  

This is what I am attempting to do:

q = "SELECT sectionid, Title, parentid From Sections Order by sectionid"
objRs.Open q,db

objRs.GetRows() should display all the "Titles" recordsets from the "Sections" table horizontally in the dropdown menu. After that I have

sql = "Select fileid, title, sectionid From Files Where sectionid = " & objRs("sectionid")  & " and Files.DLCId = 4"
sqlobjRs.Open sql,db

where  sqlobjRs.GetRows() should call all the "Titles" recordsets from the "Files" table belonging to that specific section in horizontal menu.

Thanks....

0
 
SvjetlanaAuthor Commented:
peterxlane,

The code was simplifed to begin with when I started displaying recorset "Title" from the Files table. It only started to get very confusing when I had to create and open another object recorset to connect to another DB table called "Sections" within the same database. Those two tables (Files & Sections) are joined by "sectionid". After that I have added another array to get Rows from Files table i.e.

if NOT sqlobjRs.EOF then
    rsarr2 = sqlobjRs.GetRows()
    max = Ubound(rsarr2,2)
  else
   max = ""
  end if

Hope this make sense.



0
 
peterxlaneCommented:
No, I understand what you are trying to do, but unless you are dealing with really large recordsets, I think that GetRows() is not necessary and any performance gains that you might get are lost in time spent debugging the code.  This is how I would do the same thing:

<%
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connStr)
strOuterSQL = "SELECT sectionid, Title, parentid From Sections Order by sectionid"
Set oRecordset = oConn.Execute(strOuterSQL)
Do While Not oRecordset.EOF      
      intSectionID = oRecordset("sectionid")
      strTitle = oRecordset("Title")
      intParentID = oRecordset("parentid")
      
      strInnerSQL =  "Select fileid, title, sectionid From Files Where sectionid = " &  intSectionID & " and Files.DLCId = 4"
      Set oInnerRecordset = oConn.Execute(strInnerSQL)
      Do While Not oInnerRecordset.EOF
            strInnerTitle = oInnerRecordset("title")
            strInnerSectionID = oInnerRecordset("sectionid")
            strParentLink = "m" & intSectionID
        strPageLink = "mypage.asp?id=" & oInnerRecordset("fileid")  
                         
            Response.Write "oCMenu.makeMenu('" & strParentLink & "','" & strInnerSectionID & "','" & strTitle & "','" & strPageLink & "')"
            Response.Write "<br />" & vbcrlf
            
            oInnerRecordset.MoveNext
      Loop      
      oRecordset.MoveNext
Loop
oConn.Close
Set oConn = Nothing
%>

I was not able to test it, since I don't have the database, but from what I see, that title that is being displayed should come from the inner recordset and not the outer one.  I would also think that you would be doing a Response.Write in the outer loop to display the parent section name as well.

Maybe if you post the Javascript used to create the menu, it would make more sense

0
 
SvjetlanaAuthor Commented:
peterxlane,

Javascript used to create the menu:

<script>
//Menu object creation
oCMenu=new makeCM("oCMenu") //Making the menu object. Argument: menuname

//Menu properties  
oCMenu.pxBetween=2
oCMenu.fromLeft=1
oCMenu.fromTop=85  
oCMenu.rows=1
oCMenu.menuPlacement="left"
                                                             
oCMenu.offlineRoot="/wwwroot/"
oCMenu.onlineRoot="/dir/"
oCMenu.resizeCheck=1
oCMenu.wait=1000
oCMenu.fillImg="fill.gif"
oCMenu.zIndex=0

//Background bar properties
oCMenu.useBar=1
oCMenu.barWidth="100%"
oCMenu.barHeight="menu"
oCMenu.barClass="clBar"
oCMenu.barX=0
oCMenu.barY=0
oCMenu.barBorderX=0
oCMenu.barBorderY=0
oCMenu.barBorderClass=""

//Level properties - ALL properties have to be spesified in level 0
oCMenu.level[0]=new cm_makeLevel() //Add this for each new level
oCMenu.level[0].width=68
oCMenu.level[0].height=30
oCMenu.level[0].regClass="clLevel0"
oCMenu.level[0].overClass="clLevel0over"
oCMenu.level[0].borderX=1
oCMenu.level[0].borderY=1
oCMenu.level[0].borderClass="clLevel0border"
oCMenu.level[0].offsetX=0
oCMenu.level[0].offsetY=0
oCMenu.level[0].rows=0
oCMenu.level[0].arrow=0
oCMenu.level[0].arrowWidth=0
oCMenu.level[0].arrowHeight=0
oCMenu.level[0].align="bottom"


//EXAMPLE SUB LEVEL[2] PROPERTIES - You have to specify the properties you want different from LEVEL[0] - If you want all items to look the same just remove this
oCMenu.level[1]=new cm_makeLevel() //Add this for each new level (adding one to the number)
oCMenu.level[1].width=140
oCMenu.level[1].height=20
oCMenu.level[1].regClass="clLevel1"
oCMenu.level[1].overClass="clLevel1over"
oCMenu.level[1].borderX=1
oCMenu.level[1].borderY=1
oCMenu.level[1].align="right"
oCMenu.level[1].offsetX=-(oCMenu.level[0].width-2)/2+20
oCMenu.level[1].offsetY=0
oCMenu.level[1].borderClass="clLevel1border"


//EXAMPLE SUB LEVEL[1] PROPERTIES - You have to spesify the properties you want different from LEVEL[1] OR LEVEL[0] - If you want all items to look the same just remove this
oCMenu.level[2]=new cm_makeLevel() //Add this for each new level (adding one to the number)
oCMenu.level[2].width=140
oCMenu.level[2].height=20
oCMenu.level[2].offsetX=0
oCMenu.level[2].offsetY=0
oCMenu.level[2].regClass="clLevel1"
oCMenu.level[2].overClass="clLevel1over"
oCMenu.level[2].borderClass="clLevel1border"
oCMenu.level[2].align="middle"


<%

Sub readItemsFromDatabase

'code listed in question

End Sub


'Calling sub
Function makeCMDisplay(Params, DBConn, PageID, ParentID, TopID)

      objBODY     = makeCM
      objHEAD     = ""
      objONLOAD   = makeCM
      objONRESIZE = ""
      objONUNLOAD = ""
      
      makeCMDisplay = True
End Function

call readItemsFromDatabase


'ASP CODE END READING ITEMS FROM THE DATABASE
%>

//constructing the menu
oCMenu.construct()            
</script>
0
 
peterxlaneCommented:
there must be an external script that it is included as well that has some of the functions being used in that code though...
0
 
SvjetlanaAuthor Commented:
The example you have posted doesn't display menu on the page but when I click “view source” it displays sections, again not in the right order as I want them to be. This is the menu it is making:

oCMenu.makeMenu('m71','71','company','mypage.asp?id=297')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=298')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=306')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=309')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=310')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=314')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=351')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=352')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=353')<br />
oCMenu.makeMenu('m71','71','company','mypage.asp?id=354')<br />
oCMenu.makeMenu('m75','75','web','mypage.asp?id=299')<br />
oCMenu.makeMenu('m79','79','test','mypage.asp?id=325')<br />
oCMenu.makeMenu('m80','80','The Project','mypage.asp?id=320')<br />
oCMenu.makeMenu('m82','82','Who?','mypage.asp?id=321')<br />
oCMenu.makeMenu('m82','82','Who?','mypage.asp?id=322')<br />


Maybe there is a problem with the SQL statements? Can I join two tables where Sections.Online = true, Sections.ParentId=Sections.SectionId, Sections.BaseId=Sections.SectionId, Files.DLCid=4, Files.Online = true and Files.Major=(Select Max(Files.Major))

Thanks.
0
 
SvjetlanaAuthor Commented:
External javascript is fine, as I have managed to display recordsets from Files table horizontally. The problem occures only when two tables are joined together and when I try to display child recordsets i.e. strInnerSQL from parent i.e. strOuterSQL . It somehow reads first recordset section.title from the database horizontally and then all other recordsets from "Files" & "Sections" tables are displayed verticaly within that first recordset, but not in the right order.

Here is the main javascript function anyway:

/***Making the main menu object**/
function makeCM(name){
  var c=this; c.mc=0; c.name = name; c.m=new Array(); c.scrollY=-1; c.level=new Array(); c.l=new Array(); c.tim=100; c.isresized=0;
  c.isover=0; c.zIndex=100; c.frameStartLevel=1; c.bar=0; c.z=0; c.totw=0; c.toth=0; c.maxw=0; c.maxh=0; cmpage = new cm_page(); c.constructed = 0;
      return this
}//events
makeCM.prototype.onshow=""; makeCM.prototype.onhide=""; makeCM.prototype.onconstruct="";

0
 
peterxlaneCommented:
It wasn't that I thought something was wrong with the Javascript, but if I can't see the menu actually being created, it is hard to determine where the ASP code is going wrong.


Maybe if you posted a very quick sample of code that would display the menus as they should be, that would also help determine what the problem is.  Something like:

oCMenu.makeMenu('m71','m71','Parent Title','mypage.asp?id=297')
oCMenu.makeMenu('m72','m71','Child Item 1','mypage.asp?id=298')
oCMenu.makeMenu('m73','m71','Child Item 2','mypage.asp?id=306')

but something that would actually produce the results that you are expecting.  The ASP code that I posted should be producting EXACTLY what your script should have been producing but without errors.  So if it is doing that and the menu is still not being created as you would expect, then there had to have been some issues with your code even before you got the errors.  A hard coded sample that shows what you are aiming for would make things clearer.


0
 
SvjetlanaAuthor Commented:
Code that would display the menus as they should be:

oCMenu.makeMenu('m71','m71','company','')
oCMenu.makeMenu('m297','m71','mission','mypage.asp?id=297')
oCMenu.makeMenu('m298','m71','our process','mypage.asp?id=298')
oCMenu.makeMenu('m351','m71','link 1','mypage.asp?id=351')
oCMenu.makeMenu('m352','m71','link 2','mypage.asp?id=352')

oCMenu.makeMenu('m72','m72','disciplines','')
oCMenu.makeMenu('m75','m72','web','')
oCMenu.makeMenu('m299','m75','link 1','mypage.asp?id=299')
oCMenu.makeMenu('m79','m72','test','')
oCMenu.makeMenu('m325','m79','link 2','mypage.asp?id=325')

oCMenu.makeMenu('m80','m80','The Project','')
oCMenu.makeMenu('m297','m80','Home Test','mypage.asp?id=320')
oCMenu.makeMenu('m82','m80','Who','')
oCMenu.makeMenu('m322','m82','Our People','mypage.asp?id=322')
oCMenu.makeMenu('m321','m82','Who are we','mypage.asp?id=321')


company, disciplines and The Project should be in horizontal menu. Web and test should be vertically displayed from disciplines and call corresponding horizontal Web - link 1, test - link 2.

Home Test & Who should be vertically displayed from The Project. Who should display Our People and Who are we.



Here is the full javascript called menu.js that is included in my asp page.

/*Browsercheck object*/
function cm_bwcheck(){
      this.ver=navigator.appVersion
      this.agent=navigator.userAgent.toLowerCase()
      this.dom=document.getElementById?1:0
      this.ns4=(!this.dom && document.layers)?1:0;
      this.op=window.opera
      this.moz=(this.agent.indexOf("gecko")>-1 || window.sidebar)
      this.ie=this.agent.indexOf("msie")>-1 && !this.op
      if(this.op){
            this.op5=(this.agent.indexOf("opera 5")>-1 || this.agent.indexOf("opera/5")>-1)
            this.op6=(this.agent.indexOf("opera 6")>-1 || this.agent.indexOf("opera/6")>-1)
            this.op7=this.dom&&!this.op5&&!this.op6 //So all higher opera versions will use it
      }else if(this.moz) this.ns6 = 1
      else if(this.ie){
            this.ie4 = !this.dom && document.all
        this.ie5 = (this.agent.indexOf("msie 5")>-1)
        this.ie55 = (this.ie5 && this.agent.indexOf("msie 5.5")>-1)
        this.ie6 = this.dom && !this.ie4 && !this.ie5 && ! this.ie55
      }
      this.mac=(this.agent.indexOf("mac")>-1)
      this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.op5 || this.op6 || this.op7)
  this.usedom= this.ns6||this.op7//Use dom creation
  this.reuse = this.ie||this.op7||this.usedom //Reuse layers
  this.px=this.dom&&!this.op5?"px":""
      return this
}
var bw=new cm_bwcheck()
/*Variable declaration*/
var cmpage
/*Crossbrowser objects functions*/
function cm_message(txt){alert(txt); return false}
function cm_makeObj(obj,nest,o,doc){
  if(!doc) doc=document
  if(bw.usedom&&o) this.evnt=o
  else{nest=(!nest) ? "doc.":'doc.layers.'+nest+'.'
    this.evnt=bw.dom? doc.getElementById(obj):
    bw.ie4?doc.all[obj]:bw.ns4?eval(nest+"layers." +obj):0;
  }
  if(!this.evnt) return cm_message('The layer does not exist ('+obj+')'
    +'- \nIf your using Netscape please check the nesting of your tags (on the entire page)\nNest:'+nest)
  this.css=bw.dom||bw.ie4?this.evnt.style:this.evnt; this.ok=0
  this.ref=bw.dom||bw.ie4?doc:this.css.document;
  this.obj = obj + "Object";       eval(this.obj + "=this");
  this.x=0; this.y=0; this.w=0; this.h=0; this.vis=0; return this
}
cm_makeObj.prototype.moveIt = function(x,y){this.x=x;this.y=y; this.css.left=x+bw.px;this.css.top=y+bw.px}
cm_makeObj.prototype.showIt = function(o){this.css.visibility="visible"; this.vis=1; if(bw.op5&&this.arr){ this.arr.showIt(); }}//alert('showing arrow')}}
cm_makeObj.prototype.hideIt = function(no){this.css.visibility="hidden"; this.vis=0;}
cm_makeObj.prototype.clipTo = function(t,r,b,l,setwidth){
this.w=r; this.h=b; if(bw.ns4){this.css.clip.top=t;this.css.clip.right=r; this.css.clip.bottom=b;this.css.clip.left=l
}else{if(t<0)t=0;if(r<0)r=0;if(b<0)b=0;if(b<0)b=0; this.css.clip="rect("+t+bw.px+","+r+bw.px+","+b+bw.px+","+l+bw.px+")";
if(setwidth){if(bw.op5||bw.op6){this.css.pixelWidth=r; this.css.pixelHeight=b;}else{this.css.width=r+bw.px; this.css.height=b+bw.px;}}}}
function cm_active(on,h){
      if(this.o.arr) on?this.o.arr.hideIt():bw.op5?this.o.arr.showIt():this.o.arr.css.visibility="inherit"
  if(bw.reuse||bw.usedom){
    if(!this.img2) this.o.evnt.className=on?this.cl2:this.cl
    else this.o.ref.images["img"+this.name].src=on?this.img2.src:this.img1.src;
    if(on && bw.ns6){this.o.hideIt(); this.o.css.visibility='inherit' };  
  }else{  
    if(!this.img2){ if(on) this.o.over.showIt(); else this.o.over.hideIt();
    }else this.o.ref.images["img"+this.name].src=on?this.img2.src:this.img1.src;
  }this.isactive=on?1:0
}
function cm_page(frame){
  if(!frame) frame = self
  this.x=0; this.x2 =(!bw.ie)?frame.innerWidth:frame.document.body.offsetWidth-20;
  this.y=0; this.orgy=this.y2= (!bw.ie)?frame.innerHeight:frame.document.body.offsetHeight-6;
  this.x50=this.x2/2; this.y50=this.y2/2; return this
}
/***check positions**/
function cm_cp(num,w,minus){
      if(num){if(num.toString().indexOf("%")!=-1){var t = w?cmpage.x2:cmpage.y2; num=parseInt((t*parseFloat(num)/100))
  if(minus) num-=minus }else num=eval(num);} else num=0; return num
}
/**Level object**/
function cm_makeLevel(){
      var c=this, a=arguments; c.width=a[0]||null; c.height=a[1]||null;
  c.regClass=a[2]||null; c.overClass=a[3]||null; c.borderX=a[4]>-1?a[4]:null;
  c.borderY=a[5]>-1?a[5]:null; c.borderClass=a[6]||null; c.rows=a[7]>-1?a[7]:null;
  c.align=a[8]||null; c.offsetX=a[9]||null; c.offsetY=a[10]||null; c.arrow=a[11]||null;
  c.arrowWidth=a[12]||null; c.arrowHeight=a[13]||null; c.roundBorder=a[14]||null; return c
}
/***Making the main menu object**/
function makeCM(name){
  var c=this; c.mc=0; c.name = name; c.m=new Array(); c.scrollY=-1; c.level=new Array(); c.l=new Array(); c.tim=100; c.isresized=0;
  c.isover=0; c.zIndex=100; c.frameStartLevel=1; c.bar=0; c.z=0; c.totw=0; c.toth=0; c.maxw=0; c.maxh=0; cmpage = new cm_page(); c.constructed = 0;
      return this
}//events
makeCM.prototype.onshow=""; makeCM.prototype.onhide=""; makeCM.prototype.onconstruct="";
/***Creating layers**/
function cm_divCreate(id,cl,txt,w,c,app,ex,txt2){
  if(bw.usedom){var div=document.createElement("DIV"); div.className=cl; div.id=id;
    if(txt) div.innerHTML=txt; if(app){app.appendChild(div); return div}
    if(w) document.body.appendChild(div); return div
  }else{var dstr='<div id="'+id+'" class="'+cl+'"'
    if(ex&&bw.reuse) dstr+=" "+ex; dstr+=">"+txt; ; if(txt2) dstr+=txt2;
    if(c) dstr+='</div>'; if(w) document.write(dstr); else return dstr
  }return ""
}
/***Getting layer string for each menu**/
function cm_getLayerStr(m,app,name,fill,clb,arrow,ah,aw,root){
  var no=m.nolink,arrstr='',l=m.lev,str='',txt=m.txt,ev='', id=name + '_' + m.name,d1; if(app) d1=app
  if((!bw.reuse||l==0) && !no){
    ev=' onmouseover="'+name+'.showsub(\''+m.name+'\')"'
    +' onmouseout="'+name+'.mout(\''+m.name+'\')"'
    +' onclick="'+name+'.onclck(\''+m.name+'\'); return false" '
  }
  if(bw.reuse&&l!=0) txt=''; if(l==0) str+=d1=cm_divCreate(id+'_0',clb,''); str+=m.d2=cm_divCreate(id,m.cl,txt,0,0,d1,ev)
  if(l==0&&bw.usedom){
    m.d2.onclick=new Function(name+'.onclck("'+m.name+'")');
    m.d1=d1;
    m.d2.onmouseover=new Function(name+'.showsub("'+m.name+'")');
    m.d2.onmouseout=new Function(name+'.mout("'+m.name+'")')
  }if(!bw.reuse && !m.img1 && !no){
    str+=cm_divCreate(id+'_1',m.cl2,txt,0,1)
    str+=cm_divCreate(id+'_3',"clCMAbs",'<a href="#" '+ev+'><img alt="" src="'+root+fill+'" width="'+m.w+'" height="'+m.h+'" border="0" /></a>',0,1)
  }str+='</div>';
  if(l==0){if(arrow)str+=m.d3=cm_divCreate(id+'_a','clCMAbs','<img alt="" height="'+aw+'" width="'+ah+'" src="'+root+arrow+'" />',0,1,d1); str+="</div>"}
  str+="\n"; if(!bw.reuse){m.txt=null; m.d2=null; m.d3=null;}
  if(bw.usedom){ if(l==0) document.body.appendChild(d1); str=''}
  return str
}
/***get align num from text (better to evaluate numbers later)**/
function cm_checkalign(a){
  switch(a){
    case "right": return 1; break; case "left": return 2; break;
    case "bottom": return 3; break; case "top": return 4; break;
    case "righttop": return 5; break; case "lefttop": return 6; break;
    case "bottomleft": return 7; break; case "topleft": return 8; break;
  }return null
}
/**Making each individual menu **/
makeCM.prototype.makeMenu=function(name,parent,txt,lnk,targ,w,h,img1,img2,cl,cl2,align,rows,nolink,onclick,onmouseover,onmouseout){
  var c = this; if(!name) name = c.name+""+c.mc; var p = parent!=""&&parent&&c.m[parent]?parent:0;
  if(c.mc==0){
            if(bw.op7 && this.frames)      bw.usedom=0
            var tmp=location.href;
    if(tmp.indexOf('file:')>-1||tmp.charAt(1)==':') c.root=c.offlineRoot; else c.root=c.onlineRoot
    if(c.useBar){if(!c.barBorderClass) c.barBorderClass=c.barClass; c.bar1 = cm_divCreate(c.name+'bbar_0',c.barClass,'',0,1);
      c.bar = cm_divCreate(c.name+'bbar',c.barBorderClass,'',1,1,0,0,c.bar1); if(bw.usedom) c.bar.appendChild(c.bar1);    
    }}var create=1,img,arrow; var m = c.m[name] = new Object(); m.name=name; m.subs=new Array(); m.parent=p; m.arnum=0; m.arr=0
  var l = m.lev = p?c.m[p].lev+1:0; c.mc++; m.hide=0;
  if(l>=c.l.length){
    var p1,p2=0; if(l>=c.level.length) p1=c.l[c.level.length-1];
    else p1=c.level[l]; c.l[l]=new Array(); if(!p2) p2=c.l[l-1]
    if(l!=0){ if(isNaN(p1.align)) p1["align"]=cm_checkalign(p1.align)
      for(var i in p1){if(i!="str"&&i!="m"){if(p1[i]==null) c.l[l][i]=p2[i]; else c.l[l][i]=p1[i] }}
    }else{c.l[l]=c.level[0]; c.l[l].align=cm_checkalign(c.l[l].align)}
    c.l[l]["str"]=''; c.l[l].m=new Array(); if(!c.l[l].borderClass) c.l[l].borderClass=c.l[l].regClass
    c.l[l].app=0; c.l[l].max=0; c.l[l].arnum=0; c.l[l].o=new Array(); c.l[l].arr=new Array()
    c.level[l]=p1=p2=null
    if(l!=0) c.l[l].str=c.l[l].app=cm_divCreate(c.name+ '_' +l+'_0',c.l[l].borderClass,'')
  }if(p){p = c.m[p]; p.subs[p.subs.length]=name;
    if(p.subs.length==1&&c.l[l-1].arrow){ p.arr=1;
      if(p.parent){c.m[p.parent].arnum++
        if(c.m[p.parent].arnum>c.l[l-1].arnum){
          c.l[l-1].str+=c.l[l-1].arr[c.l[l-1].arnum]=cm_divCreate(c.name+ '_a' +(l-1)+'_'+c.l[l-1].arnum,'clCMAbs','<img height="'+c.l[l-1].arrowHeight
            +'" width="'+c.l[l-1].arrowWidth+'" src="'+c.root+c.l[l-1].arrow+'" alt="" />',0,1,c.l[l-1].app); c.l[l-1].arnum++
        }}}if(bw.reuse) if(p.subs.length>c.l[l].max) c.l[l].max = p.subs.length; else create=0
  }m.rows=rows>-1?rows:c.l[l].rows; m.w=cm_cp(w||c.l[l].width,1); m.h=cm_cp(h||c.l[l].height,0); m.txt=txt; m.lnk=lnk;
  if(align) align=cm_checkalign(align); m.align=align||c.l[l].align; m.cl=cl=cl||c.l[l].regClass;
  m.targ=targ; m.cl2=cl2||c.l[l].overClass; m.create=create;  m.mover=onmouseover; m.mout=onmouseout;
  m.onclck=onclick; m.active = cm_active; m.isactive=0; m.nolink=nolink
  if(create) c.l[l].m[c.l[l].m.length]=name
  if(img1){m.img1 = new Image(); m.img1.src=c.root+img1; if(!img2) img2=img1; m.img2 = new Image(); m.img2.src=c.root+img2;
    m.cl="clCMAbs"; m.txt=''; if(!bw.reuse&&!nolink) m.txt = '<a href="#" onmouseover="'+c.name+'.showsub(\''+name+'\')" onmouseout="'+c.name+'.mout(\''+name+'\')" onclick="'+c.name+'.onclck(\''+name+'\'); return false">';;
    m.txt+='<img alt="" src="'+c.root+img1+'" width="'+m.w+'" height="'+m.h+'" id="img'+m.name+'" '
    if(bw.dom&&!nolink) m.txt+='style="cursor:pointer; cursor:hand"'; if(!bw.reuse){if(!bw.dom) m.txt+='name="img'+m.name+'"'; m.txt+=' border="0"'}; m.txt+=' />'; if(!bw.reuse&&!nolink) m.txt+='</a>'
  }else{m.img1=0; m.img2=0};
  if(l==0||create) c.l[l].str+=cm_getLayerStr(m,c.l[l].app,c.name,c.fillImg,c.l[l].borderClass,c.l[l].arrow,c.l[l].arrowWidth,c.l[l].arrowHeight,c.root)
  if(l==0){if(m.w>c.maxw) c.maxw=m.w; if(m.h>c.maxh) c.maxh=m.h; c.totw+=c.pxBetween+m.w+c.l[0].borderX;c.toth+=c.pxBetween+m.h+c.l[0].borderY}
  if(lnk && !onmouseover){
            var path=lnk.indexOf("mailto:")>-1||lnk.indexOf("http://")>-1?"":c.root
            m.mover="self.status='"+path+m.lnk+"'"
            if(!m.mout) m.mout=""; m.mout+=";self.status='';"
      }
}
/**Getting x/y coords for subs **/
makeCM.prototype.getcoords=function(m,bx,by,x,y,maxw,maxh,ox,oy){
  var a=m.align; x+=m.o.x; y+=m.o.y
  switch(a){
    case 1:  x+=m.w+bx; break; case 2:  x-=maxw+bx; break;
    case 3:  y+=m.h+by; break; case 4:  y-=maxh+by; break;
    case 5:  x-=maxw+bx; y-=maxh-m.h; break;
    case 6:  x+=m.w+bx; y-=maxh-m.h; break;
    case 7:  y+=m.h+by; x-=maxw-m.w; break;
    case 8:  y-=maxh+by; x-=maxw-m.w+bx; break;
  }
  if(m.lev==this.frameStartLevel-1 && this.frames){
    switch(a){
      case 1:  x=0; break;
      case 2:  x=this.cmpage.x2-maxw; break;
      case 3:  y=0; break;
      case 4:  y-=maxh+by; break;
      case 5:  x-=maxw+bx; y-=maxh-m.h; break;
      case 6:  x+=m.w+bx; y-=maxh-m.h; break;
      case 7:  y+=m.h+by; x-=maxw-m.w; break;
      case 8:  y-=maxh+by; x-=maxw-m.w+bx; break;
    }
  }
  m.subx=x + ox; m.suby=y + oy
}
/**Showing sub elements**/
makeCM.prototype.showsub=function(el){
  var c=this,pm=c.m[el],m,o,nl
  if(!pm.b||(c.isresized&&pm.lev>0)) pm.b=c.l[pm.lev].b; c.isover=1
  clearTimeout(c.tim);
  var ln=pm.subs.length,l=pm.lev+1
  if(c.l[pm.lev].a==el&&l!=c.l.length && !c.openOnClick){if(c.l[pm.lev+1].a) c.hidesub(l+1,el); return}
  c.hidesub(l,el); if(pm.mover) eval(pm.mover); if(!pm.isactive) pm.active(1);
  c.l[pm.lev].a = el; if(ln==0) return;
      if(c.openOnClick && !c.clicked) return
      if(!c.l[l].b) return
  var b = c.l[l].b, bx=c.l[l].borderX, by=c.l[l].borderY, rows=pm.rows
      var rb=c.l[l].roundBorder;
  var x=bx+rb,y=by+rb,maxw=0,maxh=0,cn=0; b.hideIt()
  for(var i=0;i<c.l[l].m.length;i++){  
    if(!bw.reuse) m=c.m[c.l[l].m[i]]
    else m=c.m[c.m[el].subs[i]]
    if(m && m.parent==el&&!m.hide){
      if(!bw.reuse) o=m.o; else o=m.o=c.l[l].o[i]
      if(x!=o.x||y!=o.y) o.moveIt(x,y); nl=m.subs.length
      if(bw.reuse){
        if(o.w!=m.w || o.h!=m.h) o.clipTo(0,m.w,m.h,0,1)
        if(o.evnt.className!=m.cl){
          m.isactive=0; o.evnt.className=m.cl
          if(bw.ns6){o.hideIt(); o.css.visibility='inherit'}
        }if(bw.ie6) b.showIt()
        o.evnt.innerHTML=m.txt; if(bw.ie6) b.hideIt()
                        if(!m.nolink){
          o.evnt.onmouseover=new Function(c.name+".showsub('"+m.name+"')")
          o.evnt.onmouseout=new Function(c.name+".mout('"+m.name+"')")
          o.evnt.onclick=new Function(c.name+".onclck('"+m.name+"')")
          if(o.oldcursor){o.css.cursor=o.oldcursor; o.oldcursor=0;}
        }else{o.evnt.onmouseover=''; o.evnt.onclick='';  if(o.css.cursor=='') o.oldcursor=bw.ns6?"pointer":"hand"; else o.oldcursor=o.css.cursor; o.css.cursor="auto"}        
      }if(m.arr){o.arr=c.l[l].arr[cn]; o.arr.moveIt(x + m.w-c.l[l].arrowWidth-3,y+m.h/2-(c.l[l].arrowHeight/2));
      o.arr.css.visibility="inherit"; cn++;} else o.arr=0
      if(!rows){y+=m.h+by; if(m.w>maxw) maxw=m.w; maxh=y}
      else{x+=m.w+bx; if(m.h>maxh) maxh=m.h; maxw=x;}
      o.css.visibility="inherit"; if(bw.op5||bw.op6) o.showIt()
    }else{o = c.m[c.l[l].m[i]].o; o.hideIt();} }
  if(!rows) maxw+=bx*2+rb; else maxh+=by*2+rb;
      if(rb){maxw+=rb; maxh+=rb}
      b.clipTo(0,maxw,maxh,0,1)
      if(c.chkscroll) c.chkscroll()
  if(c.chkscroll||!pm.subx||!pm.suby||c.scrollY>-1||c.isresized) c.getcoords(pm,c.l[l-1].borderX,c.l[l-1].borderY,pm.b.x,pm.b.y,maxw,maxh,c.l[l-1].offsetX,c.l[l-1].offsetY)
      x=pm.subx; if(c.chkscroll&&l==c.frameStartLevel) pm.suby+=c.scrollY; y=pm.suby; b.moveIt(x,y); if(c.onshow) eval(c.onshow); b.showIt()
}
makeCM.prototype.hidesub=function(l,el){
  var c = this,tmp,m,i,j,hide
  if(!l) {l=1; hide=1; c.clicked=0}
  for(i=l-1;i<c.l.length;i++){
    if(i>0&&i>l-1) if(c.l[i].b) c.l[i].b.hideIt()
    if(c.l[i].a&&c.l[i].a!=el){
      m=c.m[c.l[i].a]; m.active(0,1); if(m.mout) eval(m.mout); c.l[i].a=0
      if(i>0&&i>l-1) if(bw.op5||bw.op6) for(j=0;j<c.l[i].m.length;j++) c.m[c.l[i].m[j]].o.hideIt()
    }if(i>l){for(j=0;j<c.l[i-1].arnum;j++){c.l[i-1].arr[j].hideIt(); if(bw.op6) c.l[i-1].arr[j].moveIt(-1000,-1000)}}
  }if(hide&&c.onhide) eval(c.onhide)
}
makeCM.prototype.makeObjects=function(nowrite,fromframe){
  var c = this,oc,name,bx,by,w,h,l,no,ar,id,nest,st=0,en=c.l.length,bobj,o,m,i,j
  if(fromframe){
    st = this.frameStartLevel
    this.body = fromframe.document.body
    this.doc = fromframe.document
    this.deftarget=fromframe
    this.cmpage = new cm_page(fromframe)
  }else{
    this.body=document.body
    this.doc=document
    if(this.frames) en = this.frameStartLevel
    this.deftarget=self
  }
  if(!nowrite){
    for(i=st;i<en;i++){
      if(!bw.usedom) this.doc.write(c.l[i].str)
      else if(i>0) this.body.appendChild(c.l[i].app)
      if(!this.frames) c.l[i].str=null
    }}c.z=c.zIndex+2
  for(i=st;i<en;i++){oc=0
    if(i!=0){bobj=c.l[i].b = new cm_makeObj(c.name + "_"+i+"_0","",c.l[i].app,this.doc); bobj.css.zIndex=c.z;
    if(bw.dom) bobj.css.overflow='hidden'}; bx=c.l[i].borderX; by=c.l[i].borderY; c.l[i].max=0;
    for(j=0;j<c.l[i].m.length;j++){
      m = c.m[c.l[i].m[j]]; name=m.name; w=m.w; h=m.h; l=m.lev; no=m.nolink;
      if(i>0){m.b = bobj; nest=i}
      else{m.b = new cm_makeObj(c.name + "_"+name+"_0","",m.d1,this.doc); m.b.css.zIndex=c.z; m.b.clipTo(0,w+bx*2,h+by*2,0,1); nest=name}
      id = c.name + "_"+name; nest=c.name + "_"+nest;
      if(m.create){
        o=m.o=new cm_makeObj(id,nest+"_0",m.d2,this.doc); o.z=o.css.zIndex=c.z+1; if(bw.reuse){c.l[l].o[oc]=o; oc++};
        if(l==0&&m.img1) o.css.visibility='inherit'; if(bw.op5) o.showIt(); o.arr=0;
      }if(!bw.reuse||l==0) o.clipTo(0,w,h,0,1); o.moveIt(bx,by); o.z=o.css.zIndex=c.z+2
      if(j<c.l[i].arnum){
        c.l[i].arr[j]=new cm_makeObj(c.name+"_a"+i+"_"+j,nest+"_0",nowrite?0:c.l[i].arr[j],this.doc)
        c.l[i].arr[j].css.zIndex=c.z+30+j;
      }else if(l==0&&m.arr==1){
        o.arr=new cm_makeObj(id+"_a",nest+"_0",m.d3,this.doc)
        o.arr.moveIt(bx+m.w-c.l[i].arrowWidth-3,by+m.h/2-(c.l[i].arrowHeight/2));
        o.arr.css.zIndex=c.z+20;
      }if(!no && !bw.reuse && !m.img1){  
        o.over=new cm_makeObj(c.name + "_"+name+"_1",nest+"_0"+".document.layers."+id,"",this.doc)
        o.over.moveIt(0,0); o.over.hideIt(); o.over.clipTo(0,w,h,0,1); o.over.css.zIndex=c.z+3
        img=new cm_makeObj(c.name + "_"+name+"_3",nest+"_0"+".document.layers."+id,"",this.doc); img.moveIt(0,0)
        img.css.visibility="inherit"; img.css.zIndex=c.z+4; if(bw.op5) img.showIt()
      }c.z++;
    }
  }
      if(fromframe){      
            c.chkscroll = function(){
                  if (bw.ie&&!bw.ie6) this.scrollY=this.body.scrollTop;
                  else if (bw.ie6 || bw.op7){
                        if (this.doc.compatMode && document.compatMode != "BackCompat")      this.scrollY=this.doc.documentElement.scrollTop
                        else this.scrollY=this.body.scrollTop
                  }else this.scrollY=this.deftarget.pageYOffset;
            }
      }
}
/**Onmouseout**/
makeCM.prototype.mout = function(){
      var c = this; clearTimeout(c.tim); c.isover = 0; var f="if(!"+c.name+".isover)"+c.name+".hidesub()"
  if(!c.closeOnClick) c.tim = setTimeout(f,c.wait)
      else{
            if(bw.ns4){ document.captureEvents("Event.MOUSEDOWN"); document.onmousedown=new Function(f)}
            else document.onclick=new Function(f);
            if(this.frames){
                  if(bw.ns4){this.doc.captureEvents("Event.MOUSEDOWN"); this.doc.onmousedown=new Function(f)}
                  else this.doc.onclick=new Function(f)
            }
      }
}
/**Constructing and initiating top items and bar**/
makeCM.prototype.construct=function(nowrite){
  var c=this; if(!c.l[0]||c.l[0].m.length==0) return cm_message('No menus defined');
       if(!nowrite){for(var i=1;i<c.l.length;i++){c.l[i].str+="</div>"}}
  c.makeObjects(nowrite); cmpage = new cm_page();
  var mpa,o,maxw=c.maxw,maxh=c.maxh,i,totw=c.totw,toth=c.toth,m,px=c.pxBetween
  var bx=c.l[0].borderX,by=c.l[0].borderY,x=c.fromLeft,y=c.fromTop,mp=c.menuPlacement,rows=c.rows
  if(rows){toth=maxh+by*2; totw=totw-px+bx;}else{totw=maxw+bx*2; toth=toth-px+by;}
  switch(mp){
    case "center": x=cmpage.x2/2-totw/2; if(bw.ns4) x-=9; break;
    case "right": x=cmpage.x2-totw; break;
    case "bottom": case "bottomcenter": y=cmpage.y2-toth; if(mp=="bottomcenter") x=cmpage.x2/2-totw/2; break;
    default: if(mp.toString().indexOf(",")>-1) mpa=1; break;
  }for(var i=0;i<c.l[0].m.length;i++){
    m = c.m[c.l[0].m[i]]; o = m.b; if(mpa) rows?x=cm_cp(mp[i]):y=cm_cp(mp[i],0,0,1);
    o.moveIt(x,y); o.showIt(); if(m.arr) m.o.arr.showIt(); o.oy=y;
    if(!mpa) rows?x+=m.w+px+bx:y+=m.h+px+by
  }if(c.useBar==1){ //Background-Bar
    var bbx=c.barBorderX,bby=c.barBorderY;
    var bar1=c.bar1= new cm_makeObj(c.name+'bbar_0',c.name+'bbar',nowrite?0:c.bar1,document)
    var bar=c.bar= new cm_makeObj(c.name+'bbar','',nowrite?0:c.bar,document); bar.css.zIndex=c.zIndex+1
    var barx=c.barX=="menu"?c.m[c.l[0].m[0]].b.x-bbx:cm_cp(c.barX,1);
    var bary=c.barY=="menu"?c.m[c.l[0].m[0]].b.y-bby:cm_cp(c.barY);
    var barw=c.barWidth=="menu"?totw:cm_cp(c.barWidth,1,bbx*2);
    var barh=c.barHeight=="menu"?toth:cm_cp(c.barHeight,0,bby*2);
    bar1.clipTo(0,barw,barh,0,1); bar1.moveIt(bbx,bby); bar1.showIt();
    bar.clipTo(0,barw+bbx*2,barh+bby*2,0,1); bar.moveIt(barx,bary); bar.showIt();
  }if(c.resizeCheck){ //Window resize code
    if(bw.ns4||bw.op5||bw.op6)setTimeout('window.onresize=new Function("'+c.name+'.resized()")',500)
            else window.onresize=new Function(c.name+".resized()")
    c.resized=cm_resized; if(bw.op5||bw.op6) document.onmousemove=new Function(c.name+".resized()")
  }if(c.onconstruct) eval(c.onconstruct) //onconstruct event
  c.constructed = 1
  return true
}
/**Capturing resize**/
var cm_inresize=0
function cm_resized(){
  if(cm_inresize) return
      page2=new cm_page(); var off=(bw.op6||bw.op5)?20:5
  if(page2.x2<cmpage.x2-off || page2.y2<cmpage.orgy-off || page2.x2>cmpage.x2+off || page2.y2>cmpage.orgy+off){
            if(bw.ie||bw.ns6||bw.op7||bw.ns4){
      cmpage=page2; this.isresized=1;
      if(this.onresize) eval(this.onresize); this.construct(1);
      if(this.onafterresize) eval(this.onafterresize);
            }else{cm_inresize=1; location.reload()}
  }
}
/**Onclick of an item**/
makeCM.prototype.onclck=function(m){
  m = this.m[m]
  if(m.onclck) eval(m.onclck);
      if(this.openOnClick && m.subs.length>0){
            this.clicked = 1; this.showsub(m.name); return
      }
  var lnk=m.lnk, targ=m.targ
  if(lnk){
    if(lnk.indexOf("mailto")!=0 && lnk.indexOf("http")!=0) lnk=this.root+lnk
            if(String(targ)=="undefined" || targ=="" || targ==0 || targ=="_self"){
      if(this.frames){ //Turning of all level 1 + vars
        if(this.l[0].a){
          this.m[this.l[0].a].active(0,1)
          this.l[0].a =0
        }
        for(i=this.frameStartLevel;i<this.l.length;i++){
          if(this.l[i].b){
            this.l[i].b.hideIt()
            this.l[i].b = null
            for(j=0;j<this.l[i].m.length;j++){
              this.m[this.l[i].m[j]].b = null;
            }
          }
        }
        this.isover=0
      }
      this.deftarget.location.href=lnk
    }
    else if(targ=="_blank") window.open(lnk)
    else if(targ=="_top" || targ=="window") top.location.href=lnk
    else if(top[targ]) top[targ].location.href=lnk
    else if(parent[targ]) parent[targ].location.href=lnk
  }else return false
}
0
 
peterxlaneCommented:
It should work like this:

<%
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connStr)
strOuterSQL = "SELECT sectionid, Title, parentid From Sections Order by sectionid"
Set oRecordset = oConn.Execute(strOuterSQL)
Do While Not oRecordset.EOF      
      intSectionID = oRecordset("sectionid")
      strTitle = oRecordset("Title")
      strParentSection = "parent" & oRecordset("sectionid")
      
      Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf
      
      strInnerSQL =  "Select fileid, title, sectionid From Files Where sectionid = " &  intSectionID & " and Files.DLCId = 4"
      Set oInnerRecordset = oConn.Execute(strInnerSQL)
      Do While Not oInnerRecordset.EOF
            strInnerTitle = oInnerRecordset("title")
        strInnerPageLink = "mypage.asp?id=" & oInnerRecordset("fileid")        
        strChildSection = "child" & oInnerRecordset("fileid")
                         
            Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strInnerTitle & "','" & strPageLink & "')" & vbcrlf
            
            oInnerRecordset.MoveNext
      Loop      
      oRecordset.MoveNext
Loop
oConn.Close
Set oConn = Nothing
%>
0
 
SvjetlanaAuthor Commented:
Thank you, I think we are getting there. The menu is displayed horizontally with vertical dropdown, although vertical dropdown doesn't show their horizontal child menu . For example,

oCMenu.makeMenu('m72','m72','disciplines','')
oCMenu.makeMenu('m75','m72','web','')
oCMenu.makeMenu('m299','m75','link 1','mypage.asp?id=299')
oCMenu.makeMenu('m79','m72','test','')
oCMenu.makeMenu('m325','m79','link 2','mypage.asp?id=325')


Web and test should be vertically displayed from horizontal disciplines and web should display horizontal link 1, while  test should display link 2.


Also, hyperlinks are not working for strPageLink. Is it because of


Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf

Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strInnerTitle & "','" & strPageLink & "')" & vbcrlf

Thanks.
0
 
SvjetlanaAuthor Commented:
Hyperlinks are ok now, I have changed:

strPageLink to strInnerPageLink

Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strInnerTitle & "','" & strInnerPageLink & "')" & vbcrlf

Still trying to work out how to display:

disciplines
    web
       link 1 (as strInnerPageLink)
    test
       link 2 (as strInnerPageLink)




Web and test should be vertically displayed from horizontal disciplines and web should display horizontal link 1, while  test should display link 2.
0
 
SvjetlanaAuthor Commented:
Anyone out there????  I have managed to add strSubParentSection

strSubParentSection = "subparent" & oRecordset("sectionid")

 If strParentSection = strSubParentSection then
       Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf  
        Response.Write VBTab & "oCMenu.makeMenu('" &  strSubParentSection & "','" & strParentSection & "','" & strTitle & "','')" & vbcrlf
       else
       Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf    
 End if

But now I have my strParentSection repeating, rather then displaying strSubParentSection.

For example, it should display my strParentSection (disciplines) and strSubParentSection (web) if it exists and it's strTitle, otherwise just display strParentSection and it's strTitle. I.E.

oCMenu.makeMenu('m72','m72','disciplines','')
oCMenu.makeMenu('m75','m72','web','')
oCMenu.makeMenu('m299','m75','link 1','mypage.asp?id=299')
oCMenu.makeMenu('m79','m72','test','')
oCMenu.makeMenu('m325','m79','link 2','mypage.asp?id=325')
0
 
SvjetlanaAuthor Commented:
I just increased the points for this question, as it is urgent.
0
 
peterxlaneCommented:
So in plain English, let's translate this:

oCMenu.makeMenu('m71','m71','company','')  ------------------------------This is a parent item that is displayed on the main screen
oCMenu.makeMenu('m297','m71','mission','mypage.asp?id=297')---------This is the first child of the company that gets displayed only when the mouse is over 'company'
oCMenu.makeMenu('m298','m71','our process','mypage.asp?id=298')----This is the second child of the company that gets displayed only when the mouse is over 'company'
oCMenu.makeMenu('m351','m71','link 1','mypage.asp?id=351')------------This is the first child of 'our process', that gets displayed only when the mouse is over 'our process'
oCMenu.makeMenu('m352','m71','link 2','mypage.asp?id=352')------------This is the second child of 'our process', that gets displayed only when the mouse is over 'our process'



Is that all correct?  Is so, then I would think that the last two items (link 1 and link 2) should be pulled from a third database query based on the inner recordset.  At a high level, it looks like you have this:

PARENT - Main Sections
--CHILD - Sub Sections
----GRANDCHILD - Sub Section of Sub Section


If that is the desired menu, then either you would have a third database table, another query, or at the very least something in that inner query that would allow to differentiate that an item is a grandchild rather than a child.
0
 
SvjetlanaAuthor Commented:
This is how it should be displayed:

oCMenu.makeMenu('m72','m72','disciplines','') ---------This is a parent item that is displayed on the main screen

oCMenu.makeMenu('m75','m72','web','') )---------This is the first child of the disciplines that gets displayed only when the mouse is over 'disciplines'

oCMenu.makeMenu('m299','m75','link 1','mypage.asp?id=299')--------This is the first child of 'web', and grandchild of disciplines, that gets displayed when the mouse is moved over 'disciplines', then 'web'

oCMenu.makeMenu('m79','m72','test','')---------This is the second child of the disciplines that gets displayed only when the mouse is over 'disciplines'

oCMenu.makeMenu('m325','m79','link 2','mypage.asp?id=325')--------This is the first child of 'test', and grandchild of disciplines, that gets displayed when the mouse is moved over 'disciplines', then 'test'


Database contains 2 tables 'Files' and 'Sections'

'Files' table recordsets are:

FileId      Title         SectionId  DLCId        Online   BaseFileId       PreviousFileId
299           link 1         75         4      yes      0      0
325      link 2        79         4      yes      0      0
317      another       80         3      no          317      317
320      another       80         4      yes         317      317


etc..


'Section' table recordsets are:

SectionId        Title       ParentId       BaseId
72      disciplines      0      0
75      web      72      72
79      test      72      72
80      another     0      0
81      anoher 1      80      80
82      another 2      81      80

etc....


I have tried several SQL statements, but it's just not working and I can figure it out what I'm doing wrong. I have also changed this to:

strOuterSQL = "SELECT sectionid, Title, parentid, online, BaseId From Sections where online=true Order by sectionid"

Set oRecordset = oConn.Execute(strOuterSQL)
Do While Not oRecordset.EOF    
     intSectionID = oRecordset("sectionid")
     strTitle = oRecordset("Title")
     strparentid = oRecordset("parentid")
       strBaseId = oRecordset("BaseId")
       stronline = oRecordset("online")
         strParentSection = "parent" & oRecordset("sectionid")
       strSubParentSection = "subparent" & oRecordset("sectionid")


 Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf  

     If oRecordset("online") = true then
      
       Response.Write VBTab & "oCMenu.makeMenu('" &  strSubParentSection & "','" & strParentSection & "','" & strTitle & "','')" & vbcrlf
      
       else
      
       Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strTitle & "','')" & vbcrlf    
   
      End if


HEEEELP....
0
 
peterxlaneCommented:
I hope this should resolve it for you. It looks like another recordset was the way to go.  This is also a really good example of how helpful variable names, indenting your code, and comments can be really helpful when you are dealing with nested loops like this:

<%
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connStr)

'-------START OF PARENT LOOP---------'
strParentSQL = "SELECT sectionid, Title, parentid From Sections WHERE ParentID = 0 Order by sectionid"
Set oParentRecordset = oConn.Execute(strParentSQL)

Do While Not oParentRecordset.EOF      
      intParentSectionID = oParentRecordset("sectionid")
      strParentTitle = oParentRecordset("Title")
      strParentSection = "parent" & oParentRecordset("sectionid")
      
      Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strParentTitle & "','')" & vbcrlf
                  
      '-------START OF CHILD LOOP---------'
      strChildSQL = "SELECT sectionid, Title, parentid From Sections WHERE ParentID = " & intParentSectionID & " Order by sectionid"
      Set oChildRecordset = oConn.Execute(strChildSQL)
      
      Do While Not oChildRecordset.EOF
            strChildTitle = oChildRecordset("title")
            intChildSectionID = oChildRecordset("sectionid")
        strChildSection = "child" & intChildSectionID

            Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strChildTitle & "','')" & vbcrlf
            
            '-------START OF GRANDCHILD LOOP---------'
            strGrandChildSQL = "Select fileid, title, sectionid From Files Where sectionid = " &  intChildSectionID & " and Files.DLCId = 4"
            Set oGrandChildRecordset = oConn.Execute(strGrandChildSQL)
      
            Do While Not oGrandChildRecordset.EOF
                  intGrandChildSectionID = oGrandChildRecordset("sectionid")
                  intGrandChildFileID = oGrandChildRecordset("fileid")
                  strGrandChildTitle = oGrandChildRecordset("title")                  
                strGrandChildSection = "grandchild" & intGrandChildSectionID
                strGrandChildPageLink = "mypage.asp?id=" & intGrandChildFileID

                  Response.Write VBTab & VBTab & "oCMenu.makeMenu('" & strGrandChildSection & "','" & strChildSection & "','" & strGrandChildTitle & "','" & strGrandChildPageLink & "')" & vbcrlf
                        
                        
                  oGrandChildRecordset.MoveNext
            Loop
            oGrandChildRecordset.Close
            '-------END OF GRANDCHILD LOOP---------'            
            
            
            oChildRecordset.MoveNext
      Loop
      oChildRecordset.Close
      '-------END OF CHILD LOOP---------'      


      oParentRecordset.MoveNext
Loop
oParentRecordset.Close
'-------END OF PARENT LOOP---------'


oConn.Close
Set oConn = Nothing
%>
0
 
SvjetlanaAuthor Commented:
peterxlane, thanks for your help. I think I am getting somewhere with your advice, but still can not figure out why this code still not running properly. I have increased the points again, can you please get back to me, as I am tumbling in the dark now.

This is the latest code:

'-------START OF PARENT LOOP---------'
strParentSQL = "SELECT sectionid, Title, parentid From Sections WHERE ParentID = 0 Order by sectionid"
Set oParentRecordset = oConn.Execute(strParentSQL)

Do While Not oParentRecordset.EOF    
     intParentSectionID = oParentRecordset("sectionid")
     strParentTitle = oParentRecordset("Title")
     intParentID = oParentRecordset("parentid")
     strParentSection = "parent" & oParentRecordset("sectionid")
     
     Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strParentTitle & "','')" & vbcrlf
               
           '-------START OF ParentCHILD LOOP---------'
          strParentChildSQL = "Select fileid, title, sectionid From Files Where sectionid = " &  intParentSectionID & " and Files.DLCId = 4 and online= -1"
          Set oParentChildRecordset = oConn.Execute(strParentChildSQL)
     
          Do While Not oParentChildRecordset.EOF
               intParentChildSectionID = oParentChildRecordset("sectionid")
               intParentChildFileID = oParentChildRecordset("fileid")
               strParentChildTitle = oParentChildRecordset("title")              
               strParentChildSection = "parentchild" & intParentChildSectionID
               strParentChildPageLink = "mypage.asp?id=" & intParentChildFileID
             
                    If intParentSectionID  = intParentChildSectionID then
                    
                     Response.Write VBTab & "oCMenu.makeMenu('" & strParentChildSection & "','" & strParentChildTitle & "','" & strParentChildPageLink & "')" & vbcrlf  
             
                   else         
                  
                   Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strChildTitle & "','')" & vbcrlf

                                      end if
                  
                   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                   '-------START OF CHILD LOOP---------'
                 strChildSQL = "SELECT sectionid, Title, parentid From Sections WHERE ParentID = " & intParentSectionID & " Order by sectionid"
                 Set oChildRecordset = oConn.Execute(strChildSQL)
     
                 Do While Not oChildRecordset.EOF
                            strChildTitle = oChildRecordset("title")
                            intChildSectionID = oChildRecordset("sectionid")
                          strChildSection = "child" & intChildSectionID

                            Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & strParentSection & "','" & strChildTitle & "','')" & vbcrlf
         
                    '-------START OF GRANDCHILD LOOP---------'
                            strGrandChildSQL = "Select fileid, title, sectionid From Files Where sectionid = " &  intChildSectionID & " and Files.DLCId = 4 and online= -1"
                            Set oGrandChildRecordset = oConn.Execute(strGrandChildSQL)
     
                            Do While Not oGrandChildRecordset.EOF
                           intGrandChildSectionID = oGrandChildRecordset("sectionid")
                           intGrandChildFileID = oGrandChildRecordset("fileid")
                           strGrandChildTitle = oGrandChildRecordset("title")              
                           strGrandChildSection = "grandchild" & intGrandChildSectionID
                           strGrandChildPageLink = "mypage.asp?id=" & intGrandChildFileID

                           Response.Write VBTab & VBTab & "oCMenu.makeMenu('" & strGrandChildSection & "','" & strChildSection & "','" & strGrandChildTitle & "','" & strGrandChildPageLink & "')" & vbcrlf
                           oGrandChildRecordset.MoveNext
                                Loop
           oGrandChildRecordset.Close
           '-------END OF GRANDCHILD LOOP---------'          
                   
             oChildRecordset.MoveNext
     Loop
     oChildRecordset.Close
     '-------END OF CHILD LOOP---------'    
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''                     
           
     oParentChildRecordset.MoveNext
 Loop
 oParentChildRecordset.Close
 '-------END OF ParentCHILD LOOP---------'  

             
     oParentRecordset.MoveNext
Loop
oParentRecordset.Close
'-------END OF PARENT LOOP---------'


Displaying:


oCMenu.makeMenu('parent71','','company','')
      oCMenu.makeMenu('parentchild71','mission','mypage.asp?id=297')
      oCMenu.makeMenu('parentchild71','our process','mypage.asp?id=298')
      oCMenu.makeMenu('parentchild71','mission','mypage.asp?id=306')
      oCMenu.makeMenu('parentchild71','mission','mypage.asp?id=309')
      oCMenu.makeMenu('parentchild71','our process','mypage.asp?id=310')
      oCMenu.makeMenu('parentchild71','mission','mypage.asp?id=314')
      oCMenu.makeMenu('parentchild71','link 1','mypage.asp?id=351')
      oCMenu.makeMenu('parentchild71','link 2','mypage.asp?id=352')
      oCMenu.makeMenu('parentchild71','link 2','mypage.asp?id=353')
      oCMenu.makeMenu('parentchild71','link 1','mypage.asp?id=354')
oCMenu.makeMenu('parent72','','disciplines','')
oCMenu.makeMenu('parent73','','portfolio library','')
oCMenu.makeMenu('parent77','','section','')
      oCMenu.makeMenu('parentchild77','tek','mypage.asp?id=364')
oCMenu.makeMenu('parent80','','The Project','')
      oCMenu.makeMenu('parentchild80','Home test','mypage.asp?id=320')
      oCMenu.makeMenu('child81','parent80','Project Management','')
      oCMenu.makeMenu('child82','parent80','Who?','')
            oCMenu.makeMenu('grandchild82','child82','Who are we','mypage.asp?id=321')
            oCMenu.makeMenu('grandchild82','child82','Our People','mypage.asp?id=322')
      oCMenu.makeMenu('child83','parent80','Technical','')
      oCMenu.makeMenu('child84','parent80','Solutions','')
      oCMenu.makeMenu('child85','parent80','Products','')
      oCMenu.makeMenu('child86','parent80','Enterprise','')
      oCMenu.makeMenu('child87','parent80','Contact Us','')
      oCMenu.makeMenu('child88','parent80','Area','')
      oCMenu.makeMenu('child118','parent80','test stuff','')
      oCMenu.makeMenu('parentchild80','Hello','mypage.asp?id=359')
      oCMenu.makeMenu('child81','parent80','Project Management','')
      oCMenu.makeMenu('child82','parent80','Who?','')
            oCMenu.makeMenu('grandchild82','child82','Who are we','mypage.asp?id=321')
            oCMenu.makeMenu('grandchild82','child82','Our People','mypage.asp?id=322')
      oCMenu.makeMenu('child83','parent80','Technical','')
      oCMenu.makeMenu('child84','parent80','Solutions','')
      oCMenu.makeMenu('child85','parent80','Products','')
      oCMenu.makeMenu('child86','parent80','Enterprise','')
      oCMenu.makeMenu('child87','parent80','Contact Us','')
      oCMenu.makeMenu('child88','parent80','Area','')
      oCMenu.makeMenu('child118','parent80','test stuff','')
oCMenu.makeMenu('parent119','','Another Service','')


Problems:

1.      Parent72 and parent73 are not showing their children and grandchildren
2.      Child81 & Child82 is repeated
3.      The menu is created but is not displayed on the page
4.      If there are more recordsets in the database, rather then just 3 dynamic levels, how can I add them to the menu

Cheers.
0
 
SvjetlanaAuthor Commented:
peterxlane I couldn't do it without you, thanks.... but I have managed to find the answer:

'-------START OF PARENT LOOP---------'
strParentSQL = "SELECT sectionid, Title, parentid From Sections WHERE ParentID = 0 Order by sectionid"
Set oParentRecordset = oConn.Execute(strParentSQL)

Do While Not oParentRecordset.EOF    
     intParentSectionID = oParentRecordset("sectionid")
     strParentTitle = oParentRecordset("Title")
     strParentSection = "section" & oParentRecordset("sectionid")
         
     Response.Write "oCMenu.makeMenu('" & strParentSection & "','','" & strParentTitle & "','')" & vbcrlf
               
          '-------START OF CHILD LOOP---------'
       rem     strChildSQL = "SELECT sectionid, Title, parentid From Sections WHERE sectionid = " & intParentSectionID & " Order by sectionid"
       strChildSQL = "SELECT sectionid, Title, parentid From Sections S  WHERE sectionid  = " & intParentSectionID & " and (Exists (Select S1.SectionId From Sections S1 Where S1.ParentId = S.SectionId) Or Exists (Select F.FileId From Files F Where F.SectionId= S.SectionId and DLCId = 4 and OnLine = true))"
     Set oChildRecordset = dbConn.Execute(strChildSQL)

     
           Do While Not oChildRecordset.EOF
          strChildTitle = oChildRecordset("title")
          intChildSectionID = oChildRecordset("sectionid")
          strChildSection = "section" & intChildSectionID
             
          Response.Write VBTab & "oCMenu.makeMenu('" & strChildSection & "','" & "section" & oChildRecordset("ParentId") & "','" & strChildTitle & "','')" & vbcrlf
         
             '-------START OF GRANDCHILD LOOP---------'
          strGrandChildSQL = "Select fileid, title, sectionid, online, From Files Where sectionid = " &  intChildSectionID & " and DLCId = 4 and online = true  order by title, MajorVersion Desc"
          Set oGrandChildRecordset = dbConn.Execute(strGrandChildSQL)
                 oldTitle = "" 

       Do While Not oGrandChildRecordset.EOF
               intGrandChildSectionID = oGrandChildRecordset("sectionid")
               intGrandChildFileID = oGrandChildRecordset("fileid")
               strGrandChildTitle = oGrandChildRecordset("title")              
              strGrandChildSection = "grandchild" & intGrandChildFileID

 strGrandChildPageLink = "mypage.asp?id=" & intGrandChildFileID
                  if oldTitle <> strGrandChildTitle then
                    Response.Write VBTab & VBTab & "oCMenu.makeMenu('" & strGrandChildSection & "','" & strChildSection & "','" & strGrandChildTitle & "','" & strGrandChildPageLink & "')" & vbcrlf
                    oldTitle = strGrandChildTitle
                  end if
                   
               oGrandChildRecordset.MoveNext
          Loop
          ''''oGrandChildRecordset.Close
          '-------END OF GRANDCHILD LOOP---------'          
         
         
          oChildRecordset.MoveNext
     Loop
     oChildRecordset.Close
     '-------END OF CHILD LOOP---------'    

'-------START OF GRANDCHILD LOOP FOR TOP LEVEL FOLDES ONLY---------'
         strGrandChildSQL = "Select fileid, title, sectionid From Files Where sectionid = " &  intParentSectionID & " and DLCId = 4 and online = true  order by title Desc"
          Set oGrandChildRecordset = dbConn.Execute(strGrandChildSQL)
                 oldTitle = ""     
          Do While Not oGrandChildRecordset.EOF
               intGrandChildSectionID = oGrandChildRecordset("sectionid")
               intGrandChildFileID = oGrandChildRecordset("fileid")
               strGrandChildTitle = oGrandChildRecordset("title")              
              strGrandChildSection = "grandchild" & intGrandChildFileID 'intGrandChildSectionID User FileId for Grand Child name instead of section Id (Id must be unique)'

              strGrandChildPageLink = "mypage.asp?id=" & intGrandChildFileID
                  if oldTitle <> strGrandChildTitle then
               Response.Write VBTab & VBTab & "oCMenu.makeMenu('" & strGrandChildSection & "','" & "section" & intGrandChildSectionID & "','" & strGrandChildTitle & "','" & strGrandChildPageLink & "')" & vbcrlf
                    oldTitle = strGrandChildTitle
                  end if
                   
             oGrandChildRecordset.MoveNext
          Loop
          '-------END OF GRANDCHILD LOOP FOR TOP LEVEL FOLDES ONLY---------'          


     oParentRecordset.MoveNext
Loop
oParentRecordset.Close
'-------END OF PARENT LOOP---------''
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 15
  • 8
  • 7
Tackle projects and never again get stuck behind a technical roadblock.
Join Now