lo è,forse intendi tutte e 3 le pagine:

1.
codice:
<%option explicit%>
<!DOCTYPE html>
<html>
<head><title>ADO - List Database Records</title></head>
<body>
<%
dim conn,rs,x
set conn=Server.CreateObject("ADODB.Connection") 
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("mdb-database/utenti.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT id,tipo,grammatura,formato,totale,data FROM tabella",conn
%>
<h2>List Database Table</h2>

<table border="1" width="100%">
<tr bgcolor="#b0c4de">
<%
for each x in rs.Fields
     	response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<%do until rs.EOF%>
<tr bgcolor="#f0f0f0">
<form method="post" action="b.asp" target="_blank">
<%
for each x in rs.Fields
     	if x.name="id" then%>
          	 <td><input type="submit" name="id" value="<%=x.value%>"></td>
     	<%else%>
          	 <td><%Response.Write(x.value)%> </td>
     	<%end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
rs.close
set rs=idthing
conn.close
set conn=idthing
%>
</table>

</body>
</html>
2
codice:
<%
id=Request.Form("id")
if id="" then response.end
set conn=Server.CreateObject("ADODB.Connection") 
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("mdb-database/utenti.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from tabella where tabella.[id]=" & id , conn
%>
<!DOCTYPE html>
<html>
<head>
<title>ADO - Edit DataBase Record</title>
</head>
<body>
<h2>Edit Database Table</h2>
<form method="post" action="c.asp" target="_blank">
<input name="id" type="hidden" value=<%=id%>>
<table bgcolor="#b0c4de">
<%
for each x in rs.Fields
     	if x.name <> "id" and x.name <> "dateadded" then%>
          	 <tr>
          	 <td><%=x.name%> </td>
          	 <td><input name="<%=x.name%>" value="<%=x.value%>" size="20"></td>
              
     	<%end if
next

rs.close
conn.close
%>
</tr>
</table>


<input type="submit" name="action" value="Save">
<input type="submit" name="action" value="Delete">
</form>



</p>
</body>
</html>
3
codice:
<html>
<head>
<title>ADO - Submit DataBase Record</title>
</head>
<body>
<h2>Databa</h2>
<%on error resume next
set conn=Server.CreateObject("ADODB.Connection") 
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("mdb-database/utenti.mdb"))

if Request.form("action")="Save" then
     	id=Request.Form("id")
     	sql="UPDATE * tabella SET fname='" & Request.Form("fname") & "',"
       sql=sql & "lname='" & Request.Form("lname") & "',"
   WHERE tabella.[id]=" & id"
	conn.Execute sql, Recordsaffected
	if err <> 0 then
	 Response.Write("You do idt have permission to update this database!")
	else	
	 Response.Write("Record number " & id & " was updated.")
	end if	
end if%>



View source on how to save changes to, or delete from a database.</p>
</body>
</html>