Slette record i access via link i email ?

Du kan send et link med hvor du har email og id i linket.:

<a href="http://www.site.dk/maillist/sletmail.asp?id=xxx&email=yy@eee.dk">Slet mig fra listen</a>


I din slet mail kan du lave en DELETE SQL:

id = Request("ID")
email = Request("email")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open databaseConnStr

SQL = "DELETE FROM maillist WHERE ID=" & id & " AND email = '" & email & "'"
Conn.Execute(SQL)

Response.write "Du er nu slettet fra maillisten"

Tak, det er super !
Du ved vel ikke tilfældigvis også hvordan jeg i Word får lavet linket så felterne id og email kommer med deri. Når jeg prøver udelader den dem bare.

Kan man evt lave det sådan at hvis folk prøver linket en gang til at den så blot skriver at oplysningerne allerede er slettet.

Ja det kan man, evt ved at tjekke på om de findes inden man sletter:


id = Request("ID")
email = Request("email")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open databaseConnStr

SQL = "SELECT id FROM maillist WHERE ID=" & id & " AND email = '" & email & "'"
Set rs = Conn.Execute(SQL)
if rs.EOF then
  Response.write "Oplysningerne er allerede slettet"
else
  SQL = "DELETE FROM maillist WHERE ID=" & id & " AND email = '" & email & "'"
  Conn.Execute(SQL)
  Response.write "Du er nu slettet fra maillisten"
end if


Det første omkrign word ved jeg faktisk ikke hvordan du går lavet.