Jag har just börjat med Coolmenus3 från http://www.dhtmlcentral.com/, 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.
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. <script><script> taggar.
Men Bratta själv sade att han har haft ASP att funka i Coolmenus.
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.
<%
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:
Ä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")%>')
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.
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...
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?
272 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
