main menu html part

Help
wildboy85
2008-07-23
2013-03-25

  • wildboy85
    wildboy85
    2008-07-23

    after generating the html part of the menu, i will refresh the frame without erasing it

    flef.WriteLn("<span class=SpellE>MENU</span></h3>")
    flef.WriteLn("<div class=MsoNormal align=center style='text-align:center'>")
    flef.WriteLn("</div>")

    for i=0 to ubound(arabut)
       'style="background-color: #cc0000; color: #ffffff;" /
       b = "<input type=""button"" name=""" & arabut(i) & """ value=""" & arabutdes(i) & """"
       i2=i
       if i>ubound(aradep) then
          i2=ubound(aradep)
       else
          a=aradep(i2)
       end if

       if a<>lasdep then
          flef.WriteLn(a & "<br>")
          lasdep=a      
       end if
       b = b & " style=""background-color: #" & aradepcol(i2) & "; color: #000000;""><br>"
       flef.WriteLn(b)
    next

    'flef.WriteLn("<input type=""button"" style=""height:60px; font-size:12px;"" id=""button""  value=""commande04"" onclick=""this.form.submit()""")
    flef.WriteLn("</div>")
    flef.WriteLn("</body>")
    flef.WriteLn("</html>")

    '=== refresh the frame
    flef.location.reload(true)