"Jonas Astrup - html.dk" <jonas.usenet@html.dk> skrev i en meddelelse
news:9g60kr$2r0$1@sunsite.dk...
> J. Robert wrote in dk.edb.internet.webdesign.serverside.asp:
> > hvordan man får koblet submenuer på?
> > - Jeg har nu prøvet i lang tid uden det har lykkedes.
>
> Hvordan er din database struktureret?
>
> Det det gælder om er, at når du udskriver dine niveau 1 menupunkter, laver
du
> URL så den indeholder information om hvilke submenuer der skal vises når
man
> klikker på linket. Altså:
>
> menu.asp?id=1
>
> Når man klikker på det link skal ASP scriptet finde alle undermenuer til
> menupunktet med ID'en 1
>
> Derfor skal du have en kolonne i din database hvor relationerne mellem de
> forskellige punkter defineres.
>
> Når du har det kan du hente undermenupunkterne ud med en alm. SQL sætning:
>
> "Select * from tabel where kolonne = " & Request("id")
>
> Jeg håber det her hjalp dig på vej
>
> Mvh
> Jonas
>
> --
> Brug Validator service:
http://www.html.dk/validator
> - Tast din URL én gang, og validér dokumentet hos 12 validatorer
> - Understøtter HTML, CSS og søgemaskineoptimering
Jeg har en database jeg kalder menu, hvori jeg har to tabeller kaldet menu
og submenu. - Relationer er Ok.
Jeg tror det ligger i scriptet, men jeg er nu og har lidt svært ved at
gennemskue det.
Her er mit script:
' ######## Script start ###########
strSQL = "Select * From menu"
Set rs = Conn.Execute(strSQL)
Do
strMenu = rs("Menu")
strLink = "<a href='menu.asp?menu=" & rs("Menu") & "'>" & strMenu &
"</a>"
Response.Write strLink & "<br>"
' ####### Denne del er jeg lidt i tvivl om ####
If Request.Querystring("menu") <> "" Then
strSQL = "Select * From submenu Where SubId = " &
Request.Querystring("menu")
Set rs = Conn.Execute(strSQL)
' Response.Write rs("Subnavn1") & "<br>" & rs("Subnavn2") & rs("Subnavn3")
& "<br>"
End If
rs.MoveNext
Loop While Not rs.EOF
' ############ Script slut ################
Hvor går det galt og hvordan bliver det rigtigt?
Mvh
JR