<% adminmode = Request.QueryString("admin") if trim(" " & adminmode) = "" and trim(" " & session("adminmode")) <> "" then adminmode = session("adminmode") end if 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") if session("admin") = "yes" and adminmode="yes" then%> <%if session("user") = "demo" then%> <%else%> <%end if%> <% ' 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") %>
?admin=yes&mode=save&la=<%=sprog%>" id=txtform name=txtform method=post> <% if Request.QueryString("mode") = "save" then ' Response.Write "Form: " & Request.Form("txt1") for each item in Request.Form element = item varTekst = Request.form(item) SQLT = "UPDATE sider SET sider.txt = '" & varTekst & "' " SQLT = SQLT & "WHERE (((sider.side)='" & sidenavn & "') AND ((sider.element)=" & element & ") AND sider.sprog = '" & sprog & "');" ' Response.Write SQLT & "
" rsT.Open SQLT, cnT, 1, 3 next end if 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 if adminmode = "yes" then NameId = "id=txt title=" & trim(rsT("element")) txt(rsT("element")) = "
" & rsT("txt") & "
" else txt(rsT("element")) = rsT("txt") end if rsT.MoveNext loop rsT.Close Set rsT = Nothing %> <%else if session("admin") = "yes" then%> Admin <%end if%> <% 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 I = rsT("element") ReDim txt(I) do while not rsT.EOF txt(rsT("element")) = rsT("txt") rsT.MoveNext loop rsT.Close Set rsT = Nothing end if%>