<%
on error resume next
URL = Trim(Request("URL"))
RURL = Trim(Request("RURL"))
org_id = Trim(Request("_org_id"))
lid = Trim(Request("_lid"))
st = Trim(Request("st"))
pri_org_id = org_id
' extract primary org_id
i = instr(org_id,",")
if i > 0 then
pri_org_id = Trim(Left(org_id,i-1))
end if
if pri_org_id <> "" then
str_language = Trim(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"))
Pos1 = 1
Pos2 = instr(str_language,",")
do
if lid <> "" or str_language = "" then
exit do
end if
if Pos2 = 0 then
language = Trim(Mid(str_language,Pos1,(len(str_language)-Pos1)+1))
else
language = Trim(Mid(str_language,Pos1,Pos2-Pos1))
end if
Select Case lcase(Left(language,2))
Case "en"
lid = ""
exit do
Case "es"
lid = 1
exit do
Case "fr"
lid = 2
exit do
Case Else
lid = ""
End Select
Pos1 = Pos2 + 1
if Pos2 = 0 then
exit do
end if
Pos2 = instr(Pos1,str_language,",")
loop
if st = "" then
URL = "/" & pri_org_id & "/index" & lid & ".htm"
else
URL = "/" & pri_org_id & "/" & st & "/index" & lid & ".htm"
end if
lvl = 5
elseif RURL <> "" then
lvl = 3
else
lvl = 2
end if
%>
Welcome to Homeseekers, Real Estate Homes for Sale Database.
<![CDATA[
</HEAD>
]]>