secondo voi perché questo codice non mi aggiorna il database? anzi diciamo che lo aggiorna in quanto aggiunge una riga ma tutti i record sono blank:

<BODY>
<%
dim DesAgente
dim Password
dim idagente
dim nomeesteso
dim data
dim message
dim contamessage
dim autore


DesAgente=replace(Request.Form("DesAgente"),"'","' '")
Password=replace(Request.Form("Password"),"'","''" )
idagente=replace(Request.Form("idagente"),"'","''" )
nomeesteso=replace(Request.Form("nomeesteso"),"'", "''")
data=replace(Request.Form("data"),"'","''")
'message=Request.Form("message"),"'","''")
contamessage= "1"
autore=replace(Request.Form("autore"),"'","''")

Dim cn
Dim strSQLConn
Dim rs
Dim autenticato
Dim sqlstr
strSQLConn= "Driver={SQL Server};Server=localhost;Database=Estract;UID=sa;P WD=sa;"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strSQLConn
Set Rs=Server.createobject("ADODB.Recordset")
SQLStr="INSERT INTO EstTabellaAgenti (desagente, password, idagente, nomeesteso) VALUES ('"&desagente&"','"&password&"','"&idagente&"','"& nomeesteso&"')"
cn.execute(sqlstr)
Response.Redirect "gestione_age.asp"

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
%>