%
set rs=server.createobject("ADODB.Recordset")
if request.form("verwijder") = "Delete" then
rs.open "Berichten",strCon ,adOpenStatic,adLockOptimistic,adCmdTable
rs.filter=makefilter("bericht_id",request.form)
rs.movefirst
if trim(makefilter("bericht_id",request.form)) <> "" then
do while not rs.eof
rs.Delete
rs.movenext
loop
end if
rs.close
response.redirect "berichten.asp"
End if
%>
Beheer berichten
Beheer berichten
<%
sorteren=request("sorteren")
if sorteren="" then
SQL="select bericht_id, naam, email, website, bericht, datum from berichten order by datum DESC, bericht_id DESC"
else
SQL="select bericht_id, naam, email, website, bericht, datum from berichten order by " & sorteren
end if
showblank=" "
shownull=" "
'set objCon=server.createobject("adodb.connection")
'objCon.open strCon
'set objRec=objCon.execute(SQL)
set objRec = server.createobject("adodb.recordset")
objRec.open SQL,strCon, adopenkeyset, adlockoptimistic
If objRec.eof then
response.write "Geen berichten gevonden! "
response.write " Terug"
Call SluitAlles
response.end
end if
If request.querystring("id") = "" or request.form("action") = "del" Then
response.write(" ")
Else
idedit=request.querystring("id")
response.write("Het record NR "&idedit&" is gewijzigd
")
End if
AlleData=objRec.getrows
Call SluitAlles
%>
Gesorteerd op: <%= sorteren %>
Klik op delete om de geselecteerde records te verwijderen!
Terug
<%
' ************* Het verwijderen van de onderstaande informatie is niet toegestaan!!!**********************
response.write "
"
' ********************************************************************************************************
%>
<%
SUB SluitAlles
objRec.close
set objRec=nothing
'objCon.close
set objCon=nothing
END SUB
function makefilter(veldnaam,invoer)
dim filtervalue, elem
filtervalue=""
for each elem in invoer
if invoer(elem)="on" then
if len(filtervalue)=0 then
filtervalue=veldnaam&"="&elem
else
filtervalue=filtervalue&" or "&veldnaam&"="&elem
response.write filtervalue
end if
end if
next
makefilter=filtervalue
end function
%>