--- title: "Lars G... eller nån annan som kan..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13937-lars-g-eller-nån-annan-som-kan" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "brw" published: "2002-01-17T14:17:00.000Z" updated: "2002-01-22T12:10:00.000Z" replies: 16 views: 230 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13937-lars-g-eller-nån-annan-som-kan" --- # Lars G... eller nån annan som kan... ## #1 — brw, 2002-01-17T14:17Z Lars G .. du har hjälpt mig med denna kod förut... men nu har jag trixat lite.. skall ha ytterligare en undermeny med i menyn... ex: Huvudval1 Undermeny1 menyval1 menyval2 Huvudval2 Undermeny1 Undermeny2 menyval1 Undermeny3 så ska det se ut nu.. förut har jag bara haft Huvudval Menyval1 Menyval2 osv.. här är koden om du har lust att hjälpa mig... jag har blandat in en till join i den andra det kanske är det som strular.. ``` <% Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM menyval as m left outer join menykategori as mk on m.id = mk.menyvalid AND mk.aktiv = 'j' " &_ " left outer join menykategori2 AS mkk on mk.id = mkk.menykatid AND mkk.aktiv = 'j' " &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" Set RSmv = Connection.Execute(SQLmenyval) oldid = 0 Do until RSmv.EOF valid = RSmv("id") if clng(oldid) <> clng(valid) then %> <% menyval = RSmv("menyval") mdl = RSmv("mdl") mvurl = RSmv("url") mvordning = RSmv("mvordning") 'response.Write "mvordning: " & mvordning mvtarget = RSmv("mvtarget") oldid = valid %> <% If mdl = "j" Then %> oCMenu.makeMenu('top<%=mvordning%>','',' <%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget End If %>') <% ElseIf mdl = "n" Then %> oCMenu.makeMenu('top<%=mvordning%>','',' <%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget End If %>') <% End If End if %> <% mkurl = RSmv("mkurl") menykategori = RSmv("menykategori") mkordning = RSmv("mkordning") mktarget = RSmv("mktarget") mkdl = RSmv("mkdl") 'response.Write "mkordning: " & mkordning if not isnull(menykategori) then '===================================== 'DETTA ÄR VAD JAG LAGT TILL NÄR DEN SKALL SKRIVA UT '===================================== mkkmenyunderkat = RSmv("menyunderkat") mkkordning = RSmv("mkkordning") mkkurl = RSmv("mkkurl") mkktarget = RSmv("mkktarget") %> <% If mkdl = "n" Then %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%>','top<%=mvordning%>',' <%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget End If %>') <% Else %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%><%=mkkordning%>','top<%=mkordning%>',' <%=mkkmenyunderkat%>','<%=mkkurl%>','<% If mkktarget <> "ej" Then Response.Write mkktarget End If %>') <% End If %> '===================================== ' TILL HIT '===================================== <% End If %> <% RSmv.Movenext Loop RSmv.Close Set RSmv = Nothing %> ``` \================================ REDIGERING: m = huvudval mk = menykategori mkk = den sista kategorin under menykategori \================================ Permalänk: https://www.webforum.nu/p/13937 ## #2 — brw, 2002-01-17T22:09Z Ingen som vet vad det kan vara för fel.. felet blir vid detta i koden då skriver den liksom inte ut något... det fungerar om jag kör utan If-satsen och bara 1 utav raderna.. den övre.. för mkdl="n"...?!? ``` <% If mkdl = "n" Then %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%>','top<%=mvordning%>',' <%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget End If %>') <% Else %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%><%=mkkordning%>','top<%=mkordning%>',' <%=mkkmenyunderkat%>','<%=mkkurl%>','<% If mkktarget <> "ej" Then Response.Write mkktarget End If %>') <% End If %> ``` Permalänk: https://www.webforum.nu/p/307874 ## #3 — brw, 2002-01-18T08:47Z Nu har jag fått till lite men snart bryter jag ihop.. vet inte hur jag ska skriva för att det ska bli rätt... det är nästan så att allt fungerar som det ska... Denna kod: ``` <% Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM menyval as m left outer join menykategori as mk on m.id = mk.menyvalid AND mk.aktiv = 'j' " &_ " left outer join menykategori2 AS mkk on mk.id = mkk.menykatid AND mkk.aktiv = 'j' " &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" Set RSmv = Connection.Execute(SQLmenyval) oldid = 0 Do until RSmv.EOF valid = RSmv("id") if clng(oldid) <> clng(valid) then %> <% menyval = RSmv("menyval") mdl = RSmv("mdl") mvurl = RSmv("url") mvordning = RSmv("mvordning") 'response.Write "mvordning: " & mvordning mvtarget = RSmv("mvtarget") oldid = valid %> <% If mdl = "j" Then %> oCMenu.makeMenu('top<%=mvordning%>','',' <%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget End If %>') <% ElseIf mdl = "n" Then %> oCMenu.makeMenu('top<%=mvordning%>','',' <%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget End If %>') <% End If %> <% End if %> <% mkurl = RSmv("mkurl") menykategori = RSmv("menykategori") mkordning = RSmv("mkordning") mktarget = RSmv("mktarget") mkdl = RSmv("mkdl") if not isnull(menykategori) then validd = RSmv("mkid") If mkdl = "n" Then mkkmenyunderkat = RSmv("menyunderkat") mkkordning = RSmv("mkkordning") mkkurl = RSmv("mkkurl") mkktarget = RSmv("mkktarget") mkkkatid = RSmv("mkkkatid") End If %> <% If mkdl = "j" Then %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%>','top<%=mvordning%>',' <%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget End If %>') <% Else %> <% '========================================================================================================================= ' Här vettefan hur jag ska skriva för att den ska ta med den översta bara 1 gång om det finns fler mkkmenyunderkategorier '========================================================================================================================= If cint(mkkkatid) = Cint(validd) Then %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%>','top<%=mvordning%>',' <%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget End If %>') <% End If %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%><%=mkkordning%>','sub<%=mvordning%><%=mkordning%>',' <%=mkkmenyunderkat%>','<%=mkkurl%>','<% If mkktarget <> "ej" Then Response.Write mkktarget End If %>') <% End If %> <% End If %> <% RSmv.Movenext Loop RSmv.Close Set RSmv = Nothing %> ``` Skriver ut detta: ``` oCMenu.makeMenu('top1','',' Huvudval 1','','0') oCMenu.makeMenu('sub11','top1',' Undermenyval 1','sdfasdf','0') oCMenu.makeMenu('sub111','sub11',' Underundermeny1','','0') oCMenu.makeMenu('sub11','top1',' Undermenyval 1','sdfasdf','0') oCMenu.makeMenu('sub112','sub11',' Underundermeny2','','0') oCMenu.makeMenu('top2','',' Huvudval 2','','0') oCMenu.makeMenu('sub21','top2',' - Undermeny2','','0') oCMenu.makeMenu('top3','',' Huvudval 3','','0') oCMenu.makeMenu('sub31','top3',' - Undermeny3','','0') ``` och det som jag vill att den ska skriva ut är: ``` oCMenu.makeMenu('top1','',' Huvudval 1','','0') oCMenu.makeMenu('sub11','top1',' Undermenyval 1','sdfasdf','0') oCMenu.makeMenu('sub111','sub11',' Underundermeny1','','0') oCMenu.makeMenu('sub112','sub11',' Underundermeny2','','0') oCMenu.makeMenu('top2','',' Huvudval 2','','0') oCMenu.makeMenu('sub21','top2',' - Undermeny2','','0') oCMenu.makeMenu('top3','',' Huvudval 3','','0') oCMenu.makeMenu('sub31','top3',' - Undermeny3','','0') ``` Permalänk: https://www.webforum.nu/p/307875 ## #4 — brw, 2002-01-18T12:43Z Förtydligar lite med denna kod.. kanske är lättare att förstå då... ;) koden nedan Skriver ut detta med ASP-koden ovan (detta fungerar ej): \--------------------------------- ``` oCMenu.makeMenu('top1','','Produkter','','0') oCMenu.makeMenu('sub11','top1',' Datordelar','','0') oCMenu.makeMenu('sub111','sub11','Hårddiskar','harddisk.asp','_blank') oCMenu.makeMenu('sub11','top1','Datordelar','','0') oCMenu.makeMenu('sub112','sub11','Minnen','minne.asp','_blank') oCMenu.makeMenu('sub11','top1','Datordelar','','0') oCMenu.makeMenu('sub113','sub11','Moderkort','moderkort.asp','_blank') oCMenu.makeMenu('sub12','top1',' Kameror','','0') oCMenu.makeMenu('sub121','sub12','Digitala','digitala.asp','_blank') oCMenu.makeMenu('sub12','top1',' Kameror','','0') oCMenu.makeMenu('sub122','sub12','Videokameror','videokameror.asp','_blank') oCMenu.makeMenu('top2','','Om företaget','','0') oCMenu.makeMenu('sub21','top2','Anställda','anstallda.asp','_blank') oCMenu.makeMenu('top3','','Kontakta oss','','0') oCMenu.makeMenu('sub31','top3','Mailformulär','mail.asp','_blank') oCMenu.makeMenu('sub32','top3','Telefon','telefon.asp','_blank') ``` Jag vill att den skall skriva ut såhär: \---------------------------------------------- ``` oCMenu.makeMenu('top1','','Produkter','','0') oCMenu.makeMenu('sub11','top1',' Datordelar','','0') oCMenu.makeMenu('sub111','sub11','Hårddiskar','harddisk.asp','_blank') oCMenu.makeMenu('sub112','sub11','Minnen','minne.asp','_blank') oCMenu.makeMenu('sub113','sub11','Moderkort','moderkort.asp','_blank') oCMenu.makeMenu('sub12','top1',' Kameror','','0') oCMenu.makeMenu('sub121','sub12','Digitala','digitala.asp','_blank') oCMenu.makeMenu('sub122','sub12','Videokameror','videokameror.asp','_blank') oCMenu.makeMenu('top2','','Om företaget','','0') oCMenu.makeMenu('sub21','top2','Anställda','anstallda.asp','_blank') oCMenu.makeMenu('top3','','Kontakta oss','','0') oCMenu.makeMenu('sub31','top3','Mailformulär','mail.asp','_blank') oCMenu.makeMenu('sub32','top3','Telefon','telefon.asp','_blank') ``` Permalänk: https://www.webforum.nu/p/307876 ## #5 — LarsG, 2002-01-18T12:45Z Jag tar en titt återkommer efter jobbet i kväll. red: Hinner inte i dag tyvärr. Permalänk: https://www.webforum.nu/p/307877 ## #6 — brw, 2002-01-19T21:18Z jag försöker hemma nu med Access2000 och då blir felmeddelandet: ```

