Unnamed

<!--#include file="top1.asp"-->
    <script type="text/javascript" src="scripts/editor.js"></script>
  </head>
  
  <%
  action = request.querystring("action")
  
  if action = "post" then
    response.write("<body onload='aktiver()'>")
  elseif action = "edit" then
    response.write("<body onload='aktiver()'>")
  else
    response.write("<body>")
  end if
  %>
    <!--#include file="top2.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="checklogin.asp"-->
<% 

' settings: [begin]

' set the documentname:
docName = "artikler.asp"

' set the owner table name in the database:
ownerTName = "artikler"

' set the normal table name in the database:
normalTName = "underartikler"

' settings: [end]


' script: [begin]

action = request.querystring("action")
id = request.querystring("id")

if not id = "" then
  sqlcheck = "select * from " & ownerTName & " where id = " & id
  set rscheck = conn.execute(sqlcheck)
  
  if rscheck.eof then
    response.redirect(docName)
  end if
end if

function ret(str)
  retstr = replace(str,VbCrLf,"")
  retstr = replace(retstr,"<BR>","<br />")
  retstr = replace(retstr,"<DIV>","<div>")
  retstr = replace(retstr,"</DIV>","</div>")
  retstr = replace(retstr,"<P>","<p>")
  retstr = replace(retstr,"</P>","</p>")
  retstr = replace(retstr,"<STRONG>","<b>")
  retstr = replace(retstr,"</STRONG>","</b>")
  retstr = replace(retstr,"<B>","<b>")
  retstr = replace(retstr,"</B>","</b>")
  retstr = replace(retstr,"<EM>","<i>")
  retstr = replace(retstr,"</EM>","</i>")
  retstr = replace(retstr,"<I>","<i>")
  retstr = replace(retstr,"</I>","</i>")
  retstr = replace(retstr,"<U>","<span style='border-bottom: solid 1px;'>")
  retstr = replace(retstr,"</U>","</span>")
  retstr = replace(retstr,"<SUP>","<sup>")
  retstr = replace(retstr,"</SUP>","</sup>")
  retstr = replace(retstr,"<SUB>","<sub>")
  retstr = replace(retstr,"</SUB>","</sub>")
  retstr = replace(retstr,"<P align=left>","<p style='text-align: left;'>")
  retstr = replace(retstr,"<P align=center>","<p style='text-align: center;'>")
  retstr = replace(retstr,"<P align=right>","<p style='text-align: right;'>")
  retstr = replace(retstr,"<DIV align=left>","<p style='text-align: left;'>")
  retstr = replace(retstr,"<DIV align=center>","<p style='text-align: center;'>")
  retstr = replace(retstr,"<DIV align=right>","<p style='text-align: right;'>")
  retstr = replace(retstr,"<A ","<a ")
  retstr = replace(retstr,"</A>","</a>")
  retstr = replace(retstr,"'","''")
  ret = retstr
end function

if action = "input" then
  sql = "select * from " & ownerTName & " where id = " & id
  set rs = conn.execute(sql)
  
  tekst = rs("tekst")
  
  response.clear
  response.write(tekst)
  response.end
elseif action = "post" then
  response.write("<h1>Tilføj ny artikel</h1>")
  response.write("<form name='formen' method='post' action='" & docName & "?action=posted' onsubmit='send()'>")
  response.write("Skal artiklen vises: <input name='vis' type='checkbox' checked='checked' style='background: none; border: 0px;' /><br /><br />")
  response.write("Overskrift (Maksimum 15 tegn):<br />")
  response.write("<input name='overskrift' type='text' value='" & overskrift & "' style='width: 568px;' /><br /><br />")
  response.write("Beskrivelse:<br />")
  response.write("<input name='beskrivelse' type='text' value='" & beskrivelse & "' style='width: 568px;' /><br /><br />")
  response.write("Indhold:<br />")
  response.write("<div class='editarea' style='text-align: center; width: 568px;'>")
  response.write("<img class='imgnoborder' src='../img/editor/fed.gif' onclick='fed()' alt='Fed' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/kursiv.gif' onclick='kursiv()' alt='Kursiv' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/understreget.gif' onclick='understreget()' alt='Understreget' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/haevet.gif' onclick='haevet()' alt='Hævet skrift' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/saenket.gif' onclick='saenket()' alt='Sænket skrift' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/venstre.gif' onclick='venstre()' alt='Venstre justér' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/centrer.gif' onclick='centrer()' alt='Centrér' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/hoejre.gif' onclick='hoejre()' alt='Højre justér' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/billede.gif' onclick='billede()' alt='Indsæt billede' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/link.gif' onclick='link()' alt='Indsæt link' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/klip.gif' onclick='klip()' alt='Klip tekst' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/kopier.gif' onclick='kopier()' alt='Kopier tekst' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/saetind.gif' onclick='saetind()' alt='Indsæt tekst' />")
  response.write("<iframe id='editor' src='' frameborder='0' style='width: 571px; height: 400px;'></iframe>")
  response.write("<input type='hidden' value='' name='editorinput'>")
  response.write("</div>")
  response.write("<input type='submit' value='Tilføj artikel' style='width: 576px;' />")
  response.write("</form>")
