--- title: "ASP i Coolemenus3" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/10620-asp-i-coolemenus3" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "His Divine Shadow" published: "2001-07-17T11:39:00.000Z" updated: "2001-07-18T11:46:00.000Z" replies: 12 views: 267 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/10620-asp-i-coolemenus3" --- # ASP i Coolemenus3 ## #1 — His Divine Shadow, 2001-07-17T11:39Z Jag har just börjat med Coolmenus3 från Coolmenus är gjort av en som kallar sig själv Bratta, jag tror större delen designare vet vem det är. Hursomhelst jag skulle vilja använda ASP i Coolmenus3. Men det gick inte riktigt bra, let me show you: Här har vi självaste meny koden. oCMenu.makeMenu('top0','',' Hembryggning','','') Här lägger jag in koden för att göra kopplingen till DB'n. \<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("GB_ConnectionString") SQL= "SELECT \* FROM Art WHERE (artikelnr LIKE 'W\_' OR artikelnr LIKE 'Y\_') AND (Extra_7 LIKE 'J') Order By (LagerPlats)" Set RS = Conn.Execute(SQL) Do While Not RS.EOF %\> Här börjar submenyn, jag använder här en loop för att gå igenom alla(10) artiklar så att dom ska komma i nummer ordning. oCMenu.makeMenu('sub00','top0','\<%=RS("Benämning_10")%\>','Avdelning.asp?Prodgr=\<%=RS("extra_9")%\>') Och loopen. \<% RS.MoveNext Loop Conn.Close %\> Detta funkar bara inte, jag vet inte varför heller. Förresten 'sub00' som syns där uppe är också ett problem, hur ska jag göra så att nästa rad blir det sub01 istället? Permalänk: https://www.webforum.nu/p/10620 ## #2 — Addeladde, 2001-07-17T11:44Z Vad får du för felmeddelanden Permalänk: https://www.webforum.nu/p/277697 ## #3 — His Divine Shadow, 2001-07-17T11:51Z Inget, menyn kommer helt enkelt inte fram. Jag är ganska säker på att koden inte funkar PGA av att hela meny koden är innanför s.k. \\ taggar. Men Bratta själv sade att han har haft ASP att funka i Coolmenus. Permalänk: https://www.webforum.nu/p/277698 ## #4 — Addeladde, 2001-07-17T12:29Z Jag är inte så bra på Javascript blandat med ASP men ett tips är at du klickar på verktyg \< internet alternativ \< och sedan klickar bort visa egna felmeddelanden skriv sedan vad du fick för felmeddelande. Om du inte får något felmeddelande så är det ju inget fel på asp koden utan på javascriptet. Permalänk: https://www.webforum.nu/p/277699 ## #5 — Addeladde, 2001-07-17T12:33Z ``` <% siffra = 00 do until rs.eof %> oCMenu.makeMenu('sub<%=siffra%>','top0','<%=RS("Benämning_10")%>','Avdelning.asp?Prodgr=<%=RS("extra_9")%>') siffra = siffra + 1 RS.MoveNext WEND %> ``` Permalänk: https://www.webforum.nu/p/277700 ## #6 — His Divine Shadow, 2001-07-18T06:09Z Nä det funkade inte: Jag får nu detta meddelande: "Microsoft VBScript compilation error '800a0400' Expected statement /main/swe/navigator.asp, line 166 WEND" 166 är WEND såhär ser nu koden ut: \<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("GB_ConnectionString") SQL= "SELECT \* FROM Art WHERE (artikelnr LIKE 'W\_' OR artikelnr LIKE 'Y\_') AND (Extra_7 LIKE 'J') Order By (LagerPlats)" Set RS = Conn.Execute(SQL) Do While Not RS.EOF %\> \<% siffra = 00 do until rs.eof %\> oCMenu.makeMenu('sub\<%=siffra%\>','top0','\<%=RS("Benämning_10")%\>','Avdelning.asp?Prodgr=\<%=RS("extra_9")%\>') \<% siffra = siffra + 1 RS.MoveNext Loop WEND %\> Jag prövade också att lägga till loop som det också klagade på och att byta ut WEND mot conn.close då fick jag detta meddelande: Microsoft VBScript compilation error '800a03fb' Expected 'Loop' /main/swe/navigator.asp, line 166 Permalänk: https://www.webforum.nu/p/277701 ## #7 — His Divine Shadow, 2001-07-18T07:27Z Äh glöm den koden, jag fick det att funka. med denna kod: \<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("GB_ConnectionString") SQL= "SELECT \* FROM Art WHERE (artikelnr LIKE 'W\_' OR artikelnr LIKE 'Y\_') AND (Extra_7 LIKE 'J') Order By (LagerPlats)" Set RS = Conn.Execute(SQL) %\> oCMenu.makeMenu('top0','',' Hembryggning','','') \<% i = 0 Do while NOT RS.EOF %\> oCMenu.makeMenu('sub\<%=i%\>','top0','\<%=RS("Benämning_10")%\>','Avdelning.asp?Prodgr=\<%=RS("extra_9")%\>') \<% RS.moveNext i = i + 1 Loop Conn.close %\> MEN! När jag lägger in nästa meny, för en annan avdelning så syns ingenting, inget felmeddelande el. nåt, menyn kommer bara inte fram. Dett är koden för den andra menyn, stort sett identisk: \<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("GB_ConnectionString") SQL= "SELECT \* FROM Art WHERE (artikelnr LIKE 'X\_') AND (Extra_7 LIKE 'J') Order By (LagerPlats)" Set RS = Conn.Execute(SQL) %\> oCMenu.makeMenu('top1','',' Presentartiklar','','') \<% i = 0 Do while NOT RS.EOF %\> oCMenu.makeMenu('sub\<%=i%\>','top1','\<%=RS("Benämning_10")%\>','Avdelning.asp?Prodgr=\<%=RS("extra_9")%\>') \<% RS.moveNext i = i + 1 Loop Conn.close %\> Permalänk: https://www.webforum.nu/p/277702 ## #8 — Eclipse, 2001-07-18T08:13Z Välj 'visa källa' och kolla lite på html koden som genereras. Det är viktigt att alla fjumparna kommer på rätt plats. Permalänk: https://www.webforum.nu/p/277703 ## #9 — Thorax, 2001-07-18T08:38Z Jag tycker du ska byta meny helt. Titta på följande URL: De har en mycket bra meny. Permalänk: https://www.webforum.nu/p/277704 ## #10 — His Divine Shadow, 2001-07-18T08:38Z Argh och herreguud, det är så irriterande när sidan vägrar uppdateras. Jag har fått ett svar men jag kan inte läsa det, fastän jag byter dator. Det måste ju vara nått fel nånstans. Permalänk: https://www.webforum.nu/p/277705 ## #11 — His Divine Shadow, 2001-07-18T08:54Z Nej skjut mig! Jag kopierade just in samma script som ni kan se här ovanför som inte funkade för en stund sen. Nu funkar det. Det är nått väldigt väldigt mystiskt med detta... Permalänk: https://www.webforum.nu/p/277706 ## #12 — Eclipse, 2001-07-18T10:56Z Då är allt i sin ordning. Datorer tenderar att vara mystiska. 'It's a feature, not a bug.' Permalänk: https://www.webforum.nu/p/277707 ## #13 — His Divine Shadow, 2001-07-18T11:46Z Kan våran server hålla på att bli galen, när jag skulle lägga till den tredje menyn så gjorde det samma sak igen. Då gick jag till servern och stängde av den(processen inte datorn) och startade den igen, nu funkade den 3:de menyn också... WTF? Permalänk: https://www.webforum.nu/p/277708 --- Tråden på webben: https://www.webforum.nu/amne/asp/10620-asp-i-coolemenus3