Microsoft JET Database Engine fel '80040e14'

Syntaxfel (operator saknas) i frågeuttrycket 'm.id = mk.menyvalid LEFT OUTER JOIN menykategori2 AS mkk ON mk.id = mkk.menykatid'.

/menynytest.asp, rad 137 ``` men problemet kvarstår med att få den att skriva ut rätt... Permalänk: https://www.webforum.nu/p/307878 ## #7 — LarsG, 2002-01-19T21:26Z Om du vill att sql-frågan skall fungera mot Access så behöver du nog lägga till lite parenteser ``` SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM (menyval as m left outer join menykategori as mk on m.id = mk.menyvalid AND mk.aktiv = 'j') " &_ " left outer join menykategori2 AS mkk on (mk.id = mkk.menykatid AND mkk.aktiv = 'j' )" &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" ``` Jag håller på och tittar på det övriga. Permalänk: https://www.webforum.nu/p/307879 ## #8 — LarsG, 2002-01-20T00:03Z Jag skrev om en hel del så får se om det fungerar öht. ``` <% Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM menyval as m left outer join menykategori as mk on m.id = mk.menyvalid AND mk.aktiv = 'j' " &_ " left outer join menykategori2 AS mkk on mk.id = mkk.menykatid AND mkk.aktiv = 'j' " &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" Set RSmv = Connection.Execute(SQLmenyval) oldid = 0 Do until RSmv.EOF valid = RSmv("id") if clng(oldid) <> clng(valid) then menyval = RSmv("menyval") mvurl = RSmv("url") mvordning = RSmv("mvordning") 'response.Write "mvordning: " & mvordning mvtarget = RSmv("mvtarget") oldid = valid oldidsk = 0 %> oCMenu.makeMenu('top<%=mvordning%>','',' <%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget %>') <% end if validd = RSmv("mkid") if not isnull(validd) then if clng(validd) <> clng(oldidsk) then mkurl = RSmv("mkurl") menykategori = RSmv("menykategori") mkordning = RSmv("mkordning") mktarget = RSmv("mktarget") mkdl = RSmv("mkdl") oldidsk = validd %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%>','top<%=mvordning%>',' <%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget %>') <% end if end if if not isnull(RSmv("mkkkatid")) then mkkmenyunderkat = RSmv("menyunderkat") mkkordning = RSmv("mkkordning") mkkurl = RSmv("mkkurl") mkktarget = RSmv("mkktarget") mkkkatid = RSmv("mkkkatid") %> oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%><%=mkkordning%>','sub<%=mvordning%><%=mkordning%>',' <%=mkkmenyunderkat%>','<%=mkkurl%>','<% If mkktarget <> "ej" Then Response.Write mkktarget %>') <% End If RSmv.Movenext Loop RSmv.Close Set RSmv = Nothing %> ``` Jag undrar varför dl finns med? Permalänk: https://www.webforum.nu/p/307880 ## #9 — brw, 2002-01-20T10:16Z Hej! ska testa koden snart... dl = direktlänk.... dvs.. Om man inte vill ha några undermenyer så använder man dl Tex... vill jag bara ha kontakta oss på huvudmenyn som går till kontakta.asp så är mdl = "j" annars "n" och då ska den räkna upp alla undermenyer... och då kollar den om mkdl ="j" då ska den visa ytterligare en undermeny.. annars blir det bara 1 steg.. från huvudmenyn... Du kan få se på en url sen när jag fått igång menyn... :) Permalänk: https://www.webforum.nu/p/307881 ## #10 — brw, 2002-01-20T13:21Z Hej! Jag har nu testat koden och den fungerar utmärkt förutom att jag inte kan ha med två specifikationer i sqlsatsen.. ``` Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM (menyval as m left outer join menykategori as mk on m.id = mk.menyvalid AND mk.aktiv = 'j') " &_ " left outer join menykategori2 AS mkk on (mk.id = mkk.menykatid) AND mkk.aktiv = 'j'" &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" ``` Det blir kopplingsutrycket stöds inte om jag har med följande två rader: AND mk.aktiv = 'j' och AND mkk.aktiv = 'j' tar jag bort det så går det.. men jag skulle gärna vilja ha så att det fungerar med dessa två värden oxå :) Tackar så mycket för koden i övrigt! Permalänk: https://www.webforum.nu/p/307882 ## #11 — LarsG, 2002-01-20T15:06Z Jag har flyttat om lite parenteser och lagt till ett par också. ``` Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM (menyval as m left outer join menykategori as mk on m.id = (mk.menyvalid AND mk.aktiv = 'j')) " &_ " left outer join menykategori2 AS mkk on (mk.id = mkk.menykatid AND mkk.aktiv = 'j' )" &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" ``` Som sagt så verkar Access vara noga med hur man sätter parenteser i logiska uttryck, fast det egentligen inte skall spela någon roll. Permalänk: https://www.webforum.nu/p/307883 ## #12 — brw, 2002-01-20T20:12Z hmm .. när jag lägger in den nya koden nu så får jag: ```

