lille fejl...
Hej.Jeg får en fejl i linje 48 - er der nogen der kan hjælpe? *G
Nej, seriøst - Jeg har ingen anelse om hvad der er galt ... noget gik galt i implementeringen af noget asp i en DHTML-menu - Er der nogen der har lyst til at bruge fem minutter på at kigge på koden og komme med et bud?
---------------- show.asp start ------------------------
<!-- #include File="include/ini.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=databasen"
strSQL2 = "SELECT * FROM tekst WHERE id = '" & request.querystring("id") & "';"
Conn.Execute (strSQL2)
Set rs2 = Conn.Execute(strSQL2)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title><%= rs2("titel")%></title>
<META NAME="description" CONTENT="<%=rs2("meta_descr")%>">
<META NAME="keywords" CONTENT="<%=rs2("meta_key")%>">
<LINK href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript">
function lib_bwcheck(){
this.ver=navigator.appVersion
this.agent=navigator.userAgent
this.dom=document.getElementById?1:0
this.opera5=this.agent.indexOf("Opera 5")>-1
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom && !this.opera5)?1:0;
this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom && !this.opera5)?1:0;
this.ie4=(document.all && !this.dom && !this.opera5)?1:0;
this.ie=this.ie4||this.ie5||this.ie6
this.mac=this.agent.indexOf("Mac")>-1
this.ns6=(this.dom && parseInt(this.ver) >= 5) ?1:0;
this.ns4=(document.layers && !this.dom)?1:0;
this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5)
return this
}
var bw=new lib_bwcheck()
nPlace=0
//Antal menupunkter
//var nNumberOfMenus=<%= antal %>
var nNumberOfMenus=9
var nMwidth=84
var nPxbetween=1
var nFromleft=12
var nFromtop=55
var nBgcolor='#656565'
var nBgcolorchangeto='#656565'
var nImageheight=32
function makeNewsMenu(obj,nest){
nest=(!nest) ? "":'document.'+nest+'.'
this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;
this.evnt=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+"document.layers." +obj):0;
this.scrollHeight=bw.ns4?this.css.document.height:this.evnt.offsetHeight
this.moveIt=b_moveIt;this.bgChange=b_bgChange;
this.slideUp=b_slideUp; this.slideDown=b_slideDown;
this.clipTo=b_clipTo;
this.obj = obj + "Object"; eval(this.obj + "=this")
}
var px = bw.ns4||window.opera?"":"px";
function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x+px; this.css.top=this.y+px;}
function b_bgChange(color){this.css.backgroundColor=color; this.css.bgColor=color; this.css.background=color;}
function b_clipTo(t,r,b,l){
if(bw.ns4){this.css.clip.top=t; this.css.clip.right=r; this.css.clip.bottom=b; this.css.clip.left=l
}else this.css.clip="rect("+t+"px "+r+"px "+b+"px "+l+"px)";
}
function b_slideUp(ystop,moveby,speed,fn,wh){
if(!this.slideactive){
if(this.y>ystop){
this.moveIt(this.x,this.y-5); eval(wh)
setTimeout(this.obj+".slideUp("+ystop+","+moveby+","+speed+",'"+fn+"','"+wh+"')",speed)
}else{
this.slideactive=false; this.moveIt(0,ystop); eval(fn)
}
}
}
function b_slideDown(ystop,moveby,speed,fn,wh){
if(!this.slideactive){
if(this.y<ystop){
this.moveIt(this.x,this.y+5); eval(wh)
setTimeout(this.obj+".slideDown("+ystop+","+moveby+","+speed+",'"+fn+"','"+wh+"')",speed)
}else{
this.slideactive=false; this.moveIt(0,ystop); eval(fn)
}
}
}
function newsMenuInit(){
oTopMenu=new Array()
zindex=10
for(i=0;i<=nNumberOfMenus;i++){
oTopMenu[i]=new Array()
oTopMenu[i][0]=new makeNewsMenu('divTopMenu'+i)
oTopMenu[i][1]=new makeNewsMenu('divTopMenuBottom'+i,'divTopMenu'+i)
oTopMenu[i][2]=new makeNewsMenu('divTopMenuText'+i,'divTopMenu'+i)
oTopMenu[i][1].moveIt(0,nImageheight)
oTopMenu[i][0].clipTo(0,nMwidth,nImageheight+3,0)
if(!nPlace) oTopMenu[i][0].moveIt(i*nMwidth+nFromleft+(i*nPxbetween),nFromtop)
else{
oTopMenu[i][0].moveIt(nFromleft,i*nImageheight+nFromtop+(i*nPxbetween))
oTopMenu[i][0].css.zIndex=zindex--
}
oTopMenu[i][0].css.visibility="visible"
}
}
function topMenu(num){
if(oTopMenu[num][1].y==nImageheight) oTopMenu[num][1].slideDown(oTopMenu[num][2].scrollHeight+20,10,40,'oTopMenu['+num+'][0].clipTo(0,nMwidth,oTopMenu['+num+'][1].y+3,0)','oTopMenu['+num+'][0].clipTo(0,nMwidth,oTopMenu['+num+'][1].y+3,0)')
else if(oTopMenu[num][1].y==oTopMenu[num][2].scrollHeight+20) oTopMenu[num][1].slideUp(nImageheight,10,40,'oTopMenu['+num+'][0].clipTo(0,nMwidth,oTopMenu['+num+'][1].y+3,0)','oTopMenu['+num+'][0].clipTo(0,nMwidth,oTopMenu['+num+'][1].y+3,0)')
}
function menuOver(num){oTopMenu[num][1].bgChange(nBgcolorchangeto)}
function menuOut(num){oTopMenu[num][1].bgChange(nBgcolor)}
if (bw.bw) onload = newsMenuInit;
</script>
<!-- #include File="menu.asp" -->
<a name="top"></a>
<table border="0" cellpadding="0" cellspacing="0" summary="" width="776" height="100%" bgcolor="#4d4d4d">
<tr>
<td valign="top"><br>
<table width="775" border="0" summary="">
<tr>
<td></td>
<td height="64" valign="top"> <a href="show2.asp?id=42" onFocus="this.blur();"><img src="images/logo4.gif" border="0" alt="djghfjhjf" width="138" height="34"></a> </td>
<td align="right">
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" summary="">
<tr>
<td valign="top" width="543">
<!-- main -->
<table border="0" cellpadding="2" cellspacing="20" summary="">
<tr>
<td colspan="3" height="430" valign="top">
<%
If left(rs2("side_id"),2) = "19" or left(rs2("side_id"),2) = "22" then
Response.write "For at se sider på Min side skal du føst logge ind.<br>"
Response.write "Login boksen finder du under menuenpunktet Mit djghfjhjf."
Else
Response.write rs2("tekst")
End if
Conn.Close
Set Conn = nothing
%>
</td>
</tr>
</table>
<!-- main slut -->
</td>
<td valign="top"><img src="images/logobag.gif" border="0" width="232" height="468" alt="djghfjhjf"></td>
</tr>
</table>
</body>
</html>
------------- show.asp slut -----------------------
------------- menu.asp start ----------------------
<LINK href="stylemenu.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<!-- Menu 1 -->
<div id="divTopMenu0" class="clTopMenu">
<a href="#" onmouseover="menuOver(0)" onmouseout="menuOut(0)" onclick="topMenu(0); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/01.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText0" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 0 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom0"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 2 -->
<div id="divTopMenu1" class="clTopMenu">
<a href="#" onmouseover="menuOver(1)" onmouseout="menuOut(1)" onclick="topMenu(1); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/02.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText1" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 1 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom1"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 3 -->
<div id="divTopMenu2" class="clTopMenu">
<a href="#" onmouseover="menuOver(2)" onmouseout="menuOut(2)" onclick="topMenu(2); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/03.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText2" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 2 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom2"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 4 -->
<div id="divTopMenu3" class="clTopMenu">
<a href="#" onmouseover="menuOver(3)" onmouseout="menuOut(3)" onclick="topMenu(3); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/04.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText3" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 3 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom3"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 5 -->
<div id="divTopMenu4" class="clTopMenu">
<a href="#" onmouseover="menuOver(4)" onmouseout="menuOut(4)" onclick="topMenu(4); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/05.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText4" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 4 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom4"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 6 -->
<div id="divTopMenu5" class="clTopMenu">
<a href="#" onmouseover="menuOver(5)" onmouseout="menuOut(5)" onclick="topMenu(5); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/06.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText5" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 5 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom5"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 7 -->
<div id="divTopMenu6" class="clTopMenu">
<a href="#" onmouseover="menuOver(6)" onmouseout="menuOut(6)" onclick="topMenu(6); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/07.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText6" class="clTopMenuText"><br>
<FORM name=frmLogin METHOD=POST ACTION="mit-check.asp">
Login<br><br><INPUT TYPE="password" SIZE=12 NAME="txtUserid" class="form3" MAXLENGTH=256><br>
<INPUT TYPE=SUBMIT NAME="cmdSubmit" VALUE="ok" class="button3"></FORM><br>
<%
sql = "select * from menu_item where menuI_menu_num = 6 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom6"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 8 -->
<div id="divTopMenu7" class="clTopMenu">
<a href="#" onmouseover="menuOver(7)" onmouseout="menuOut(7)" onclick="topMenu(7); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/08.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText7" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 7 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom7"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
<!-- Menu 9 -->
<div id="divTopMenu8" class="clTopMenu">
<a href="#" onmouseover="menuOver(8)" onmouseout="menuOut(8)" onclick="topMenu(8); return false;" onfocus="if(this.blur)this.blur();">
<img src="<%=I_url%>images/09.gif" width=84 height=34 border=0 align="top" ></a>
<div id="divTopMenuText8" class="clTopMenuText"><br>
<%
sql = "select * from menu_item where menuI_menu_num = 8 order by menuI_num"
set rs = conn.execute(sql)
while not rs.eof
response.write "<a href=" & rs("menuI_url")
response.write " class=""menu"">" & rs("menuI_link") & "</a><br><br>" & vbcrlf
rs.movenext
wend
response.write "<br>" & vbcrlf
response.write "</div>" & vbcrlf
response.write "<div id=""divTopMenuBottom8"" class=""clTopMenuBottom"">" & vbcrlf
response.write "</div>" & vbcrlf
response.write "</div>" & vbcrlf
rs.close
%>
-------------- menu.asp slut -------------------------
