vbscript og jscript

Endnu et spørgsmål om coolmenus.
Det programmeret i jscript og jeg bruger ellers vbscript.
Så nu skal jeg have defineret coolmenus til jscript så den ikke køre som standard, som den ellers er sat til med <%@language=Javascript%>

Jeg har selv prøvet at rode lidt med det, men får fejl om som koden ser ud nu at makeCM ikke er defineret.


<html>
<head>
<!-- Minus AutoDato -->
    <title>Menu Kildebohuse</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<style>
BODY{
  font-family:Verdana;
  font-size:10px;
}
code,pre{
  color:red;
}
/* CoolMenus 4 - default styles - do not edit */
.clCMAbs{position:absolute; visibility:hidden; left:0; top:0}
/* CoolMenus 4 - default styles - end */
 
/*Style for the background-bar*/
.clBar{position:absolute; width:10; height:10; background-color:#07165F; layer-background-color:#07165F; visibility:hidden}

/*Styles for level 0*/
.clLevel0,.clLevel0over{position:absolute; padding:2px; font-family:Verdana; font-size:10px; font-weight:bold}
.clLevel0{background-color:#07165F; layer-background-color:#07165F; color:#F8F8F8;}
.clLevel0over{background-color:#07165F; layer-background-color:#07165F; color:#F8F8F8; cursor:pointer; cursor:hand; }
.clLevel0border{position:absolute; visibility:hidden; background-color:#07165F; layer-background-color:#07165F}

/*Styles for level 1*/
.clLevel1, .clLevel1over{position:absolute; padding:2px; font-family:Verdana; font-size:10px; font-weight:normal}
.clLevel1{background-color:#333366; layer-background-color:#333366; color:#F8F8F8;}
.clLevel1over{background-color:#CCCCCC; layer-background-color:#CCCCCC; color:#000000; cursor:pointer; cursor:hand; }
.clLevel1border{position:absolute; visibility:hidden; background-color:#000000; layer-background-color:#000000}

/*Styles for level 2*/
.clLevel2, .clLevel2over{position:absolute; padding:2px; font-family:Verdana; font-size:10px; font-weight:normal}
.clLevel2{background-color:#333366; layer-background-color:#333366; color:#F8F8F8;}
.clLevel2over{background-color:#CCCCCC; layer-background-color:#CCCCCC; color:#000000; cursor:pointer; cursor:hand; }
.clLevel2border{position:absolute; visibility:hidden; background-color:#000000; layer-background-color:#0000000}
</style>
<script language="JavaScript" src="coolmenus4.js">
<!-- Copyright (c) 2001 Thomas Brattli (webmaster@dhtmlcentral.com) -->
</script>
</head>
<body>
<center><img src="billeder/logo.jpg" width="500" height="60"></center>
<script language="JavaScript" runat="Server">
/***
This is the menu creation code - place it right after you body tag
Feel free to add this to a stand-alone js file and link it to your page.
**/

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

//Menu properties 
oCMenu.pxBetween=20
oCMenu.fromLeft=20
oCMenu.fromTop=60 
oCMenu.rows=1
oCMenu.menuPlacement="center"
                                                           
oCMenu.offlineRoot="file:///C|/Inetpub/wwwroot/dhtmlcentral/"
oCMenu.onlineRoot="/coolmenus/"
oCMenu.resizeCheck=1
oCMenu.wait=1000
oCMenu.fillImg="cm_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=60
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=150
oCMenu.level[0].height=17
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[1] 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=oCMenu.level[0].width-2
oCMenu.level[1].height=17
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[2] 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=150
oCMenu.level[2].height=20
oCMenu.level[2].offsetX=0
oCMenu.level[2].offsetY=0
oCMenu.level[2].regClass="clLevel2"
oCMenu.level[2].overClass="clLevel2over"
oCMenu.level[2].borderClass="clLevel2border"


/******************************************
Menu item creation:
myCoolMenu.makeMenu(name, parent_name, text, link, target, width, height, regImage, overImage, regClass, overClass , align, rows, nolink, onclick, onmouseover, onmouseout)
*************************************/

/*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ASP CODE START - READING ITEMS FROM THE DATABASE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
function readItemsFromDatabase(){
  //The path to your database:
  var db ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db/database.mdb")
 
  var q = "SELECT menuID,mName,mLink,parent from tblMenu ORDER BY parent,menuID ASC"
 
  var rs=Server.CreateObject("ADODB.Recordset")
  rs.CacheSize = 25;         // Cache data fetching
  rs.CursorType = 3
  rs.LockType = 3
 
  //Opening database --- --
  rs.Open(q,db)
 
  //Now using getRows because that's so sexy :}
  if(!rs.EOF){
    var rsarr = rs.GetRows();
    rsarr = rsarr.toArray();
    var cols= rs.Fields.Count //Setting how much to add to row each for
  }else var rsarr=new Array()
 
  //Closing database, we don't need it anymore - we have the info in the array
  rs.close()
  rs = null
 
  var menuID,mName,mLink,parent
 
  for(row=0;row<rsarr.length;row+=cols){ //Looping rows
    //Setting variables
    menuID = "m" + rsarr[row]
    mName = rsarr[row+1]
    mLink = String(rsarr[row+2])
    if(mLink=="null") mLink=""
    parent = rsarr[row+3]
    if(parent!=0) parent = "m" + parent
    else parent=""
    //Making menu item
    Response.write("oCMenu.makeMenu('"+menuID+"','"+parent+"','"+mName+"','"+mLink+"')\n")
  }
}
//Calling function
readItemsFromDatabase()

/*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ASP CODE END - READING ITEMS FROM THE DATABASE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/

//Leave this line - it constructs the menu
oCMenu.construct()       
</script>
<p><br></p>
</body>
</html>