<% 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 %>> <body> </body>