[ASP, Access] arrRows=objRS.GetRows

[Verwijderd]

Hallo ik ben bezig met de een website, ik ben een meunbalk aan het maken die middels een loop alle menuitems uit een database haalt. ik heb echter een probleem:

Ik heb een SQL query gemaakt deze ziet er al volgt uit:

code:

dim currentHoofdItem, nummer, Plaatjes, subnummer, ObjRS, MyRS

MyRS = "SELECT HoofdMenuItems.Omschrijving AS HoofdItem,
 HoofdMenuItems.Link as HoofdMenuLink,
 MenuItems.Omschrijving AS Item, 
MenuItems.Link as MenuLink, 
MenuItems.Plaatjes as Plaatjes, 
SubMenu.MenuNaam as SubMenuNaam, 
SubMenu.MenuLink as SubMenuLink
 FROM ((HoofdMenuItems 
LEFT JOIN MenuItems ON HoofdMenuItems.HoofdMenuItemID = MenuItems.HoofdMenuItemID) 
LEFT JOIN SubMenu ON MenuItems.MenuItemID = Submenu.SubItemID) 
ORDER BY HoofdMenuItems.Omschrijving, MenuItems.Omschrijving;"
set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open MyRS, objConnection, 3, 3
arrRows=objRS.GetRows

ik heb de volgende loop gemaakt die het menu uit de database gaat, deze loop werkt goed:

code:

currentHoofdItem ="" 
subnummer = 0
Plaatjes = 4 
nummer = -1

