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.
------------------
The Eliens!
They are here!
Now where did I put my Napalm Cannon?
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:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/main/swe/navigator.asp, line 166
------------------
The Eliens!
They are here!
Now where did I put my Napalm Cannon?
Ä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
%>
------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
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.
------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
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...
------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
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?
------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
270 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
