Hvordan slettes et ID, fra en liste?

Skal vi være søde? :)

Ok.... why not

Naar du udskriver vaeriderne kan du tilfoeje en enkelt linie ekstra:
Response.write("<a href="slet.asp?uid="& Rs("id") &">Slet indlaeg</a><br>")

Paa din slet side.asp kan du slette indlaeget paa foelgende maade:
<%
[Din db connection]

Sql = "DELETE * FROM Nyhed WHERE Id = " & Request.QueryString("uid")

Conn.Execute(Sql)

[Lukke forbindelsen til db'en ned igen]

%>

Det skal siges at dette er en meget simpel maade at loese det paa og den indeholder en del huller som der boer tages haand om:
- Der boer testes paa om personen har ret til at slette et indlaeg, f.eks. en session variabel som indholder en vaerdi for en administrator
- Man boer teste paa det input som brugeren sender. Hvis brugeren aendre en smule paa querystringen kan man lave nogle lidt sjove ting.

<html>
<title>Oversigt</title>
<head>
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/sif/nyhed.mdb")
Conn.Open DSN

' Checker om vi skal slette en post
If Request.QueryString("action") = "delete" Then

    ' Sørger for vi ikke får uindbydne gæster
    intId = Request.QueryString("id")
    intId = Replace(intId,"'","''")

    ' Sletter * fra ID
    Conn.Execute("DELETE * FROM Nyhed WHERE ID = " & intId))
   
    ' Når vi har slettet redirectes vi tilbage til "hovedsiden"
    Response.Redirect Request.ServerVariables("SCRIPT_NAME")

' Hvis vi ikke skal slette skal vi....
Else

    ' Udfør SQL sætning (rs indeholder nu resultatet)
    Set RS = Conn.Execute("Select * FROM Nyhed" )

    ' Gennemløb Recordsset (rs) med en løkke
    Do While Not RS.EOF

        ' Udskriv værdien
        Response.Write "<I>Indlæg nr.: </I>" & RS("Id") & "<br>"
        Response.Write "<dt><I>oprettet d. </I></dt>" & RS("Dato") & "<br>"
        Response.write RS("Afdeling") & "<br>"
        Response.Write RS("Overskrift") & "<br>"
        Response.Write RS("Beskrivelse") & "<br>"
        Response.Write "<a href=""?action=delete&id=" & RS("Id") & """>Slet " & RS("Id") & " fra databasen<br><br>"

    ' Gå til næste Record i rs
    RS.MoveNext

    ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
    Loop

End If

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Virus> Kanon, det fungerer som det skal - mange tak for hjælpen