mise a jour automatique d un enregistrement

bonjour comment executer une mise a jour automatique d un enregistrement lors de l ouverure d une page sans utiliser un bouton pour valider la   mise a jour de mon formulaire il y a t il une commande ?

<form action="<%=MM_editAction%>" method="POST" name="remarque" id="remarque">
      <table width="151" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="22"><label></label></td>
          <td width="116"><label>
            <input type="image" name="imageField2" src="../images/nouvelle_head/photos/rubriques/marque.jpg">
          </label></td>
          <td width="13" valign="middle"><label></label></td>
        </tr>
      </table>
      <input type="hidden" name="MM_update" value="remarque">
      <input type="hidden" name="MM_recordId2" value="<%= message.Fields.Item("id").Value %>">
      <input name="monmessage" type="hidden" id="monmessage" value="lu">
      <input type="hidden" name="MM_recordId" value="<%= message.Fields.Item("id").Value %>">
</form></td>
    <td width="643" align="left" valign="top">      <form name="form1" method="POST" action="<%=MM_editAction%>">

<%
If (CStr(Request("MM_update")) = "remarque") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_ludwig_STRING
    MM_editCmd.CommandText = "UPDATE message SET etat = ? WHERE id = ?"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("monmessage")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>