hvorfor
Hej.jeg er ved at en dymansk menu fra egenhjemmeside.dk menu2:her er min kode:
<head>
<title></title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\menu.mdb")
Conn.Open DSN
%>
<applet code="DropDownMenu.class" width="150" height="400" align="center">
<param name="ROOT" value="Overskrift på menu;STATE=EXPANDED;TARGET=">
<param name="SITEMAP"
value="
Menu{
<%
SQL="Select * From menu Where hoved='admin'"
set rs = Conn.ExeCute(SQL)
Do
response.write "" & rs("navn") & ";URL=http://www.online-help.dk/test/" & rs("til") & ";TARGET=_self"
rs.MoveNext
Loop While Not rs.EOF
%>
}
Data{
<%
If Session("login") = "ja" Then
response.write "Brugernavn: " & session("brugernavn") & "."
response.write "Points: " & session("points") & "."
Else
Response.write "Du er ikke logget ind!!<br><a href=""logind.asp"">logind</a> eller <a href=""opret.asp"">opret bruger</a>"
end if
%>
}
Min menu{
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("databaser/bruger.mdb")
Conn.Open DSN
If Session("login") = "ja" Then
SQL="Select * From menu Where bruger='" & session("brugernavn") & "'"
set rs = conn.ExeCute(SQL)
arrM = split(rs("min_menu"),"()")
iF NOT RS.EOF Then
for i = Lbound(arrM) to Ubound(arrM)
arrM2 = split(arrM(i),",")
response.write arrM(i) & ";URL=" & arrM2(i) & ";TARGET=_self"
next
Else
response.write "du har ingen menu endnu!"
end if
Else
Response.write "Du er ikke logget ind!!<br><a href=""logind.asp"">logind</a> eller <a href=""opret.asp"">opret bruger</a>"
end if
Conn.close
set Conn = Nothing
%>
">
<param name="STYLE" value="3D">
<param name="FONTFACE" value="arial">
<param name="FONTSIZE" value="12">
<param name="FONTSTYLE" value="plain">
<param name="SUBFONTFACE" value="arial">
<param name="SUBFONTSIZE" value="12">
<param name="SUBFONTSTYLE" value="plain">
<param name="BACKGROUND_IMAGE" value="none.jpg">
<param name="BACKGROUND_COLOR" value="bbbb88">
<param name="FONT_COLOR" value="800000">
<param name="HIGHLIGHT_COLOR" value="FFfffff">
<param name="TRIANGLE_UP_COLOR" value="800000">
<param name="TRIANGLE_DOWN_COLOR" value="666633">
<param name="TRIANGLE_OFFSET" value="5">
<param name="TRIANGLE_WIDTH" value="10">
<param name="BGIMAGE_ALIGN" value="center">
<param name="BGIMAGE_VALIGN" value="center">
<param name="DefaultTarget" value="_self">
</applet>
</body>
Men det virker ikke.. se det på www.online-help.dk/test/test_m.asp
?? kan i hjælpe!
