IO NON LAVORO IN ASP, perciò chiedo scusa se la qualità del codice è scarsa.

Comunque, questa è una pagina asp che scrive e legge su un database Access, e conferma quello che dissi.
codice:
<%
option explicit
Response.Buffer = true

dim chiamante
chiamante = request.Form("Hidden1")
select case chiamante
	case "Button1"
		Button1_onclick
	case "Button2"
		Button2_onclick
end select
dim TEXTAREA1value

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>a</title>
		<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
		<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
		<meta name="vs_defaultClientScript" content="JavaScript">
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
		<script id="clientEventHandlersJS" language="javascript">
<!--

function Button3_onclick() 
{
	var s = document.getElementById("TEXTAREA1").value;
	var a = "";
	for(var i = 0; i < s.length; i++)
	{
		a += s.charCodeAt(i) + "|";
	}
	alert(a);
}

function Button1_onclick() {
	document.getElementById("Hidden1").value = "Button1";
	document.Form1.submit();
}

function Button2_onclick() {
	document.getElementById("Hidden1").value = "Button2";
	document.Form1.submit();

}

//-->
		</script>
	</HEAD>
	<body MS_POSITIONING="FlowLayout">
		<form name="Form1" method="post" action="?" id="Form1">
			

<textarea name="TEXTAREA1" id="TEXTAREA1" style="WIDTH: 376px; HEIGHT: 288px" rows="18" cols="44"><%=TEXTAREA1value%></textarea></P>
			


				<input language="javascript" name="Button1" id="Button1" type="button" value="Salva"  onclick="return Button1_onclick()"/> 
				<input language="javascript" name="Button2" id="Button2" type="button" value="Leggi"  onclick="return Button2_onclick()"/> 
				<INPUT type="button" value="Button" id="button3" onclick="return Button3_onclick()" NAME="button3">
			</P>
			<INPUT type="hidden" ID="Hidden1" NAME="Hidden1">
		</form>
	</body>
</HTML>

<%

sub Button1_onclick()
	dim s
	s = request.Form("TEXTAREA1")
	dim db, rs, sql

	set db = server.CreateObject("ADODB.Connection")
	set rs = server.CreateObject("ADODB.RECORDSET")
	
	db.Open stringaConnessione
	
	
	sql = "select [memo] from [campi] where [id]=10"
	
	rs.Open sql, db, 3, 3
	rs.movefirst
	rs("memo") = VtoNull(s)
	rs.update

	rs.Close: set rs = nothing
	db.Close: set db = nothing
	
end sub

sub Button2_onclick()
	dim db, rs, sql

	set db = server.CreateObject("ADODB.Connection")
	set rs = server.CreateObject("ADODB.RECORDSET")
	
	db.Open stringaConnessione
	
	
	sql = "select [memo] from [campi] where [id]=10"
	
	rs.Open sql, db
	
	do while not rs.EOF
		TEXTAREA1value = rs("memo")
		rs.MoveNext
	loop

	rs.Close: set rs = nothing
	db.Close: set db = nothing

end sub

function stringaConnessione()
	stringaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DATI\test\test.mdb;Persist Security Info=False"
end function

Function VtoNull(v)
	if v = "" then 
		VtoNull = null
	else
		VtoNull = v
	end if
end function

%>