Lars G... eller nån annan som kan...

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 %>

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%>','','&nbsp;<%=menyval%>','<%=mvurl%>','<% If mvtarget <> "ej" Then Response.Write mvtarget End If %>')
<% ElseIf mdl = "n" Then %>
oCMenu.makeMenu('top<%=mvordning%>','','&nbsp;<%=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%>','&nbsp;<%=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%>','&nbsp;<%=menykategori%>','<%=mkurl%>','<% If mktarget <> "ej" Then Response.Write mktarget End If %>')
<% End If %>
		oCMenu.makeMenu('sub<%=mvordning%><%=mkordning%><%=mkkordning%>','sub<%=mvordning%><%=mkordning%>','&nbsp;<%=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')

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')

Jag tar en titt återkommer efter jobbet i kväll.

red: Hinner inte i dag tyvärr.

jag försöker hemma nu med Access2000 och då blir felmeddelandet:

<p>Microsoft JET Database Engine</font> <font face="Arial" size=>fel '80040e14'</font>
<p>
<font face="Arial" size=2>Syntaxfel (operator saknas) i frågeuttrycket 'm.id = mk.menyvalid  LEFT OUTER JOIN menykategori2 AS mkk ON mk.id = mkk.menykatid'.</font>
<p>
<font face="Arial" size=2>/menynytest.asp</font><font face="Arial" size=2>, rad 137</font>

men problemet kvarstår med att få den att skriva ut rätt...

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.

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?

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...

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!

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.

hmm .. när jag lägger in den nya koden nu så får jag:

<p>Microsoft JET Database Engine</font> <font face="Arial" size=>fel '80040e14'</font>
<p>
<font face="Arial" size=2> ), ], eller Item saknas i fr&#229;geuttrycket 'm.id = (mk.menyvalid'.</font>
<p>
<font face="Arial" size=2>/shr/incfiles/menynytest.asp</font><font face="Arial" size=2>, rad 145</font>

och rad 145 är ju den som exekverar hela sqlsatsen???

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.

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'...
?!??!

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å...

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å...

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.
http://support.microsoft.com/default.aspx?scid=%2Fsearch%2FviewDoc.aspx%3FdocID%3DKC.Q243834%26dialogID%3D2038626%26iterationID%3D1%26sessionID%3Danonymous|1796323

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.