Det er rigtigt.
Jeg har arbejdet med denne:
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "
http://www.w3.org/TR/html4/strict.dtd"><html>
<head>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Form</title>
</head>
<body>
<TABLE>
<TR>
<form method="post" >
<TR>
<TD>
Slet LinkID nr
</TD>
<TD>
<input type="text" name="slet" SIZE="5" >
<input type="submit">
</TD>
</TR>
</form>
<TR>
<TD>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("DBKNLink.mdb")
Conn.Open DSN
' Udskriver liste over links på brugerfladen sammen med formen
strSQL = "Select * From DBKNLink Order by LinkID Desc"
Set rs = Conn.Execute(strSQL)
Response.Write "<p>Regitrerede link. For at slette skal ID nummeret angvives </p>"
Do
strNavn = rs("LinkNavn")
strAdresse = rs("LinkAdresse")
strLinkID = rs("LinkID")
Response.Write "<p> ID nummer:" & strLinkID & " Link: " & strNavn & "</p>"
%>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</TD>
<TD>
<%
' Sletter poster i DB efter LinkID er indtastet i formen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("DBKNLink.mdb")
Conn.Open DSN
strSlet = Request.Form("slet")
strSQL = "Delete from DBKNLink where Id = " & strSlet
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Record er slettet!</h1>
</TR>
</TD>
</TR>
</TR>
</TABLE>
</body>
</html>
Men uanset hvad p..... jeg laver fungere det ikke.
Det er denne:
strSlet = Request.Form("slet")
strSQL = "Delete from DBKNLink where Id = " & strSlet
Conn.Execute(strSQL)
som hele tiden driller hvad enten jeg gør det ene eller andet.
