<% color_n= "#e6e3e0" color_active = "#ffffff" color_inactive = "#7CA929" border_inactive= "aaaaaa" border_active = "ffffff" borderr_inactive= "aaaaaa" borderr_active = "e6e3e0" ful_active="aktful.jpg" ful_inactive="inaktful.jpg" color_f = color_inactive color_t = color_inactive color_a = color_inactive color_k = color_inactive ful_f=ful_inactive ful_t=ful_inactive ful_a=ful_inactive ful_k=ful_inactive border_f = border_inactive border_t = border_inactive border_a = border_inactive border_k = border_inactive borderr_f = borderr_active borderr_t = borderr_active borderr_a = borderr_active borderr_k = borderr_active select case menu_top_act case "F" color_f= color_active border_f = border_active borderr_f = borderr_inactive ful_f=ful_active case "T" color_t= color_active border_t = border_active borderr_t = borderr_inactive ful_t=ful_active case "A" color_a= color_active border_a = border_active borderr_a = borderr_inactive 'color_t= color_active 'border_t = border_active 'borderr_t = borderr_inactive ful_a=ful_active case "K" color_k= color_active border_k = border_active borderr_k = borderr_inactive ful_k=ful_active end select ' table style="position: absolute; left: 0px; top: 50px" 'if menu_top_act<>"T" then menu_width_fooldal=250 '23 menu_width_termekek=250 '54 menu_width_ajandekok=250 '54 menu_width_kosar=250 '23 'end if 'szuro_katalogus="" 'select case szuro_kinalat ' case "LM" szuro_katalogus="Last Minute" ' case "PT" szuro_katalogus="PresenTex" ' case "PR" szuro_katalogus="Promotion" ' case "GC" szuro_katalogus="Gift Cocktail" ' case "HE" szuro_katalogus="High End" 'end select 'ssql="select * from g_kat where web_szuro<>'0' and web_szuro is not null order by nev" 'Set Lista=cnnSearch.Execute(sSQL) 'Do While Not lista.Eof 'if session("szuro_katalogus")=cstr(lista("g_kat_ev"))+cstr(lista("g_kat_jel")) then ' szuro_katalogus_nev=lista("nev") 'end if 'lista.movenext 'loop szuro_katalogus_nev="" if szuro_katalogus="" or szuro_katalogus="Minden" then else ssql="select * from g_kat where (g_kat_ev + g_kat_jel) = '" + szuro_katalogus + "'" shsql(ssql) shsql("menutop_cs2.asp") Set Lista=cnnSearch.Execute(sSQL) if not lista.eof then ' if Session("LANG1")="HUN" then szuro_katalogus_nev=lista("web_nev") ' else ' szuro_katalogus_nev=lista("web_nev_en") ' end if end if end if 'shsql(szuro_katalogus_nev) %>

/html/HUN_kapcsolat.htm');" class="subcat" style="color:<%=color_f%>"><%=mtxt_informacio%>

<% ' k1=Kosar k1="Reklámajándék kosár" if Session("KOSAR_MAX2")>"0" then k1=k1+" ("+ Session("KOSAR_MAX2")+ ")" end if k1_onclick= " onclick=""navigate_kosar();"" " if (menu_top_act="T" or menu_top_act="A" ) then 'ilyenkor edit mezőbe megy, hogy a kosárban levő darabszám módosítható legyen %> <% else %> <% end if %>

> <%=k1%>

<% if ((menu_top_act="T" or menu_top_act="A") and kellszuro<>0) then %>

<% s=Szuro_Keszlet if Szuro_KeszletTipus="R" then s=s+" ("+Szuro_KeszletHet+het+")" end if if Szuro_Minta="1" then if len(s)>0 then s=s+"," end if s=s+minta end if %>

<%=cikkszam_nev%>

Készlet

<% s="" if (Szuro_ArMin="") and (Szuro_ArMax="") then s=" " else s=Szuro_ArMin & "-" & Szuro_ArMax & " " & DevJel end if %> <% if Session("ARSZURO")="1" then %>

<%=ar%>

<% end if %>

<%=Egyeb%>
<% if Session("ARSZURO")<>"1" then %><%else%><%end if%>

<% end if %>