<% dim slet slet=Trim(request.form("slet")) if request.form("sletbo")="sl" then dim cn,cnstr Set cn = Server.CreateObject("ADODB.Connection") cnstr="provider=microsoft.jet.oledb.4.0;" cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;" cn.connectionstring=cnstr cn.Open dim sql sql="delete from data where id="& slet cn.execute sql cn.close set cn=nothing else response.redirect"redigere.asp?id="& slet end if %> <html> <body background="baggrund.jpg"> navnet er slettet<br> <a href="gestebog.html"><img src="tilbage2.gif"></a> </body> </html>