<% if Session("START_GIFTON.HU") <> 1 then %> <% Session("Szuro_Width")=1024 Session("Szuro_Height")=768 Session("Szuro_Kep")=200 Session("START_GOLDING.HU")=0 Session("START_GIFTON.HU")=1 end if %> <% sLang=Session("LANG1") Session("AKTABLAK")="F" lap = CStr(Request.QueryString("lap")) if lap<>"" then Session("MENU_BAL_UTOLSO")= lap ' a menu_bal ezt fogja megnyitni! else Session("MENU_BAL_UTOLSO")= "" ' default, de így nem emlékszik az utolsóra! end if ' 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("VISITOR_COUNTED")<>"YES" then strSQL = "update gold_param set akt_ertek=akt_ertek+1 where param_nev='COUNTER"+cstr(Session("VISZONTELADOID")) + "' " Set Lista=cnnSearch.Execute(strSQL) Session("VISITOR_COUNTED")="YES" end if if request.querystring("p")="" then p="../"+Session("SITEDIR")+"/html/"+sLang+"_kapcsolat.htm" else if instr(request.querystring("p"),"./")>0 then p=cstr(request.querystring("p")) else p="../"+cstr(request.querystring("p")) end if end if 'response.write p %> <% if session("HEAD")="CS" then %> <% end if %>

<% server.execute("menu.asp") %>
<% server.execute("menu_bal.asp") %> <% server.execute(p) %>