Questo e' il codice di modifica.asp :
<%@ Language=VBScript %>
<%
Option Explicit
Dim objConn, objRS, rec
'
rec = Cint(Request.Form("rec_mod"))
'
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=ssd09.dsn"
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "t_check", objConn, , 3, 2
'
Do While Not objRS.EOF
If (objRS("Numero")=rec) Then
objRS("CDB_in") = Request.Form("cdb_in")
'
objRS.Update
'
End If
objRS.MoveNext
Loop
'
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<HTML>
<BODY>
<input type="hidden" name="rec_mod" id="rec_mod" value="<%=rec%>">
<script>
window.alert("Record saved!");
window.open("", "Window_Response").location.reload(true);
window.location='http://fwws01329629/aesi_ssd09/index.asp?rec='+document.getElementById('rec_mod') .value;
</script>
</BODY>
</HTML>