<% Dim i Dim menu_ix Dim menu_txt(100) Dim menu_file(100) Dim menu_target(100) for i=1 to 100 menu_txt(i)="" menu_file(i)="" menu_target(i)="" next menu_ix=0 ' a SITEDIR-ben a menu.txt-t ‚rtelmezzk Dim objFSO, objTextFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(Server.MapPath("../" & Session("SITEDIR") & "/menu.txt")) dim a(10) dim ind ind=2 ' ha nincs ilyen nyelv a menüfile-ban, akkor az első lesz if Not objTextFile.AtEndOfStream then line=objTextFile.ReadLine split line,"#",a,10 for i=3 to 10 if a(i) = Session("LANG1") then ind=i end if next end if Do While Not objTextFile.AtEndOfStream 'response.write objTextFile.ReadLine & vbCrLf line=objTextFile.ReadLine split line,"#",a,10 uj_menuelem a(ind),a(2),a(1) Loop objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing ' hanyadik látogató? strSQL = "select akt_ertek from gold_param where param_nev='COUNTER"+cstr(Session("VISZONTELADOID")) + "' " Set Lista=cnnSearch.Execute(strSQL) latogato_szam = cStr(lista(0)) if Session("MENU_BAL_UTOLSO")= "" then Session("MENU_BAL_UTOLSO") = "Introduction.htm" end if sub split(line,elv,a,hossz) b=1 do while len(line)>0 vesszopos=instr(line,elv) a(b)=rtrim(mid(line,1,vesszopos-1)) line=rtrim(mid(line,vesszopos+1)) b=b+1 loop end sub sub uj_menuelem(txt,file,target) ' if menu_ix<20 then menu_ix= menu_ix+1 menu_txt(menu_ix) = txt menu_file(menu_ix) = file menu_target(menu_ix) = target ' else ' Response.write "Több mint 20 menüelem! "+txt ' end if end sub ' Response.write "OK0" ' Response.end %>
<% ' a menü kigenerálása 'onload="kezdolap()" ind=request.querystring("mp") if ind="" then ind="1" end if for i=1 to menu_ix %> <% next %>

" nowrap onmouseover="if (this.className == 'M1') this.className='M2';" onmouseout="if (this.className == 'M2') this.className='M1';" <% if menu_txt(i)<>"" then %>onclick="cm('<%=i%>','<%=menu_file(i)%>','<%=menu_target(i)%>');"><%=menu_txt(i)%><% else %> <% end if %>