CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede meyer Nybegynder
03. juni 2008 - 10:19 Der er 12 kommentarer og
1 løsning

Loope i 3 lag

Jeg har en database med mine menuer inkl. sub og subsub menu- dem vil jeg gerne ha' vist - hvordan klarer jeg den?

f.eks.

Topmenu
-submenu 1
---subsubmenu1

jeg har prøvet at loope inde imellem de forskellige men får en fejl - "systemet kan ikke sortere sætvis" !! ??
Avatar billede keysersoze Guru
03. juni 2008 - 10:22 #1
http://www.html.dk/scripts/asp/00015/
Avatar billede meyer Nybegynder
03. juni 2008 - 10:27 #2
Jeg skal bruge det til en horizontal top menu..
Avatar billede keysersoze Guru
03. juni 2008 - 10:43 #3
så prøv at kom med lidt af den kode du har der fejler.
Avatar billede meyer Nybegynder
03. juni 2008 - 10:52 #4
Du får lige hele menukoden:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
  <TITLE>ASP Sample</TITLE>
<script type="text/javascript" src="stmenu.js"></script>
</HEAD>

<BODY>

<script type="text/javascript">
<!--
stm_bm(["menu501d",830,"","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"","",0,0,1,2,"default","hand",""],this);
stm_bp("p0",[0,4,0,0,2,3,0,7,100,"",-2,"",-2,50,0,0,"#999999","#E6EFF9","",3,1,1,"#000000"]);
<%
Dim Dbq, Dsn, Dc
Dim rsCat, rsProduct, rsTep
Dim sCatName, sProduct, sLink
                                               
Dbq = Server.MapPath(".\") & "\products.mdb;"
Dsn = "driver={Microsoft Access Driver (*.mdb)};pwd=;Dbq=" & Dbq
Set Dc = Server.CreateObject("ADODB.Connection")
Dc.Open Dsn
Set rsCat = Dc.Execute("SELECT * FROM CATEGORY")

While Not rsCat.EOF
sCatName=rsCat("NAME")
%>
stm_ai("p0i0",[1,"<%=sCatName%>","","",-1,-1,0,"","_self","","","","",0,0,0,"arrow_r.gif","arrow_r.gif",7,7,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
stm_bpx("p1","p0",[1,4]);
<%
Set rsProduct = Dc.Execute("SELECT * FROM PRODUCTS WHERE CID=" & rsCat(0))
While Not rsProduct.EOF
sProduct = rsProduct("NAME")
sLink = rsProduct("LILNK")
%>
stm_ai("p1i0",[1,"<%=sProduct%>","","",-1,-1,0,"<%=sLink%>","_self","","","","",0,0,0,"arrow_r.gif","arrow_r.gif",7,7,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
stm_bpx("p2","p0",[1,2,0,0,2,3,0,0]);
<%
Set rsTep = Dc.Execute("SELECT * FROM template WHERE PID=" & rsProduct(0))
While Not rsTep.EOF
sTepName = rsTep("NAME")
sTepLink = rsTep("LINK")
%>
stm_ai("p2i0",[1,"<%=sTepName%>","","",-1,-1,0,"<%=sTepLink%>","_self","","","","",0,0,0,"","",0,0,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
<%
rsTep.MoveNext
Wend
%>
stm_ep();
<%
rsProduct.MoveNext
Wend
%>
stm_ep();
<%
rsCat.MoveNext
Wend
%>

stm_ep();
stm_em();
//-->
</script>

</BODY>
</HTML>
Avatar billede meyer Nybegynder
03. juni 2008 - 11:03 #5
I bund og grund skal jeg "bare" ha' lavet en menu i stil med denne her:
www.meyerweb.dk/menu.jpg
ikke noget fancy med rammer skygger eller noget..
Avatar billede keysersoze Guru
03. juni 2008 - 11:30 #6
Får du fejlen på Set rsProduct... eller hvorhenne?
Avatar billede meyer Nybegynder
03. juni 2008 - 11:36 #7
jeps
Avatar billede keysersoze Guru
03. juni 2008 - 11:56 #8
Du skal formentlig bare referere til kolonne-navnet - dvs fx

rsCat("id")
Avatar billede meyer Nybegynder
03. juni 2008 - 12:08 #9
Det har jeg også prøvet men med samme resultat :-)
Avatar billede meyer Nybegynder
03. juni 2008 - 12:09 #10
Hvis du har et eksempel på hvordan jeg kan gøre det, kan du så ikke smide det her, så bygger jeg en db til det og prøver - jeg fatter ikke en dyt af hvorfor det ikke virker ;-)
Avatar billede meyer Nybegynder
03. juni 2008 - 14:00 #11
Jeg klarede den ved at lave en ny base - programmere siden uden alle de smarte menutags - så her går det fint ;-)


Smid lige et svar så får du pointene :-)
Avatar billede keysersoze Guru
03. juni 2008 - 18:02 #12
ingen point til mig for dette - ellers tak :)
Avatar billede meyer Nybegynder
03. juni 2008 - 18:48 #13
ok så :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:43 Computeren styrtet ned Af Marc F. i PC
I går 19:20 Computeren styrtet ned Af Marc F. i PC
I går 19:18 Blokerede filer Af Owan i Andet software
I går 16:24 Email udbyder Af briannyrup i Office & Kontorpakker
I går 15:10 HARDDISK SKRUER..... Af snestrup2000 i Andet hardware
White papers
Flere white papers »


Premium
Teaser billede
Thorborg og Dinero brager frem på listen over Danmarks bedste it-virksomheder: “Vi har i dag en uhyggelig stor andel af de danske kunder”
Læs mere »
39 år gammel dansk it-virksomhed med 240 medarbejdere splittes op
Danske Kenneth Lindegaard finalist i prestigefyldt CIO-konkurrence: Er blandt de bedste i verden
Top-profilen Helle Huss ny direktør i Microsoft Danmark - tiltræder om to måneder
Se alle »
Computerworld
Teaser billede
Om lidt går det løs: Så banebrydende bliver iPhone 16
Læs mere »
Nu kommer en af bilbranchens største software-opdateringer nogensinde
Lokker med ’Nordens hurtigste internet’: Sådan ved du, om du kan få adgang til Danmarks nyeste bredbåndsudbyder
Første indtryk: Volvos fortid møder fremtiden med to nye luksusbiler
Se alle »
CIO
Teaser billede
Kommunerne brugte 6,6 milliarder kroner på it i 2023: Se top 10 over hvem der bruger flest penge
Læs mere »
Microsoft vil have flere kunder ind i folden: Åbner for verdensomspændende rabat på Copilot M365
SAP’s CTO Jürgen Müller færdig i selskabet: Undskylder for upassende adfærd
Tvunget skift til Statens It har kostet Nationalmuseet dyrt: It-udgifter er blevet fordoblet
Se alle »
Job & Karriere
Teaser billede
Pludselig exit fra Schultz kom som en overraskelse for Merete Søby: Derfor stoppede samarbejdet
Læs mere »
Merete Søby fratræder med omgående virkning som CEO for Schultz efter blot tre måneder på posten
Professor: "Det er på høje tid at opløse virksomhedernes it-afdelinger"
KMD-direktør forlader selskabet: Det skal hun nu
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
Sådan får du overblik og beskytter dine cloudapplikationer
AI’s rolle i fremtidens projektledelse
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »