<% ' Response.Expires = 0 SetLocale(1040) ' Data in formato italiano Function Ora() nfOre = Hour(Time()) nfMinuti = Minute(Time()) If nfOre < 10 Then nfOre = "0" & nfOre If nfMinuti < 10 Then nfMinuti = "0" & nfMinuti Ora = nfOre & ":" & nfMinuti End Function ' Connessione al database Set Connessione = Server.CreateObject("adodb.connection") Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database.mdb") If Request.Form("op") = "aggiungi" Then ' In caso di campo vuoto If Request.Form("msg") = "" Then Msg = "N/a" Else Msg = Request.Form("msg") End If If Request.Form("autore") = "" Then Autore = Request.ServerVariables("REMOTE_ADDR") Else Autore = Request.Form("autore") End If ' Recordset Set Aggiungi = Server.CreateObject("adodb.recordset") Aggiungi.Open "SELECT * FROM messaggi", Connessione, 3, 3 ' Aggiungiamo un nuovo record Aggiungi.AddNew Aggiungi.Fields("Autore") = Autore Aggiungi.Fields("Messaggio") = Msg Aggiungi.Fields("Data") = Date() Aggiungi.Fields("Ora") = Ora() Aggiungi.Update Aggiungi.Close Set Aggiungi = Nothing Response.Write("Record aggiunto al database!

") End If ' Prendiamo i record per la visualizzazione Set Visualizza = Connessione.Execute("SELECT TOP 10 * FROM messaggi ORDER BY id DESC")%> Record visualizza : 10

<% Do While Not Visualizza.EOF %> <% Visualizza.MoveNext Loop Visualizza.Close Set Visualizza = Nothing Connessione.Close Set Connessione = Nothing %>

	Data	Ora	Messaggio	Autore
<% = CurrentRow %>	<% = Visualizza("Data") %>	<% = Visualizza("Ora") %>	<% = Visualizza("Messaggio") %>	<% = Visualizza("Autore") %>

Messaggio :

Autore :

<%
' Response.Expires = 0

SetLocale(1040) ' Data in formato italiano
Function Ora()
nfOre = Hour(Time())
nfMinuti = Minute(Time())
If nfOre < 10 Then nfOre = "0" & nfOre
If nfMinuti < 10 Then nfMinuti = "0" & nfMinuti
Ora = nfOre & ":" & nfMinuti
End Function

' Connessione al database
Set Connessione = Server.CreateObject("adodb.connection")
Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database.mdb")

If Request.Form("op") = "aggiungi" Then
' In caso di campo vuoto
If Request.Form("msg") = "" Then
Msg = "N/a"

Else
Msg = Request.Form("msg")
End If
If Request.Form("autore") = "" Then
Autore = Request.ServerVariables("REMOTE_ADDR")
Else
Autore = Request.Form("autore")
End If
' Recordset
Set Aggiungi = Server.CreateObject("adodb.recordset")
Aggiungi.Open "SELECT * FROM messaggi", Connessione, 3, 3
' Aggiungiamo un nuovo record
Aggiungi.AddNew
Aggiungi.Fields("Autore") = Autore
Aggiungi.Fields("Messaggio") = Msg
Aggiungi.Fields("Data") = Date()
Aggiungi.Fields("Ora") = Ora()
Aggiungi.Update
Aggiungi.Close
Set Aggiungi = Nothing
Response.Write("<b>Record aggiunto al database!</b><br><br>")
End If

' Prendiamo i record per la visualizzazione
Set Visualizza = Connessione.Execute("SELECT TOP 10 * FROM messaggi ORDER BY id DESC")%>

Record visualizza : 10<br><br>
<table width="75%" cellpadding="2" cellspacing="1" border="0" bgcolor="gray" style="font-size:13px;">

<tr bgcolor="#f0f0f0">
<th width="5%"></th>
<th width="10%">Data</th>
<th width="10%">Ora</th>

<th width="45%">Messaggio</th>
<th width="30%">Autore</th>
</tr>
<%
Do While Not Visualizza.EOF

%>
<tr bgcolor="white" align="center">
<td><% = CurrentRow %></td>
<td><% = Visualizza("Data") %></td>

<td><% = Visualizza("Ora") %></td>
<td align="left"><% = Visualizza("Messaggio") %></td>

<td><% = Visualizza("Autore") %></td>
</tr>
<% 
Visualizza.MoveNext
Loop
Visualizza.Close
Set Visualizza = Nothing
Connessione.Close
Set Connessione = Nothing

%></table><br><br>

<form method="post" action="aggiungi.asp">
<input type="hidden" name="op" value="aggiungi">

Messaggio : <input type="text" name="msg" maxlength="30" size="30"><br><br>
Autore : <input type="text" name="autore" maxlength="20" size="20"><br><br>

<input type="submit" value="Aggiungi il messaggio">
</form>

Aggiungere un record è il primo passo per manipolare dati in un database. Seguono la modifica e l'eliminazione di record dal db.
Prima di tutto è necessario creare la connessione al database. Dopodichè tramite il primo If si controlla che sia stato inviato il modulo. Seguono altri due If che hanno il compito di controllare se i campi del form inviato sono vuoti, in caso positivo come valore ad "autore" viene inserito l'ip dell'utente ( = Request.ServerVariables("REMOTE_ADDR")), mentre come "messaggio" il valore "N/a". Quindi viene aggiunto il record alla tabella del database. Segue una tabella per la visualizzazione degli ultimi 10 record del db.