Microsoft JET Database Engine fel '80040e14'

), ], eller Item saknas i frågeuttrycket 'm.id = (mk.menyvalid'.

/shr/incfiles/menynytest.asp, rad 145 ``` och rad 145 är ju den som exekverar hela sqlsatsen??? Permalänk: https://www.webforum.nu/p/307884 ## #13 — LarsG, 2002-01-20T20:19Z En parentes kom snett. ``` Dim SQLmenyval, rsmv, dl, mvurl, mkurl, oldid, menykategori SQLmenyval = "Select m.id, m.title, m.menyval, m.dl AS mdl, m.url, m.ordning AS mvordning, " &_ " m.target AS mvtarget, mk.url AS mkurl, mk.id AS mkid, mk.menykategori, mk.ordning AS mkordning, mk.target AS mktarget, " &_ " mk.dl AS mkdl, mkk.target AS mkktarget, mkk.url AS mkkurl, mkk.menyunderkat, mkk.ordning AS mkkordning, mkk.menykatid AS mkkkatid " &_ " FROM (menyval as m left outer join menykategori as mk on (m.id = mk.menyvalid AND mk.aktiv = 'j')) " &_ " left outer join menykategori2 AS mkk on (mk.id = mkk.menykatid AND mkk.aktiv = 'j' )" &_ " WHERE m.menyid = "& menyid &" AND m.aktiv = 'j' " & _ " ORDER BY m.ordning, mk.ordning, mkk.ordning ASC" ``` Det verkar som om man har flera villkor efter ON så måste hela det uttrycket stå inom parentes. Permalänk: https://www.webforum.nu/p/307885 ## #14 — brw, 2002-01-20T20:46Z hehe.. nu vart det helgalet.. den plockar bara fram vissa poster... måste ha blivit något annat som blev ändrat? den förra fungerar hur bra som helst utan det där aktiv = 'j'... ?!??! :q Permalänk: https://www.webforum.nu/p/307886 ## #15 — brw, 2002-01-22T06:57Z va tror du larsG går det inte i access.. för på jobbet nu när jag testar i SQL så är det inga problem.. men jag vill att det ska fungera i access oxå... :h Permalänk: https://www.webforum.nu/p/307887 ## #16 — brw, 2002-01-22T06:57Z va tror du larsG går det inte i access.. för på jobbet nu när jag testar i SQL så är det inga problem.. men jag vill att det ska fungera i access oxå... :h Permalänk: https://www.webforum.nu/p/307888 ## #17 — LarsG, 2002-01-22T12:10Z Jo, det borde gå. Jag hittade detta hos Microsoft där dom medger att det finns fel i Access när det gäller uttryck av den här typen. Den rekommenderade lösningen tycks vara att lägga på parenteser och att ange alla namn inom \[\] Om det räcker att det fungerar för sql server och Access så är allt väl. Annars så är syntaxen med \[\] inte sql-standard. Permalänk: https://www.webforum.nu/p/307889 --- Tråden på webben: https://www.webforum.nu/amne/asp/13937-lars-g-eller-nån-annan-som-kan