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