<% 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("LANGUAGEImgDB") = "UK" ' Else ' session("LANGUAGEImgDB") = lang ' End If ' RS.Close: Set RS = Nothing ' 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>