","
")
retstr = replace(retstr,"","")
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("
Tilføj ny artikel
")
response.write("
")
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("
Rediger artikel
")
response.write("NB: Artiklen blev sidst redigeret den " & dato & " klokken " & tid & ".
")
response.write("
")
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("
Artikler
")
response.write("Nedenfor står listet alle nuværende artikler.
")
response.write("NB:
")
response.write("Tryk på 'Tilføj ny' under listen for at oprette en ny artikel.
")
response.write("Slettes en artikel, slettes alle tilhørende underartikler!
")
response.write("- Disse er listet under 'Underartikler' i menuen.
")
response.write("
")
response.write("")
response.write("| Overskrift: | ")
response.write("Funktion: | ")
response.write("Vis: | ")
response.write("Rækkefølge: | ")
response.write("
")
if rs.eof then
response.write("")
response.write("| Der er ingen tilføjede artikler. | ")
response.write(" | ")
response.write(" | ")
response.write(" | ")
response.write("
")
else
do until rs.eof
overskrift = rs("overskrift")
id = rs("id")
alternativid = rs("alternativid")
vis = rs("vis")
response.write("")
response.write("| " & overskrift & " | ")
response.write("Rediger Slet | ")
response.write("" & vis & " | ")
response.write("Op Ned | ")
response.write("
")
rs.movenext
loop
end if
response.write("
")
response.write("
» Tilføj ny")
conn.close
set conn = nothing
end if
' script: [end]
%>