Cancellazione dati

Questo script esegue la cancellazione di dati da un database:

<%
on error resume next
nome = Request.Form("nome")
email = Request.Form("email")
frase = Request.Form("frase")
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "tutorial", "", ""
SQL = "DELETE FROM deleteData "
SQL = SQL & "WHERE nome='" & nome &"' and 
email='" & email &"' and frase='" & frase&" 
'"
rs.Open SQL, conn
If err.number>0 then
response.write "<p>€ - Attenzione, hai commesso un 
errore nello script, controlla e riprova.</P>" 
elseif conn.errors.count> 0 then
response.write "<p>Attenzione!</P>"
response.write "<p>Riempire tutti i campi nella form d'inserimento!!!</P>"
Else
response.write "<p>Ok, i dati sono stati cancellati correttamente!!!!</p>"
End if
conn.Close
%>