codice:
<html>
<head>
<title>INSERIMENTO DI DATI IN UN DATABASE</title>
</head>
<body>
Compila i campi:</p>
<form method="POST" action="inserisci.asp">
Nome: <input type="text" name="nome" size="20"></p>
Cognome: <input type="text" name="cognome" size="20"></p>
Email: <input type="text" name="email" size="20"></p>
<input type="submit" value="Invia"></p>
</form>
</body>
</html>
la seconda pagina pagina per riportare i dati
<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 "database", "", ""
SQL = "INSERT INTO tabella (nome, cognome, email) "
SQL = SQL & "VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objrs.Execute 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")
%>
</p>
</body>
</html>
Rispondi quotando
