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
%>
Rispondi quotando
