Due pagine: una è il form per la digitazione dei dati, l'altra il modulo per l'inserimento nel databese.
PAGINA PER L'INVIO DEI DATI
<html>
<head>
<title>INSERIMENTO DI DATI IN UN DATABASE</title>
</head>
<body>
<p>Compila i campi:</p>
<form method="POST" action="inserisci.asp">
<p>Nome: <input type="text" name="nome" size="20"></p>
<p>Cognome: <input type="text" name="cognome" size="20"></p>
<p>Email: <input type="text" name="email" size="20"></p>
<p><input type="submit" value="Invia"></p>
</form>
</body>
</html>
PAGINA PER L'INSERIMENTO
<html>
<head>
<title>INSERIMENTO DI DATI IN UN DATABASE</title>
</head>
<body>
<%
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 "nomedatabase", "", ""
SQL = "INSERT INTO nometabella (nome, cognome, email) "
SQL = SQL & "VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objrs.Open SQL, objconn
If err.number>0 then
response.write "<p>Errore nell'inserimento</P>"
elseif conn.errors.count> 0 then
response.write "<p>Attenzione!</P>"
response.write "<p>I dati inseriti non sono corretti.</P>"
Else
response.write "<p>I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
%>
<hr>
<p>
<%
Response.Write("<a href="""&Request.ServerVariables("HTTP_REFERER")&""">Torna alla pagina precedente</a>")
%>
</p>
</body>
</html>