elseif action = "posted" then
  alternativid = 0
  overskrift = ret(request.form("overskrift"))
  beskrivelse = ret(request.form("beskrivelse"))
  tekst = ret(request.form("editorinput"))
  vis = request.form("vis")
  dato = date()
  tid = time()
  
  if vis = "on" then
    vis = "Ja"
  else
    vis = "Nej"
  end if
  
  sql = "insert into " & ownerTName & " (alternativid, overskrift, beskrivelse, tekst, vis, dato, tid) values (" & alternativid & ", '" & overskrift & "', '" & beskrivelse & "', '" & tekst & "', '" & vis & "', '" & dato & "', '" & tid & "')"
  conn.execute(sql)
  
  sql = "select * from " & ownerTName & " where alternativid = " & alternativid
  set rs = conn.execute(sql)
  
  id = rs("id")
  alternativid = id
  
  sql = "update " & ownerTName & " set alternativid = '" & alternativid & "' where id = " & id
  conn.execute(sql)
  
  conn.close
  set conn = nothing
  
  response.redirect(docName)
elseif action = "edit" then
  sql = "select * from " & ownerTName & " where id = " & id
  set rs = conn.execute(sql)
  
  id = rs("id")
  overskrift = rs("overskrift")
  beskrivelse = rs("beskrivelse")
  tekst = rs("tekst")
  vis = rs("vis")
  tid = rs("tid")
  dato = rs("dato")
  
  if vis = "Ja" then
    vis = "checked='checked'"
  else
    vis = ""
  end if
  
  response.write("<h1>Rediger artikel</h1>")
  response.write("NB: Artiklen blev sidst redigeret den " & dato & " klokken " & tid & ".<br />")
  response.write("<form name='formen' method='post' action='" & docName & "?action=edited&amp;id=" & id & "' onsubmit='send()'>")
  response.write("Skal artiklen vises: <input name='vis' type='checkbox' " & vis & " style='background: none; border: 0px;' /><br /><br />")
  response.write("Overskrift (Maksimum 15 tegn):<br />")
  response.write("<input name='overskrift' type='text' value='" & overskrift & "' style='width: 568px;' /><br /><br />")
  response.write("Beskrivelse:<br />")
  response.write("<input name='beskrivelse' type='text' value='" & beskrivelse & "' style='width: 568px;' /><br /><br />")
  response.write("Indhold:<br />")
  response.write("<div class='editarea' style='text-align: center; width: 568px;'>")
  response.write("<img class='imgnoborder' src='../img/editor/fed.gif' onclick='fed()' alt='Fed' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/kursiv.gif' onclick='kursiv()' alt='Kursiv' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/understreget.gif' onclick='understreget()' alt='Understreget' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/haevet.gif' onclick='haevet()' alt='Hævet skrift' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/saenket.gif' onclick='saenket()' alt='Sænket skrift' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/venstre.gif' onclick='venstre()' alt='Venstre justér' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/centrer.gif' onclick='centrer()' alt='Centrér' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/hoejre.gif' onclick='hoejre()' alt='Højre justér' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/billede.gif' onclick='billede()' alt='Indsæt billede' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/link.gif' onclick='link()' alt='Indsæt link' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/klip.gif' onclick='klip()' alt='Klip tekst' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/kopier.gif' onclick='kopier()' alt='Kopier tekst' />&nbsp;")
  response.write("<img class='imgnoborder' src='../img/editor/saetind.gif' onclick='saetind()' alt='Indsæt tekst' />")
  response.write("<iframe id='editor' src='" & docName & "?action=input&amp;id=" & id & "' frameborder='0' style='width: 571px; height: 400px;'></iframe>")
  response.write("<input type='hidden' value='' name='editorinput'>")
  response.write("</div>")
  response.write("<input type='submit' value='Rediger artikel' style='width: 576px;' />")
  response.write("</form>")
  
  conn.close
  set conn = nothing
elseif action = "edited" then
  overskrift = ret(request.form("overskrift"))
  beskrivelse = ret(request.form("beskrivelse"))
  tekst = ret(request.form("editorinput"))
  vis = request.form("vis")
  dato = date()
  tid = time()
  
  if vis = "on" then
    vis = "Ja"
  else
    vis = "Nej"
  end if
  
  sql = "update " & ownerTName & " set overskrift = '" & overskrift & "' , beskrivelse = '" & beskrivelse & "' , tekst = '" & tekst & "' , vis = '" & vis & "' , dato = '" & dato & "' , tid = '" & tid & "' where id = " & id
  conn.execute(sql)
  
  conn.close
  set conn = nothing
  
  response.redirect(docName)
