Sletning af data

Jeg er desværre kommet til at slette min kode for hvordan man sletter data fra en database... koden på det først af filen står nedenfor men det sidste mangler,.... HJÆLP...


<%
\'Undersøger om session(\"Adgang\") er sat til Godkendt, er den ikke det bliver man sendt tilbage til adgangskontrol.asp
    If Not Session(\"Adgang\") = \"Godkendt\" Then
        Response.Redirect(\"login.asp?valg=forbudt\")
    End If
%>


<head>
<title></title>
<style type=\"text/css\">
BODY{
  scrollbar-3d-light-color: #669900;
  scrollbar-arrow-color: #000000;
  scrollbar-base-color: #000000;
  scrollbar-dark-shadow-color: #000000;
  scrollbar-face-color: #FFE4A8;
  scrollbar-highlight-color: #ffffff;
  scrollbar-shadow-color: #ffffff;
}
</style>
<style type=\"text/css\">
BODY      {font-family : Verdana;font-size : \"8 pt\" ; color : \"#000000\"}
A          {font-family : Verdana;text-decoration : none;font-size : 8 pt;color : #000000;}
A:Hover    {color : #fff34f;font-family : Verdana;text-decoration : underline ;font-size : 8 pt;}
</style>
</head>


<body bgcolor=\"#FFF5DD\">
<p style=\"margin-top: 0; margin-bottom: 0\" align=\"center\"><font face=\"Verdana\" size=\"2\"><b>VIGTIGT!!</b></font>
<p style=\"margin-top: 0; margin-bottom: 0\"><font face=\"Verdana\" size=\"2\"><b>Når
en lejlighed er slettet kan den ikke fremkaldes igen. For at oprette den
lejlighed igen skal formularen for nye lejligheder udfyldes. Hvis lejligheden
bare er lejet ud anbefales det at deaktivere den i databasen. </b></font><%   

Set    Conn = Server.CreateObject(\"ADODB.Connection\")
\' Her defineres hvilken type database samt hvor der connectes til den (testdatabase.mdb, i samme biblotek).  Lå den i et biblotek oven over skulle der selvfølgelig skrives \"mappe/testdatabase.mdb\" istedet.
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Mappath(\"../../../db/lejligheder.mdb\")
\' Her giver jeg besked på at der skal hentes samlige data fra, tabellen \"Data\"
    SQL = \"SELECT * FROM Lej where brugernavn like \'%\" & Request.Form(\"Username\") & \"%\' and password like \'%\" & Request.Form(\"Password\") & \"%\' \"
    Set RS = Conn.Execute(SQL)
If not rs.eof then
    Do until rs.eof




%>
</p>
<p align=\"left\">&nbsp;<p>




&nbsp;
<div align=\"left\">
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"480\" height=\"16\" id=\"AutoNumber1\" bgcolor=\"#AA9A79\">
    <tr>
      <td width=\"480\" height=\"16\">






<a href=\"slet.asp?funktion=slet&id=<%=RS(\"ID\")%>\">
      <font size=\"1\">Slet lejlighed</font></a><font size=\"1\"> - ID for lejlighed = <%=RS(\"ID\")%>, <%=RS(\"adr\")%>, <%=RS(\"by\")%></font></td>
    </tr>
  </table>
</div>
<p>

<% Rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
end if
%>





<font face=\"Verdana\" size=\"2\">

<a href=\"admbruger.asp\">Tilbage</a></font>