Hvorfor sletter denne alligevel?

Jeg submitter flg. fra en form som er noget der skal flyttes/slettes fra en tabel til an anden:

<%
On Error Resume Next
if request.servervariables("request_method") = "POST" then
' der er submittet..

dim conn, strConn
strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(".")+"/../db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn


omr = request.form("omr")
byg = request.form("byg")
emne = request.form("emne")
ark = request.form("ark")
ent = request.form("ent")
tilmeldDato = request.form("tilmeldliste-1-Dato")


strSQL = "Insert into liste2(omr,byg,emne,ark,ent,tilmeldDato) values('"& Replace(omr,"'","''") & "','"& Replace(byg,"'","''") & "','"& Replace(emne,"'","''") & "','"& Replace(ark,"'","''") & "','"& Replace(ent,"'","''") & "', '"&tilmeldDato&"')"
SQLslet = "DELETE * FROM liste1 WHERE ID=" & Request("ID")


Conn.Execute(strSQL)
Conn.Execute(SQLslet)

Else
Response.write("")
End If

If Err.Number <> 0 Then 
Response.redirect "fejl.asp" 

Else

response.redirect "tak.asp"

end if

%>

Hvis der ikke bliver skrevet noget i tilmeldDato så smidder den intet i databasen, men sletter det alligevel fra den oprindelige tabel!!

Nogen idéer?

Fomse:-)