Update non modifica il record del database

[P@m]

Ciao!
Sto imparando ad usare asp , seguendo anche la guida di html.it e sono alle prese con un esercizio di modifica dei dati, tramite un form.
Cliccando sul pulsante "Entra" (che uso per inviare i dati modificati al database) vengo indirizzata ad un'altra pagina dove posso vedere la query (è stato inserito, appunto, un response.write che stampa la query)...sembra tutto ok: non appare nessun errore ma quando controllo il database vedo che il record non ha subito alcuna modifica.

Dove ho sbagliato?

Posto il codice:

<%
Option Explicit
Dim strConn, objConn, objRs, strsql, submitted
Dim id, titolo, sottotitolo, testo, data_vivo, data_morto
If Session("login") then

    strConn = Application("dbconn")
    submitted = Request.QueryString("submitted")
    If submitted then

        'cambia i dati
        id = Request.QueryString("id")
        
        response.write "id = " & id & "
"
        titolo = Replace(Request.Form("titolo"),"'","''")
        sottotitolo = Replace(Request.Form("sottotitolo"),"'","''")
        testo = Replace(Request.Form("testo"),"'","''")
        data_vivo = Replace(Request.Form("data_vivo"),"'","''")
        data_morto = Replace(Request.Form("data_morto"),"'","''")
        
        
        strsql = "UPDATE tbl_news"
        strsql = strsql & " SET ("
        strsql = strsql & "titolo = '" & titolo & "',"
        strsql = strsql & "sottotitolo = '" & sottotitolo & "',"
        strsql = strsql & "testo = '" & testo & "',"
        strsql = strsql & "data_vivo = #" & data_vivo & "#,"
        strsql = strsql & "data_morto = #" & data_morto & "#,"')"        
        strsql = strsql & "WHERE id = " & id  
                
          response.write strsql & "
"
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:....")
        Set objRs = Server.CreateObject("ADODB.Recordset")
    
            'set objRs = objConn.Execute(strsql)
    
        objConn.Close
        Set objConn = Nothing
    
    else    
        id = Request.QueryString("id")
        strConn = Application("dbconn")
        
        strsql = "SELECT * FROM tbl_news WHERE id = " & id     
        response.write strsql & "
"    
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:\....")
        Set objRs = Server.CreateObject("ADODB.Recordset")

        set objRs = objConn.Execute(strsql)
    
        
        id = objRs("id")
        titolo = objRs("titolo")
        sottotitolo = objRs("sottotitolo")
        testo = objRs("testo")
        data_vivo = objRs("data_vivo")
        data_morto = objRs("data_morto")
        
%>

        <FORM ACTION="cambia_news.asp?submitted=true&id=<%= id %>" METHOD="post">
        <div align="center">
        <table border="0" width="95%" celpadding="2" cellspacing="2">
            <tr>
                <td><h1>Cambia quello che vuoi...<hr align="LEFT" size="1" width="100%" color="navy"></h1></td>
            </tr>
                <td align="center">


                    <table width="80%" border="0" celpadding="2" cellspacing="2">
                        <tr>
                            <td>Titolo</td>
                            <td><INPUT NAME="titolo" TYPE="TEXT" Value="<%= titolo %>" size="80" MAXLENGTH="80"></td>
                        </tr>
                        <tr>
                            <td>Sottotitolo</td>
                            <td valign="top"><TEXTAREA NAME="sottotitolo" ROWS="3" COLS="60"><%= sottotitolo %></TEXTAREA></td>
                        </tr>
                        <tr>
                        <tr>
                            <td valign="top">News</td>
                            <td valign="top"><TEXTAREA NAME="testo" ROWS="10" COLS="60"><%= testo %></TEXTAREA></td>
                        </tr>
                        <tr>
                            <td nowrap>Data di entrata</td>
                            <td valign="top"><INPUT NAME="data_vivo" TYPE="TEXT" Value="<%= data_vivo %>" size="24" MAXLENGTH="24"></td>
                        </tr>
                        <tr>
                            <td nowrap>Data di scadenza</td>
                            <td valign="top"><INPUT NAME="data_morto" TYPE="TEXT" Value="<%= data_morto %>" size="24" MAXLENGTH="24"></td>
                        </tr>    
                                                            
                        <tr>
                            <td valign="top">[b][/b]</td>
                            <td>
                            </td>
                        </tr>
                        <tr>
                            <td colspan="2" align="center">
                                <table width="40%" border="0" celpadding="6" cellspacing="2">
                                    <tr>                    
                                        <td align="right"><INPUT TYPE="submit" NAME="submit" VALUE="Entra"></td>
                                        <td align="left"><INPUT TYPE="reset" NAME="Reset" VALUE="Reset"></td>
                                    </tr>
                                </table>
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
        </table>
        </div>
        </FORM>
<%
end if

end if
%>