simpel if eof ting.

hvad er det du gerne vil?
Du vil gerne slette mailadressen i databasen - er det korrekt?

cnMenu.open "SELECT * FROM list WHERE mail = '"& request("email") &"'")
if cnMenu.eof then
  response.write "Mailen findes ikke i databasen"
else
  while not cnMenu.eof
  cnMenu.delete
  wend
  response.redirect "edit.asp?deleted="& request("email")
end if

Kan gøres med færre linjer....

cnMenu.open "SELECT * FROM list WHERE mail = '"& request("email") &"'")
if cnMenu.eof then
  response.write "Mailen findes ikke i databasen"
else
  cnMenu.open "delete FROM list WHERE mail = '"& request("email") &"'")
  response.redirect "edit.asp?deleted="& request("email")
end if

ja jeg vil gerne først tjekke om posten overhovedet findes i databasen,, hvis den gør slet den hvis ikke skriv den ik findes.

hmm.. der står ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

tror dt cnMenu.open "delete FROM list WHERE mail = '"& request("email") &"'")
der ikke dur når CnMenu allerede er åben.

2sec.. det vidst mig der en ged

Set cnMenu = Server.CreateObject("ADODB.Connection")
    cnMenu.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("opdateringer.mdb")
cnMenu.open "SELECT * FROM list WHERE mail = '"& request("email") &"'"
if cnMenu.eof then
  response.write "Mailen findes ikke i databasen"
else
  while not cnMenu.eof
  cnMenu.delete
  wend
  response.redirect "edit.asp?deleted="& request("email")
end if



får fejlen:
Operation is not allowed when the object is open.

der bliver peget på linien:
cnMenu.open "SELECT * FROM list WHERE mail = '"& request("email") &"'"

Det er noget kode tidligere, der gør det. Kan du ikke lige vise den også???

Set cnMenu = Server.CreateObject("ADODB.Connection")
    cnMenu.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("opdateringer.mdb")
cnMenu.execute("SELECT * FROM list WHERE mail = '"& request("email") &"'")
if cnMenu.eof then
  response.write "Mailen findes ikke i databasen"
else
  while not cnMenu.eof
  cnMenu.execute("delete * FROM list WHERE mail = '"& request("email") &"'")
  wend
  response.redirect "edit.asp?deleted="& request("email")
end if

slut lige af med

cnmenu.close
set cnmenu = nothing

jeg tror du har fat i noget.. men:

ADODB.Connection error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/soren/edit.asp, line 8 (if cnMenu.eof then)

Det skal være:

set rs = cnMenu.execute("SELECT * FROM list WHERE mail = '"& request("email") &"'")
if rs.eof then

istedet for:
cnMenu.execute("SELECT * FROM list WHERE mail = '"& request("email") &"'")
if cnMenu.eof then

og så skal det vel være
if rs.bof and rs.eof then

hva betyder bof?

beginning of file......
hvis resultatsættet både er starten og slutningen er det tomt.
hvis du kun tester på slutningen, vil der jo altid være en slutning uanset om der er en record eller ej.

ah tak. Så det skal se sådan her ud:

skal slutningen være:

while not rs.eof eller bof?

smid et svar begge to.

Der behøver slet ikke være en WHILE:

Set cnMenu = Server.CreateObject("ADODB.Connection")
cnMenu.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("opdateringer.mdb")
set rs = cnMenu.execute("SELECT * FROM list WHERE mail = '"& request("email") &"'")
if rs.eof then
  response.write "Mailen findes ikke i databasen"
else
  cnMenu.execute("delete * FROM list WHERE mail = '"& request("email") &"'")
  response.redirect "edit.asp?deleted="& request("email")
end if

mange tak.. Undskyld de få point. Havde troet det krævede lidt mindre arbejde.