Slette databaseresultater
Jeg sidder lige og roder med at slette data i en databse, men det lykkes ikke rigtigt.Jeg har lavet en slette formular der ser sådan ud.
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<title>Slet blinktekst</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb")
strSQL= "SELECT * FROM tblblinknyhed"
Set rs = Conn.Execute(strSQL)
%>
<table border="1" cellspacing="1" width="100%">
<tr>
<td width="9%" align="center"><font size="2">Slet</font></td>
<td width="9%" align="center"><font size="2">Nyheds nr</font></td>
<td width="16%" align="center"><font size="2">Tekst</font></td>
</tr>
<%
DO WHILE NOT rs.EOF
BlinkNyhednr = rs("BlinkNyhednr")
BlinkTekst = rs("BlinkTekst")
%>
<tr>
<td width="9%" align="center"><font size="2"><a href="blinktekstslet.asp?BlinkNyhednr=<%=BlinkNyhednr%>">Slet</font></td>
<td width="9%" align="center"><font size="2"><%=BlinkNyhednr%> </font></td>
<td width="16%" align="center"><font size="2"><%=BlinkTekst%> </font></td>
</tr>
<%
rs.MoveNext
LOOP
RS.Close
Response.Write ""
Conn.Close
Set Conn=Nothing
%>
</table>
</body>
</html>
Og en slette funktion der ser sådan ud.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb")
strSQL= "Delete * From tblblinknyhed WHERE BlinkNyhednr="& Request("BlinkNyhednr")"
Set rs = Conn.Execute(strSQL)
Conn.Close
Set Conn=Nothing
%>
Men jeg har ikke kunnet få det til at virke.
Jeg har prøvet lidt af hvert hvad angår sqæ delete delen, men det er ikke værd at skrive om her. Måske nogen kan se hvad der er galt.
Håber det i hvertfald
