<%session("adminmode") = adminmode sidenavn = Request.QueryString("page") if trim(" " & sidenavn) = "" Then if trim(" " & session("sidenavn")) = "" then sidenavn = "main" else sidenavn = session("sidenavn") end if end if session("sidenavn") = sidenavn sprog = trim(" " & Request.QueryString("la")) if trim(" " & sprog) = "" Then if trim(" " & session("la")) = "" then sprog = "dk" else sprog = session("la") end if end if session("la") = sprog la = sprog la = Request.QueryString("la") Set cnT = Server.CreateObject("ADODB.Connection") Set rsT = Server.CreateObject("ADODB.RecordSet") cnT.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/db/db.mdb") SQLT = "SELECT sider.* FROM sider " SQLT = SQLT & "WHERE (((sider.side)='"& sidenavn & "') AND ((sider.sprog)='" & sprog & "')) " SQLT = SQLT & "ORDER BY sider.element DESC;" rsT.Open SQLT, cnT if rsT.EOF then rsT.Close SQL = "INSERT INTO sider ( side, sprog, element, txt, skjul ) SELECT " SQL = SQL & "'"& sidenavn & "', " 'side SQL = SQL & "'" & sprog & "' , " 'sprog SQL = SQL & "1 , " 'element SQL = SQL & "'..' , " 'txt SQL = SQL & "False;" 'skjul rsT.Open SQL,cnT, 1, 3 rsT.Open SQLT, cnT end if I = rsT("element") ReDim txt(I) do while not rsT.EOF txt(rsT("element")) = rsT("txt") rsT.MoveNext loop rsT.Close Set rsT = Nothing %>