elseif action = "delete" then
  sql = "select * from " & ownerTName & " where id = " & id
  set rs = conn.execute(sql)
  
  overskrift = rs("overskrift")
  
  sql = "delete from " & normalTName & " where ejer = '" & overskrift & "'"
  conn.execute(sql)
  
  sql = "delete from " & ownerTName & " where id = " & id
  conn.execute(sql)
  
  conn.close
  set conn = nothing
  
  response.redirect(request.servervariables("http_referer"))
elseif action = "up" then
  if id = "" then
    response.redirect(docName)
  end if
  
  sql = "select * from " & ownerTName & " order by alternativid"
  set rs = conn.execute(sql)
  
  if rs.eof then
    response.redirect(docName)
  else
    arrlist = ""
    do until rs.eof
      arrlist = arrlist & rs("alternativid") & ":"
    rs.movenext
    loop
    arr = split(arrlist, ":")
    
    for i = 0 to ubound(arr)
      if arr(i) = id then
        if i = lbound(arr) then
          response.redirect(docName)
        else
          alternativid = cLng(arr(i - 1))
        end if
      end if
    next
    
    sql = "select * from " & ownerTName & " where alternativid = " & alternativid
    set rs = conn.execute(sql)
    
    realid = rs("id")
    
    sql = "update " & ownerTName & " set alternativid = " & alternativid & " where alternativid = " & id
    conn.execute(sql)
    
    sql = "update " & ownerTName & " set alternativid = " & id & " where id = " & realid
    conn.execute(sql)
    
    response.redirect(request.servervariables("http_referer"))
  end if
elseif action = "down" then
  if id = "" then
    response.redirect(docName)
  end if
  
  sql = "select * from " & ownerTName & " order by alternativid"
  set rs = conn.execute(sql)
  
  if rs.eof then
    response.redirect(docName)
  else
    arrlist = ""
    do until rs.eof
      arrlist = arrlist & rs("alternativid") & ":"
    rs.movenext
    loop
    arr = split(arrlist, ":")
    
    for i = 0 to ubound(arr)
      if arr(i) = id then
        if i + 1 = ubound(arr) then
          response.redirect(docName)
        else
          alternativid = arr(i + 1)
        end if
      end if
    next
    
    sql = "select * from " & ownerTName & " where alternativid = " & alternativid
    set rs = conn.execute(sql)
    
    realid = rs("id")
    
    sql = "update " & ownerTName & " set alternativid = " & alternativid & " where alternativid = " & id
    conn.execute(sql)
    
    sql = "update " & ownerTName & " set alternativid = " & id & " where id = " & realid
    conn.execute(sql)
    
    response.redirect(request.servervariables("http_referer"))
  end if
else
  sql = "select * from " & ownerTName & " order by alternativid"
  set rs = conn.execute(sql)
  
  response.write("<h1>Artikler</h1>")
  response.write("Nedenfor står listet alle nuværende artikler.<br />")
  response.write("NB:<br />")
  response.write("Tryk på 'Tilføj ny' under listen for at oprette en ny artikel.<br />")
  response.write("Slettes en artikel, slettes alle tilhørende underartikler!<br />")
  response.write("- Disse er listet under 'Underartikler' i menuen.<br /><br />")
  response.write("<table style='width: 100%; border-collapse: collapse;'>")
  response.write("<tr>")
  response.write("<td style='width: 49%'><b>Overskrift:</b></td>")
  response.write("<td style='width: 17%; text-align: center;'><b>Funktion:</b></td>")
  response.write("<td style='width: 17%; text-align: center;'><b>Vis:</b></td>")
  response.write("<td style='width: 17%; text-align: center;'><b>Rækkefølge:</b></td>")
  response.write("</tr>")
  if rs.eof then
    response.write("<tr>")
    response.write("<td style='width: 49%'>Der er ingen tilføjede artikler.</td>")
    response.write("<td style='width: 17%; text-align: center;'></td>")
    response.write("<td style='width: 17%; text-align: center;'></td>")
    response.write("<td style='width: 17%; text-align: center;'></td>")
    response.write("</tr>")
  else
    do until rs.eof
      overskrift = rs("overskrift")
      id = rs("id")
      alternativid = rs("alternativid")
      vis = rs("vis")
      response.write("<tr>")
      response.write("<td style='width: 49%'>" & overskrift & "</td>")
      response.write("<td style='width: 17%; text-align: center;'><a href='" & docName & "?action=edit&amp;id=" & id & "'>Rediger</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='" & docName & "?action=delete&amp;id=" & id & "'>Slet</a></td>")
      response.write("<td style='width: 17%; text-align: center;'>" & vis & "</td>")
      response.write("<td style='width: 17%; text-align: center;'><a href='" & docName & "?action=up&amp;id=" & alternativid & "'>Op</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='" & docName & "?action=down&amp;id=" & alternativid & "'>Ned</a></td>")
      response.write("</tr>")
    rs.movenext
    loop
  end if
  response.write("</table><br />")
  response.write("<a href='" & docName & "?action=post'><b>&raquo; Tilføj ny</a></b>")

  conn.close
  set conn = nothing
end if

' script: [end]

%>
<!--#include file="bund.asp"-->