<%@LANGUAGE='VBscript'%> <% hid_LOID=request.form("hid_LOID") Dim referer 'stores the refering document Dim CiRestriction 'used in conjunction with the idq file for the index server 'to re-submit the query when changing language referer = lCase(request.servervariables("HTTP_REFERER")) if inStr(referer,"stress_e")then referer = replace(referer,"stress_e","stress_f") elseif inStr(referer,"stress_f")then referer = replace(referer,"stress_f","stress_e") end if if inStr(referer,"hmm-francais")then referer = replace(referer,"hmm-francais","hmm") elseif inStr(referer,"hmm")then referer = replace(referer,"hmm","hmm-francais") end if '''''''check for session language if session("lang") = "E" or session("lang") = "e" then session("lang") = "F" else session("lang") = "E" end if '''''''check for regular urls containing _e and _f if inStr(referer,"_e.") then referer = replace(referer,"_e.","_f.") else referer = replace(referer,"_f.","_e.") end if '''''''check for urls containing .asp that have or don't have parameters to be passed if inStr(referer,".asp") then if inStr(referer,"lang=e") then referer = replace(referer,"lang=e","lang=f") elseif inStr(referer,"lang=f") then referer = replace(referer,"lang=f","lang=e") end if end if response.redirect referer %>