Her er koden
<!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 ID nr
<input type="text" name=slet SIZE="5" >
<input type="submit" value=slet>
</TD>
</TR>
</form>
</TR>
<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("DBOPSlagsTavle.mdb")
conn.Open DSN
strSQL = "Select * From DBMemo Order by MemID Desc"
Set rs = Conn.Execute(strSQL)
Response.Write "<p>Regitrerede Memo i databasen</p>"
Do
strOverskrift = rs("MemOverskrift")
strTekst = rs("MemTekst")
strForfatter = rs("MemForfatter")
strID = rs("MemID")
Response.Write "<a href=OPFormDel.asp?<P>ID nummer : " & strID & " " & " Overskrift " & strOverskrift & " " & " Forfatter: " & strForfatter & "<BR>"&"</a>"
rs.movenext
loop While Not rs.EOF
st = Request.Form("slet")
Conn.execute("Delete from DBMemo where MemID = " & st)
Conn.Close
Set Conn=nothing
%>
</TD>
</TR>
</TABLE>
</body>
</html>
