Automatically resolve e-mail sender to selected contact emailaddress1. Part I

We faced two problems in CRM 3.0 Email, the first problem was:
When an email(senderA@example.com) sent from outside world into CRM system, if sender's email address isn't in the system, then CRM will ask you to associate it with an existing record(only associate with a Contact record in our case). But once you select a contact, it looks associated, but it doesn't update the Contact's email field. You have to open the Contact record and manually copy the sender's email address into Contact's email field.

Regarding Microsoft KB: 922116, it is by design! Our requirement is make it automatically copy the sender's email address into the assocaited Contact.emailaddress1 field.

To achieve that, I made an unsupported change(again? :))

/*
Automatically resolve e-mail sender to selected contact emailaddress1
Microsoft KB: 922116, http://support.microsoft.com/kb/922116
\_controls\PartyList\resolve.aspx
*/

function applychanges()
{
    //update cotnact emailaddress1
    if((document.getElementById("crmExistingLookup").DataValue != null)
    &&(document.getElementById("crmExistingLookup").DataValue[0] != null)
    &&(document.getElementById("crmExistingLookup").DataValue[0].type == 2))
    {
        var eml = document.getElementById("txtName").value;
        var cid = document.getElementById("crmExistingLookup").DataValue[0].id;
        var connection = new ActiveXObject("ADODB.Connection");
        var connectionString = "Provider=SQLOLEDB; Server=_db; Database=_mscrm; Integrated Security=SSPI";

        connection.Open(connectionString);
        var sql = "UPDATE FilteredContact SET emailaddress1='" + eml +"'WHERE contactid = '" + cid + "'" ;
        rs = new ActiveXObject("ADODB.Recordset");
        rs.Open(sql, connection, 1, 2);
        
        connection.Close();

    }

    ....

}