<%
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
%>