Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Dynamisk meny problem gjord i ASP

Postades av 2004-10-31 11:15:03 - Annette Olsson, i forum javascript/dhtml, Tråden har 0 Kommentarer och lästs av 575 personer

Hej!
Jag har lite problem med en horisontell meny med undermenyer. Får liksom inte till detta och nu undrar jag om någon kan hjälpa mig.
Vad jag vill är att huvudmenyn ligger i en separat tabell medan undermenyn ska också ligga i en separat tabell under huvudmenytabellen. Innehåller i undermenyn ska ändras dynamiskt.
Informationen hämtas från en accessdatabas.
Tex

Meny1 Meny2 Meny3
Undermeny1 | Undermeny1 | Undermeny1

Tittade ett script här som jag har lekt med men får det inte att fungera.
Detta är min kod.

<script language="javascript">
var oldmenu = "";

function menu(strmenu) {

if(strmenu != ""){
if(document.getElementById(strmenu).style.display=='none') {
document.getElementById(strmenu).style.display=''
}
else document.getElementById(strmenu).style.display='none'
}

if(oldmenu > ""){

if(oldmenu != strmenu){
// annan meny, göm den gamla.
document.getElementById(oldmenu).style.display='none';
}
}

oldmenu = strmenu;
}

</SCRIPT>
</head>
<body>
<table>
<tr>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Kategorier ORDER BY Omrade ASC"
RecSet.Open Visa, DB, adOpenForwardOnly, adLockReadOnly

Do Until RecSet.EOF
If RecSet("UnderOmrade") = False Then %>
<td><SPAN OnClick="menu('');"><%=RecSet("Omrade")%></SPAN></td>
<% Else %>
<td><SPAN OnClick="menu('Val<%=RecSet("ID")%>');"><%=RecSet("Omrade")%></SPAN></td>
<% End If
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
%>
</tr>
</table>
<!-- *********** VISA UNDERMENYER *************** -->
<table bgcolor="#FF0000">
<tr>
<td>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT UnderKategorier.omradeID,UnderKategorier.UnderOmrade FROM Kategorier INNER JOIN UnderKategorier ON Kategorier.ID = UnderKategorier.OmradeID " &_
"WHERE Kategorier.UnderOmrade = True "
RecSet.Open Visa, DB, adOpenStatic, adLockOptimistic
%>
<SPAN STYLE="display: none" ID="Val<%=RecSet("omradeID")%>">

<% Do Until RecSet.EOF
Response.Write RecSet("UnderOmrade") & " | "
RecSet.MoveNext
Loop
%>
</SPAN>
<%
RecSet.Close
Set RecSet = Nothing
%>
</td>
</tr>
</table>
<!-- *********** VISA SLUT UNDERMENYER *************** -->

Tacksam för alla tips!
/Annette


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
603
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies