InsDelData

<form action="eliminadati1b.asp" method="POST">
<p>Nome: <input type="text" name="nome" size="20"></p>
<p>Email: <input type="text" name="email" size="20"></p>
<p>Frase: <input type="text" name="frase" size="58"></p>
<p><input type="submit" value="SALVA I DATI NEL DATABASE" name="B1"></p>
</form>
'Inserimento dei dati dal database

<%
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 = "INSERT INTO deleteData (nome, email, frase) "
SQL = SQL & "VALUES ('" & nome & "','" & email & "','" & frase & "')"
rs.Open SQL, conn
%>
'Elimina i dati dal 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
%>