<%
on error resume next
nome = Request.form("nome")
cognome = Request.form("cognome")
email = Request.form("email")
dim objconn
dim objrs
set objconn = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
objconn.Open "Rubriche_Annunci.mdb", "", ""
SQL = "INSERT INTO messaggi (nome, cognome, email) "
SQL = SQL & "VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objrs.Open SQL, objconn
If err.number>0 then
response.write "
Errore nell'inserimento</P>"
elseif conn.errors.count> 0 then
response.write "
Attenzione!</P>"
response.write "
I dati inseriti non sono corretti.</P>"
Else
response.write "
I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
%>
<hr>
<%
Response.Write("
Torna alla pagina precedente")
%>