<% Option Explicit %>
<%
Dim lang, SQL, RS, SERVER_NAME
Dim id
id = Request.QueryString("id")
lang = Request.QueryString("lang")
If lang <> "" Then
SQL = "SELECT * FROM " & TBL_PREFIX & "_language WHERE fld_language = '" & lang & "';"
Set RS = Conn.Execute(SQL)
' Om inget språk valts, så används Svenska som default.
If RS.EOF Then
session("LANGUAGE") = "SE"
Else
' If RS("fld_active") = 0 Then
' session("LANGUAGE") = "SE"
' Else
session("LANGUAGE") = lang
' End If
End If
RS.Close: Set RS = Nothing
Else
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
SERVER_NAME = Right(SERVER_NAME, Len(SERVER_NAME)-InStrRev(SERVER_NAME, "."))
Select Case LCase(SERVER_NAME)
Case "se"
session("LANGUAGE") = "SE"
' Case "fi"
' session("LANGUAGE") = "FI"
Case Else
session("LANGUAGE") = "UK"
End Select
End If
%>
Calix AB
"" Then Response.Write("onLoad=""javascript:window.frames['menu'].location.href='menu.asp?id=" & id & "';window.frames['main'].location.href='page.asp?id=" & id & "';""") End If %>>
<![CDATA[<body>
</body>]]>