<%
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>€ - Script error.</P>"
elseif conn.errors.count> 0 then
response.write "<p>Attention!</P>"
response.write "<p>Fill all fields!!!</P>"
Else
response.write "<p>Ok data deleted!!!!</p>"
End if
conn.Close
%>