do until objRS.EOF
  if ObjRS("HoofdItem") <> currentHoofdItem then
    currentHoofdItem = objRS("HoofdItem") 
    nummer = nummer+1 
    subnaam = subnummer+1
    Response.Write("window.fw_menu_" & nummer & " =new Menu(""root"",154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
  end if
    Response.Write("fw_menu_" & nummer & ".addMenuItem(""" & ObjRS("Item") & """,""location=" & ObjRS("MenuLink") & """);")
  if not isNull(objRS("SubMenuNaam")) then  
    Response.Write("window.fw_menu_" & nummer & "_" & subnummer & " = new Menu(154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
    Response.Write("fw_menu_" & nummer & "_" & subnummer & ".addMenuItem(""" & ObjRS("SubMenuNaam") & """,""location=" & SubMenuLink & """);")
  end if
  ObjRs.MoveNext
loop

onder de loop haal ik middels het commando (arrRows(Plaatjes,26)) plaatjes uit de database maar als ik het commando arrRows=objRS.GetRows tussen mijn qeury om te zorgen dat de code met arrRows omkan gaan dan krijg ik wel de plaatjes die ik middels (arrRows(Plaatjes,26)) te zien en van de loop helemaal niets, haal ik dit commando weg of zet ik deze ergens anders neer dan krijg ik een leeg scherm te zien, als ik dan in de broncode ga kijken dan zie ik dat hij wel de menu's laad maar geen plaatjes meer wat doe ik fout?

[CrashOne]

Waarom heel je de rest van je data dan ook niet uit arrRows? Anders is het een beetje nutteloos om getRows te gebruiken.

[Verwijderd]

CrashOne schreef op dinsdag 16 november 2004 @ 09:53:
Waarom heel je de rest van je data dan ook niet uit arrRows? Anders is het een beetje nutteloos om getRows te gebruiken.

Want de plaatjes die middels arrRows uit de database gehaalt worden staan in vaste postitie in de database en de loop gaat kijken middels ObjRs hoeveel er in een tabel staat daardoor is de loop variable en kan er makkelijk een menuitem gemaakt of verwijderd worden

[pjotrk]

Verwijderd schreef op dinsdag 16 november 2004 @ 10:02:
[...]


Want de plaatjes die middels arrRows uit de database gehaalt worden staan in vaste postitie in de database en de loop gaat kijken middels ObjRs hoeveel er in een tabel staat daardoor is de loop variable en kan er makkelijk een menuitem gemaakt of verwijderd worden

lijkt mij idd ook zonde om eerst alle gegevens in een array te stoppen en de menuitems vervolgens nog een keer uit de array te halen, waarom doe je het niet zo?

VBScript:

For Each row in arrRows
  if row("HoofdItem") <> currentHoofdItem then
    currentHoofdItem = row("HoofdItem")
    nummer = nummer+1 
    subnaam = subnummer+1
    Response.Write("window.fw_menu_" & nummer & " =new Menu(""root"",154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
  end if
    Response.Write("fw_menu_" & nummer & ".addMenuItem(""" & row("Item") & """,""location=" & row("MenuLink") & """);")
  if not isNull(row("SubMenuNaam")) then  
    Response.Write("window.fw_menu_" & nummer & "_" & subnummer & " = new Menu(154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
    Response.Write("fw_menu_" & nummer & "_" & subnummer & ".addMenuItem(""" & row("SubMenuNaam") & """,""location=" & SubMenuLink & """);")
  end if
Next

Alleen moet je dan ipv row("kolomnaam") dan iets doen als row(kolomnr).

[faabman]

@TS: even een opmerking los je vraag... Als ik zo naar je query kijk dan klopt er weinig van je datamodel... Waarom heb je een tabel hoofdmenu, een tabel menu en een tabel submenu??? Daar kun je toch ook gewoon één tabel van maken met een extra veld (relatieID oid)...

Vervolgens kun je de array die je daar dan uithaald mbv een recursieve functie doorlopen om je menu te vullen...

[Verwijderd]

Ik heb nu de volgende code gekopieerd en ergens anders tussen de code

code:

set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open MyRS, objConnection, 3, 3
arrRows=objRS.GetRows

En dit blijkt te werken maar ik heb nu de volgende vraag onder de loop dien ik een aantal plaatjes te laden dit doe ik middels de code:

code:

    response.write("fw_menu_0.bgImageUp(arrRows(Plaatjes,26))")
    response.write("fw_menu_0.bgImageOver(arrRows(Plaatjes,27))")
    response.write("fw_menu_0.hideOnMouseOut=true")
    response.write("fw_menu_1.bgImageUp(arrRows(Plaatjes,26))")
    response.write("fw_menu_1.bgImageOver(arrRows(Plaatjes,27))")
    response.write("fw_menu_1.hideOnMouseOut=true")
    response.write("fw_menu_2.bgImageUp(arrRows(Plaatjes,26))")
    response.write("fw_menu_2.bgImageOver(arrRows(Plaatjes,27))")
    response.write("fw_menu_2.hideOnMouseOut=true")

als ik nu de pagina run dan zie ik niet dat het plaatje geladen wordt maar dat de tekst (arrRows(Plaatjes,26))") neergezet, wat moet ik aan deze code veranderen om het plaatje uit de database te halen?

[bigbeng]

code:

response.write("fw_menu_0.bgImageOver(arrRows(Plaatjes,27))")

moet worden

code:

response.write "fw_menu_0.bgImageOver('" & arrRows(Plaatjes,27) &"')"

Ik ben ervan uitgegaan dat de inhoud van arrRows nog geen ' bevat.

Dit is overigens wel basis vbscript kennis.

[ Voor 12% gewijzigd door bigbeng op 16-11-2004 13:10 ]

[Verwijderd]

Ik heb nu een probleem waar ik al enige tijd mee bezig bne maar ik kan niet ontdekken waardoor het komt. Ik ben met een menubalk van een website bezig die dynamisch uit de database wordt gehaalt. Heel de pagina werkt en ook haal de asp code de goede plaatjes uit de database maar als ik de pagina open krijg ik alleen de hoofdmenuitems te zien en niet de submenuitemsn ook blijft de rollover image van de plaatjes zichtbaar ook als de muis er niet opstaat. Volgens mij ligt het probleem aan de loop die ik gemaakt heb dit is de code:

code:

function fwLoadMenus() {
  if window.fw_menu_0 return;
<%
dim currentHoofdItem, nummer, Plaatjes, subnummer, ObjRS, MyRS

MyRS = "SELECT HoofdMenuItems.Omschrijving AS HoofdItem, 
HoofdMenuItems.Link as HoofdMenuLink, MenuItems.Omschrijving AS Item, MenuItems.Link as MenuLink, MenuItems.Plaatjes as Plaatjes, 
SubMenu.MenuNaam as SubMenuNaam, SubMenu.MenuLink as SubMenuLink, SubMenu.Afbeelding as Afbeelding 
FROM ((HoofdMenuItems 
LEFT JOIN MenuItems ON HoofdMenuItems.HoofdMenuItemID = MenuItems.HoofdMenuItemID) 
LEFT JOIN SubMenu ON MenuItems.MenuItemID = Submenu.SubItemID) 
ORDER BY HoofdMenuItems.Omschrijving, MenuItems.Omschrijving;"
set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open MyRS, objConnection, 3, 3

HoofdMenuLink = 3 
Plaatjes = 4
Afbeelding = 7
currentHoofdItem ="" 
nummer = -1
subnummer = 0

do until objRS.EOF
  if ObjRS("HoofdItem") <> currentHoofdItem then
    currentHoofdItem = objRS("HoofdItem") 
    nummer = nummer+1 
    subnaam = subnummer+1
    Response.Write("window.fw_menu_"& nummer & " =new Menu(""root"",154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
  end if
    Response.Write("fw_menu_"& nummer & ".addMenuItem(""" & ObjRS("Item") & """,""location=" & ObjRS("MenuLink") & """);")
  if not isNull(objRS("SubMenuNaam")) then  
    Response.Write("window.fw_menu_"& nummer & "_" & subnummer & " =new Menu(154,18,""Verdana, Arial, Helvetica, sans-serif"",11,""#ffffff"",""#ffffff"",""#0000cc"",""#000084"");")
    Response.Write("fw_menu_" & nummer & "_"& subnummer & ".addMenuItem(""" & ObjRS("SubMenuNaam") & """,""location=" & SubMenuLink & """);")
  end if%>
 <br>
  <%ObjRs.MoveNext
loop

set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open MyRS, objConnection, 3, 3
arrRows=objRS.GetRows

nummer = 0   
do until nummer = 7
    response.write"fw_menu_" & nummer & ".bgImageUp('" & arrRows(Plaatjes,26) &"')"
    response.write"fw_menu_" & nummer & ".bgImageOver('" & arrRows(Plaatjes,27) &"')"
    response.write"fw_menu_" & nummer & ".hideOnMouseOut=true" 
    nummer = nummer + 1
Loop    
    
    response.write"fw_menu_0.restoreParam('" & arrRows(Plaatjes,0) &"')" 
    response.write"fw_menu_1.childMenuIcon('" & arrRows(Plaatjes,17) &"')"
    response.write"fw_menu_1.restoreParam('" & arrRows(Plaatjes,20) &"')"
    response.write"fw_menu_2.restoreParam('" & arrRows(Plaatjes,6) &"')"
    response.write"fw_menu_3.restoreParam('" & arrRows(Plaatjes,8) &"')"
    response.write"fw_menu_4.restoreParam('" & arrRows(Plaatjes,0) &"')"
    response.write"fw_menu_5.restoreParam('" & arrRows(Plaatjes,4) &"')"
    response.write"fw_menu_6.restoreParam('" & arrRows(Plaatjes,7) &"')"
%>
    fw_menu_7.writeMenus()+;
}   // fwLoadMenus()
//-->

de query en dergelijke werkt goed voorheen bestond de code niet uit een loop en zag hij er als volgt uit, Deze code werkt wel prefect en de submenu's werden gewoon geladen.

code:

window.fw_menu_2 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_2.addMenuItem("Internet routers","location='internet_i_r.htm'");
  fw_menu_2.addMenuItem("E-mail servers","location='internet_e_s.htm'");
  fw_menu_2.addMenuItem("Web hosting","location='internet_w_h.htm'");
  fw_menu_2.addMenuItem("ISDN modems","location='internet_i_m.htm'");
   fw_menu_2.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_2.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_2.hideOnMouseOut=true;
    fw_menu_2.restoreParam='images/truecommenu_r1_c3.gif'
    
  window.fw_menu_3 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_3.addMenuItem("LAN analyses","location='telecom_l_a.htm'");
  fw_menu_3.addMenuItem("WAN analyses","location='telecom_w_a.htm'");
  fw_menu_3.addMenuItem("Link simulators","location='telecom_l_s.htm'");
  fw_menu_3.addMenuItem("Break out boxes","location='telecom_b_b.htm'");
  fw_menu_3.addMenuItem("Cable testers","location='telecom_c_t.htm'");
  fw_menu_3.addMenuItem("Analysis service","location='telecom_a_s.htm'");
   fw_menu_3.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_3.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_3.hideOnMouseOut=true;
    fw_menu_3.restoreParam='images/truecommenu_r1_c4.gif'

Wat is hier fout aan, moet ik een loop maken met de plaatjes meteen in de loop verwerkt wie kan mij helpen?

[Verwijderd]

*schop*

[Woudloper]

heb je al eens gekeken naar je IF ELSE statement voor de submenus? Als de code daar nooit komt zit er hoogstwaarschijnlijk iets mis in die code. Wellicht moet je toch niet not isnull() gebruiken...

[Jaspertje]

Tot waar kom je wel?

Je zegt de hoofdmenu items zie ik wel, geeft je SQL statement de submeny items wel terug?
Als je er geen if statement omheen zet wat zie je dan?.

Misschien is het om te debuggen makkelijker om alleen de naam van je link ff neer te zetten, alle andere meuk heb je nog niet zoveel aan als het toch niet werkt

Nog een hint,

Doe altijd eens response.write objrs("submenuitem"), kijk eens wat ie terug geeft. En wat Woudloper ook al zegt, een SQL geeft nooit NULL terug, mits dat in de db staat, maar altijd een lege string ("").. Misschien if objRS("SubMenuNaam") <> "" then

[Verwijderd]

Woudloper schreef op donderdag 18 november 2004 @ 09:25:
heb je al eens gekeken naar je IF ELSE statement voor de submenus? Als de code daar nooit komt zit er hoogstwaarschijnlijk iets mis in die code. Wellicht moet je toch niet not isnull() gebruiken...

Ik had gekeken in de code van de gelade pagina daar staat ook dat de submenu's worden geladen

code:

window.fw_menu_4 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4.addMenuItem("Channel Director","location=storage_c_d.asp");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("SCSI","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("Fibre Channel","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("ESCON Channel","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("FICON Channel","location=");
fw_menu_4.addMenuItem("Fibre Switch","location=storage_f_s.asp");

Ik dacht zelf eigelijk dat de plaatjes die onder deze loop in een eigen loop(zie code boven). staan in een loop moeten komen staan maar ik weet niet of ik dit goed heb of dat dit toch zo moet werken? kan iemand mij helpen?

[ Voor 111% gewijzigd door Verwijderd op 18-11-2004 09:38 ]

[Jaspertje]

Dus dan zit de fout helemaal niet in de ASP, als je code wel doorlopen wordt en je de menu's dus wel in de code ziet?

[Verwijderd]

Jaspertje schreef op donderdag 18 november 2004 @ 09:36:
Dus dan zit de fout helemaal niet in de ASP, als je code wel doorlopen wordt en je de menu's dus wel in de code ziet?

Inerdaad deze zie ik staan in de code alleen hij laat ze niet in de pagina zelf zien de rollover image blijft dan staan als ik er met de muis overheen ga en ik zie dan geen submenu;s maar waaraan zou het dan moeten liggen?

Dit is overgens wel een javascript ik weet niet of het hier iets mee te maken heeft dat het javascript misschien op de verkeerde manier geladen wordt?

[ Voor 17% gewijzigd door Verwijderd op 18-11-2004 09:41 ]

[Woudloper]

Verwijderd schreef op donderdag 18 november 2004 @ 09:40:
[...]

Inerdaad deze zie ik staan in de code alleen hij laat ze niet in de pagina zelf zien de rollover image blijft dan staan als ik er met de muis overheen ga en ik zie dan geen submenu;s maar waaraan zou het dan moeten liggen?

Dat heeft dan meer te maken met het menu wat je gebruik en is het dus meer een vraag voor de buren (W&G). Hoe ziet de code van je menu eruit? Heb je een (statisch) voorbeeld van je pagina? Op die manier kan er altijd even naar gekeken worden...

edit:
Heeft waarschijnlijk met Javascript e.o. css te maken

[ Voor 6% gewijzigd door Woudloper op 18-11-2004 09:43 ]

[Jaspertje]

idd, als je alle rariteiten eromheen weg zou laten (dus geen hide dingen enzo) dan zie je ze wel. Moet je ff een mvoe aanvragen naar /13... of een nieuw topic openen

[Verwijderd]

Ik heb even de oude versie zonder database vergeleken met de vernieuwde deze heb ik met utraedit gecomperd ik zag dat van het orginele bestand de output zo was:

code:

function fwLoadMenus() {
  if (window.fw_menu_0) return;
  window.fw_menu_0 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_0.addMenuItem("Fiber conversion","location='datacom_f_c.htm'");
  fw_menu_0.addMenuItem("Network to fiber","location='datacom_n_f.htm'");
  fw_menu_0.addMenuItem("Fiber multiplexing","location='datacom_f_m.htm'");
  fw_menu_0.addMenuItem("Cable assemblies","location='datacom_c_a.htm'");
  fw_menu_0.addMenuItem("Network routers","location='datacom_n_r.htm'");
  fw_menu_0.addMenuItem("Matrix switches","location='datacom_m_s.htm'");
  fw_menu_0.addMenuItem("Interface convertors","location='datacom_i_c.htm'");
  fw_menu_0.addMenuItem("Wireless LAN","location='datacom_w_l.htm'");
   fw_menu_0.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_0.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_0.hideOnMouseOut=true;
    fw_menu_0.restoreParam='images/testmenu_r1_c1.gif'
    
    window.fw_menu_1_1 = new Menu("Channel extension",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
    fw_menu_1_1.addMenuItem("ESCON channel","location='storage_c_es.htm'");
    fw_menu_1_1.addMenuItem("FICON channel","location='storage_c_fi.htm'");
    fw_menu_1_1.addMenuItem("Fibre channel","location='storage_c_fc.htm'");
    fw_menu_1_1.addMenuItem("SCSI","location='storage_c_sc.htm'");
     fw_menu_1_1.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_1_1.bgImageOver="images/fwmenu4_154x18_over.gif";
     fw_menu_1_1.hideOnMouseOut=true;
  window.fw_menu_1 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_1.addMenuItem(fw_menu_1_1,"location='storage_c_e.htm'");
  fw_menu_1.addMenuItem("Channel director","location='storage_c_d.htm'");
  fw_menu_1.addMenuItem("Fibre switch","location='storage_f_s.htm'");
   fw_menu_1.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_1.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_1.hideOnMouseOut=true;
   fw_menu_1.childMenuIcon="images/arrows.gif";
    fw_menu_1.restoreParam='images/testmenu_r1_c2.gif'
    
  window.fw_menu_2 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_2.addMenuItem("Internet routers","location='internet_i_r.htm'");
  fw_menu_2.addMenuItem("E-mail servers","location='internet_e_s.htm'");
  fw_menu_2.addMenuItem("Web hosting","location='internet_w_h.htm'");
  fw_menu_2.addMenuItem("ISDN modems","location='internet_i_m.htm'");
   fw_menu_2.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_2.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_2.hideOnMouseOut=true;
    fw_menu_2.restoreParam='images/testmenu_r1_c3.gif'
    
  window.fw_menu_3 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_3.addMenuItem("LAN analyses","location='telecom_l_a.htm'");
  fw_menu_3.addMenuItem("WAN analyses","location='telecom_w_a.htm'");
  fw_menu_3.addMenuItem("Link simulators","location='telecom_l_s.htm'");
  fw_menu_3.addMenuItem("Break out boxes","location='telecom_b_b.htm'");
  fw_menu_3.addMenuItem("Cable testers","location='telecom_c_t.htm'");
  fw_menu_3.addMenuItem("Analysis service","location='telecom_a_s.htm'");
   fw_menu_3.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_3.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_3.hideOnMouseOut=true;
    fw_menu_3.restoreParam='images/testmenu_r1_c4.gif'
    
  window.fw_menu_4 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_4.addMenuItem("Infrastructure security","location='security_i_s.htm'");
  fw_menu_4.addMenuItem("Enviroment security","location='security_e_s.htm'");
  fw_menu_4.addMenuItem("Firewall","location='security_f_w.htm'");
   fw_menu_4.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_4.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_4.hideOnMouseOut=true;
    fw_menu_4.restoreParam='images/testmenu_r1_c5.gif'
    
  window.fw_menu_5 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_5.addMenuItem("X.25 switching","location='special_x_s.htm'");
  fw_menu_5.addMenuItem("Protocol conversion","location='special_p_c.htm'");
  fw_menu_5.addMenuItem("Remote access","location='special_r_a.htm'");
  fw_menu_5.addMenuItem("PABX solutions","location='special_p_s.htm'");
  fw_menu_5.addMenuItem("Interface conversion","location='special_i_c.htm'");
   fw_menu_5.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_5.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_5.hideOnMouseOut=true;
    fw_menu_5.restoreParam='images/testmenu_r1_c6.gif'
    
  window.fw_menu_6 = new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
  fw_menu_6.addMenuItem("About us","location='test_a_u.htm'");
  fw_menu_6.addMenuItem("Contact us","location='test_c_u.htm'");
  fw_menu_6.addMenuItem("Find us","location='test_f_u.htm'");
  fw_menu_6.addMenuItem("News","location='test_n.htm'");
   fw_menu_6.bgImageUp="images/fwmenu4_154x18_up.gif";
   fw_menu_6.bgImageOver="images/fwmenu4_154x18_over.gif";
   fw_menu_6.hideOnMouseOut=true;
    fw_menu_6.restoreParam='images/testmenu_r1_c7.gif'

  fw_menu_6.writeMenus();
} // fwLoadMenus()

de nieuw output met de loop zag er zo uit:

code:

 if (window.fw_menu_0) return; 

   <br>
   window.fw_menu_0 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_0.addMenuItem("Cable Assemblies","location=datacom_c_a.asp");
fw_menu_0.addMenuItem("Fiber Conversion","location=datacom_f_c.asp");
fw_menu_0.addMenuItem("Fiber MultiPlexing","location=datacom_f_m.asp");
fw_menu_0.addMenuItem("Interface Converters","location=datacom_i_c.asp");
fw_menu_0.addMenuItem("Matrix Switches","location=datacom_m_s.asp");
fw_menu_0.addMenuItem("Network Routers","location=datacom_n_r.asp");
fw_menu_0.addMenuItem("Network to Fiber","location=datacom_n_f.asp");
fw_menu_0.addMenuItem("Wireless LAN","location=datacom_w_l.asp");
   <br>
   window.fw_menu_1 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_1.addMenuItem("E-Mail Servers","location=internet_e_s.asp");
fw_menu_1.addMenuItem("Internet Routers","location=internet_I_r.asp");
fw_menu_1.addMenuItem("ISDN Modems","location=internet_I_m.asp");
fw_menu_1.addMenuItem("WebHosting","location=internet_w_h.asp");
   <br>
   window.fw_menu_2 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_2.addMenuItem("Enviroment Security","location=security_e_s.asp");
fw_menu_2.addMenuItem("Firewall","location=security_f_w.asp");
fw_menu_2.addMenuItem("Infrastructure Security","location=security_I_s.asp");
   <br>
   window.fw_menu_3 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_3.addMenuItem("Interface Conversion","location=special_I_c.asp");
fw_menu_3.addMenuItem("PABX Solutions","location=special_p_s.asp");
fw_menu_3.addMenuItem("Proctocol Conversion","location=special_p_c.asp");
fw_menu_3.addMenuItem("Remote Access","location=special_r_a.asp");
fw_menu_3.addMenuItem("X.25 Switching","location=special_x_s.asp");
   <br>
   window.fw_menu_4 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4.addMenuItem("Channel Director","location=storage_c_d.asp");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("SCSI","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("Fibre Channel","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("ESCON Channel","location=");
fw_menu_4.addMenuItem("Channel Extensions","location=storage_c_e.asp");
window.fw_menu_4_0 =new Menu(154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_4_0.addMenuItem("FICON Channel","location=");
fw_menu_4.addMenuItem("Fibre Switch","location=storage_f_s.asp");
<br>
window.fw_menu_5 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_5.addMenuItem("Analyses Service","location=telecom_a_s.asp");
fw_menu_5.addMenuItem("Break Out Boxes","location=telecom_b_o.asp");
fw_menu_5.addMenuItem("Cable Testers","location=telecom_c_t.asp");
fw_menu_5.addMenuItem("LAN Analyses","location=telecom_l_a.asp");
fw_menu_5.addMenuItem("Link Simulators","location=telecom_l_a.asp");
fw_menu_5.addMenuItem("WAN Analyses","location=telecom_w_a.asp");
   <br>
   window.fw_menu_6 =new Menu("root",154,18,"Verdana, Arial, Helvetica, sans-serif",11,"#ffffff","#ffffff","#0000cc","#000084");
fw_menu_6.addMenuItem("About Us","location=test_a_u.asp");
fw_menu_6.addMenuItem("Contact Us","location=test_c_u.asp");
fw_menu_6.addMenuItem("Find Us","location=test_f_u.asp");
fw_menu_6.addMenuItem("News","location=test_n.asp");
fw_menu_0.bgImageUp('images/index_r4_c15_f2.gif')fw_menu_0.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_0.hideOnMouseOut=truefw_menu_1.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_1.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_1.hideOnMouseOut=truefw_menu_2.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_2.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_2.hideOnMouseOut=truefw_menu_3.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_3.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_3.hideOnMouseOut=truefw_menu_4.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_4.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_4.hideOnMouseOut=truefw_menu_5.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_5.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_5.hideOnMouseOut=truefw_menu_6.bgImageUp('images/index_r4_c15_f2.gif')
fw_menu_6.bgImageOver('images/index_r4_c12_f2.gif')fw_menu_6.hideOnMouseOut=truefw_menu_0.restoreParam('images/testmenu_r1_c5.gif')
fw_menu_1.childMenuIcon('images/Arrows.gif')fw_menu_1.restoreParam('images/testmenu_r1_c2.gif')fw_menu_2.restoreParam('images/testmenu_r1_c3.gif')fw_menu_3.restoreParam
('images/testmenu_r1_c4.gif')fw_menu_4.restoreParam
('images/testmenu_r1_c5.gif')fw_menu_5.restoreParam
('images/testmenu_r1_c6.gif')fw_menu_6.restoreParam
('images/testmenu_r1_c7.gif')

    fw_menu_6.writeMenus();
}   // fwLoadMenus()
//-->

Dus ik heb het idee dat de loop niet helemaal goed is, toch de volgende keer niet meer een bestaande website opnieuw programeren Weet iemand zo wat er nu fout gaat?

[ Voor 95% gewijzigd door Verwijderd op 18-11-2004 10:36 ]

[Jaspertje]

Zou je misschien de verschillen kunnen laten zien, of moeten we dat ook nog opzoeken?

Ik zie wel al overal <br> staan, maar ga niet zoek de 10 verschillen spelen

[Verwijderd]

Jaspertje schreef op donderdag 18 november 2004 @ 10:32:
Zou je misschien de verschillen kunnen laten zien, of moeten we dat ook nog opzoeken?

Ik zie wel al overal <br> staan, maar ga niet zoek de 10 verschillen spelen

De uitkomst is hetzelfde, alleen zoals je hierboven ziet zet de orignele uitkomst de menuitems netjes per menu onderelkaar met het goed plaatjes, Dat is in de nieuwe uitkomst niet het geval deze zet eerste de menuitems neer en daaronder de plaatjes die erbij horen (dit is ook een andere loop). Ik denk zelf dat ik deze plaatjes ook in de loop moet verwerken alleen ik zou niet goed weten hoe dit moet omdat ik met arrRows en ObjRS werk om dat OBjRS heel de kolom pakt om te kijken hoeveel er in zit en arrRows wordt gebruikt om een veld te selecteren uit de database

De <BR> functie staat eronder omdat eerst de uitkomst allemaal achter elkaar stond daarom heb ik voor de duidelijkheid deze voor mezelf er tussen gezet. Deze is in princiepe niet nodig

[JJvG]

code:

Oud:
fw_menu_0.addMenuItem("Fiber conversion","location='datacom_f_c.htm'");

Nieuw:
fw_menu_0.addMenuItem("Fiber Conversion","location=datacom_f_c.asp");

Zoek het verschil!
location=... in de 1e versie is met enkele quotes (') en in je nieuwe versie zonder!

Zo zitter er nog wel wat meer verschillen/fouten in, waardoor het echt niet gaat werken...., maar die mag je zelf uitzoeken.

Niet meteen een [rml]nieuw topic[/rml] openen zonder zelf goed te zoeken!