Hvis du har sat kryds i flere checkbox, er indholdet vist nok "navn1,navn2,navn3" osv..
Du skal derfor dele dem op, og lave en loop..
Jeg går ud fra, at beskedID er af typen tal.. derfor bruger jeg CInt().. ellers skal der bruges ' tegnet udenom værdien..
f.eks:
dim i, cb, acb, bid, fejl
' i = Integer, en tæller
' cb = CheckBox
' acb = ArrayCheckBox
' bid = BeskedID
' fejl = en variabel der indeholder bid der var fejl ved
cb = request.form("beskedID")
acb = split(request.form("beskedID") ' cb deles op og laves om til et array
fejl = "" ' nulstil fejl-strengen
tblNavn = "INDSÆT NAVNET PÅ TABELLEN HER" ' her indsætter du navnet på tabllen..
' hvis "post" er et reserveret ord, skal det være "[post]".
for i 0 to ubound(acb)
' bid = "'" & acb(i) & "'" ' beskedID er af typen tekst
bid = CInt(acb(i)) ' BeskedID er af typen tal
sql = "select * from " & tblNavn & " where beskedID = " & bid
set rs = Connect.execute(sql)
if not (rs.bof or rs.eof) then
' vi har fundet en post
If rs("slettetAfsender") = true then
Connect.execute ("delete from " & tblNavn & " where beskedID =" & bid)
else
' opdater til "true":
Connect.execute ("update " & tblNavn & " set slettetModtager = true where beskedID = " & bid)
end if
else
' posten blev ikke fundet.. tilføj til beskedID til fejl-strengen
fejl = fejl & bid & "<br>"
end if
set rs = nothing ' muligvis overflødig
next
' luk forbindelserne:
set rs = nothing
connect.close
set connect = nothing
if fejl <> "" then response.write "Følgende beskedID'er kunne ikke findes:<br><br>" & fejl
Dette script er ikke testet..
Hvis du er i tvivl om hvordan select, delete, update virker, se:
http://www.html.dk/tutorials/asp/ (lektionerne 17-22)