har prøvet at bøvle lidt med det nu, men ikke fået det rigtige resultat.
min liste.asp:
<html>
<head>
<title>Personer</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<b>Liste med personer i Databasen</b><br><br>
<div id="liste_strej">
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN
strSQL = "Select * From personer"
Set rs = Conn.Execute(strSQL)
Do
strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"
Response.Write "<div id='liste_nstrej'>" & strLink & ", " & strSlet & "</div>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<hr height=" 1px" Color="Black">
<br><br>
<a href="opret.asp">Opret en ny person</a>
</body>
</html>
min slet.asp:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN
strSQL = "Delete from personer where id=" & rs("Id")
Conn.Execute(strSQL)
Conn.Close
Set rs = Nothing
Response.Redirect "liste.asp"
%>
men så vidt jeg kan forstå sletter den alle posterne når jeg trykker på et af "slet" linksne, hvordan kan det være? :-/
