problem med delete

Vad är det för fel med den här delete-satsen?

<!-- #include file="../Include/inc/conn.inc" -->

<%
Dim RS
Dim SQL
Dim Conn

set conn = Server.CreateObject("ADODB.Connection")

SQL = "DELETE FROM kontakt WHERE ID =" & Request.Querystring("ID") & ""

conn.Open connstr
Set RS = conn.Execute(SQL)

RS.Delete

RS.Close 
conn.Close

response.redirect "mail_read.asp"
%>

Du har en del onödig kod

<!-- #include file="../Include/inc/conn.inc" -->

<%
Dim SQL
Dim Conn

set conn = Server.CreateObject("ADODB.Connection")

SQL = "DELETE FROM kontakt WHERE ID =" & Request.Querystring("ID") 

conn.Open connstr
conn.Execute  sql
conn.Close

response.redirect "mail_read.asp"
%>