Avatar billede jpj Nybegynder
13. november 2002 - 14:34 Der er 12 kommentarer og
1 løsning

Menu i asp

Hej
Den skal hente menu navne fra en database.
Jeg har brugt denne kode før og den virker.
Jeg vil gerne have at denne kode kunne udvides så at den kan vise flere undermenuer end den kan nu.

Nu viser den følgene.
eks.
Rød vin
fransk
tysk
spansk
Hvid vin
fransk
tysk
spansk

Den skulle vise følgende.
eks.

Rød vin
-Fransk
-Tysk
-Wien
-Hamburg
-Spansk
Hvid vin
-Fransk
-Tysk
-Wien
-Hamburg
-Spansk


*****
<%@LANGUAGE="VBSCRIPT"%>

<html>
<head>
<title>Menu</title>
<meta HTTP-EQUIV="Refresh" CONTENT="60 ;URL=menu.asp">
<style type="text/css">
<!--
A { text-decoration: none }
A { color: #666666; font-family: Arial, Helvetica, sans-serif; font-size: 11px; }
A:hover    { text-decoration: nounderline }
A:hover { color: #666666 }-->
</style>
<body text="#666666" link="#666666" vlink="#666666" alink="#666666" bgcolor="#Fcfcf2">
<div align="left"><font size="4">Hovedmenu</font> <BR>
  <BR>
  <%
Session.LCID = 1030

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\site\db\min_db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQLstmt = "SELECT * FROM menu ;"
Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

  DO WHILE NOT rs.EOF
  id = rs("Menuid")

    kategoriNavn = rs("kategoriNavn")

    %>
</div>
<tr height="20"><a href="menu.asp?kat=<%=id%>"><%=kategoriNavn%></a>
  <td> <BR>
    <%
kat =Request("kat")
%>
    <%
if Clng(kat) = Clng(id) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\site\db\min_db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

SQL = "SELECT * FROM submenu WHERE KategoriID = " & Request("kat")
Conn.Execute (SQL)

Set rs2 = conn.Execute(SQL)
 
  DO WHILE NOT rs2.EOF
navn= rs2("SubNavn")
Subid = rs2("Subid")

Response.Write "&nbsp;&nbsp;"
%>
    <a href="vodka.asp?smenunavn=<%=Subid%>" target="mainFrame"'><%=Navn%></a> <BR>
    <%
smenunavn =Request("smenunavn")
%>
    <%
rs2.MoveNext
LOOP
end if

kat = ""
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"
  %>
    <BR>
    <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing

    %>

***********
Db ser således ud:

Tabeller:
Menu
MenuID (autonum)
kategoriNavn (txt)

Submenu
Subid (autonum)
SubNavn (txt)
kategoriId (tal)
Avatar billede klaskeren Nybegynder
13. november 2002 - 14:40 #1
du skal lave en kollone i din database som angiver om det er et underlink, så skal du lave en løkke som siger:
Response.Write "&nbsp;&nbsp;"
%>
    <a href="vodka.asp?smenunavn=<%=Subid%>" target="mainFrame"'>
<%
if rs("undermenu") = "1" then
reponse.write("-")
end if
reponse.write(Navn)
%></a> <BR>
    <%
smenunavn =Request("smenunavn")
%>
Avatar billede klaskeren Nybegynder
13. november 2002 - 14:40 #2
hov det skulle nok sættes som svar :D
Avatar billede jpj Nybegynder
13. november 2002 - 14:46 #3
Sådan her

Submenu
Subid (autonum)
SubNavn (txt)
kategoriId (tal)
undermenu (tal)
Avatar billede klaskeren Nybegynder
13. november 2002 - 14:49 #4
ja, det skulle være nok
Avatar billede jpj Nybegynder
13. november 2002 - 15:00 #5
Den holder ikke.
Du kan se her http://www.vinimporten-danmark.dk/vin/

Linie 57 =
if rs("undermenu") = "1" then

Skulle det ikke istedet være en ny tabel

Undermenu
UndermenuID
Undermenunavn
Avatar billede jpj Nybegynder
13. november 2002 - 15:51 #6
Der er en fejl i spørgsmålet.
Det skal være således


Rød vin
-*Fransk
-*Tysk
--*Wien
--*Hamburg
-*Spansk

Hvid vin
-*Fransk
-*Tysk
--*Wien
--*Hamburg
-*Spansk

Hovedmenu
-*undermenu
-*undermenu
--*underundermenu
--*underundermenu
--*underundermenu
-*undermenu
-*undermenu
(Se bort fra -* de er kun fyld så man kan se at menuér flytter til højre)
Avatar billede sth Novice
13. november 2002 - 16:54 #7
kan du bruge den på www.halstat.dk
Avatar billede jpj Nybegynder
13. november 2002 - 17:00 #8
Den skal ligne den der ligger her www.zoozity.dk
Avatar billede klaskeren Nybegynder
13. november 2002 - 17:13 #9
ej hold nu det er jo bare at gøre det jeg sagde og så lave nogle af dem til underundermenu...

og så andre det den skriver hvis if sætningen er opfyldt...
Avatar billede sth Novice
13. november 2002 - 17:34 #10
Det gør den jo også !! jeg har bare brugt knapper og ikke links men det var jo nok en mundre ting at rette
Avatar billede klaskeren Nybegynder
13. november 2002 - 17:38 #11
hehe ok :D du bruger mit svar men afviser mig :D sejt...
Avatar billede jpj Nybegynder
14. november 2002 - 10:22 #12
Du er blevet afvist, fordi at jeg ikke kunne bruge dit svar.
Jeg har ikke fået min menu til at ligne den der ligger på www.zoozity.dk
Den menu der ligger på zoozity.dk kører på en anden tabelopsætning med group og parent. Jeg ved det fordi at jeg har fået databasen sendt til mig.
Avatar billede jpj Nybegynder
25. november 2002 - 17:02 #13
Lukker
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester