<% Response.Expires = -1 Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" if session("lang") = "" OR Session("lang") = "GR" then session("lang") = "EN" elseif session("lang") = "EN" then session("lang") = "GR" end if dim page, splitpage, action, finalsplit1, finalsplit2 page = Request.QueryString("page") if page = "" then Response.Redirect("error.asp") end if if instr(page,"?") >0 then 'page = default.asp?id=5 splitpage = Split(page,"?") action = splitpage(0) if instr(page,"_") = 0 then resplitpage = split(splitpage(1),"=") hiddenname1 = resplitpage(0) hiddenvalue1 = resplitpage(1) hiddenname2 = "" hiddenvalue2 = "" else 'page = default.asp?id=5_name=test resplitpage = split(splitpage(1),"_") finalsplit1 = split(resplitpage(0),"=") finalsplit2 = split(resplitpage(1),"=") hiddenname1 = finalsplit1(0) hiddenvalue1 = finalsplit1(1) hiddenname2 = finalsplit2(0) hiddenvalue2 = finalsplit2(1) end if else action = page hiddenname = "" hiddenvalue = "" end if if instr(session("LastNameOnTop"),"Welcome") then session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Welcome", "Καλωσορίσατε") session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Mrs.", "Κα.") session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Mr.", "Κ.") else ' Response.Write "in" session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Καλωσορίσατε", "Welcome") session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Κα.", "Mrs.") session("LastNameOnTop") = Replace(session("LastNameOnTop"),"Κ.", "Mr.") end if %>