Ciao a tutti sono nuovo in asp e da giorni non riesco a risolvere questo problema.

Ho un form di registrazione con una procedura di salvataggio che vi posto qui sotto:
'**********************SALVA CONTATTI*******************************
Sub SalvaContatto(id_contatto)

'dim id_contatto, nominativo, id_citta_contatto, id_indirizzo_contatto, id_messaggio_contatto, DataContatto


Set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")

SQL = "SELECT * FROM t_contatti"

cn.CursorLocation = adUseClient
cn.Mode = adModeReadWrite
cn.open Connessione
rs.open SQL, cn, adOpenDynamic, adLockOptimistic


rs.addnew


rs("id_cognonome_contatto") = (request.form("txtOperatore3"))
rs("id_citta_contatto") = (request.form("txtOperatore4"))
rs("id_indirizzo_contatto") = ucase(trim(request.form("txtOperatore5")))
rs("id_messaggio_contatto") = trim(request.form("txtcontatto"))


rs.update




rs.close
cn.close

set rs = nothing
set cn = nothing

End Sub




'******************************CHIUDO SALVA CONTATTI****************************************
Quando salvo il form mi restituisce questo errore:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'clng'

/amm/salvataggi.asp, line 327

Non riesco piu' a venirne a capo,vi chiedo gentilmente se riuscite a dfarmi u na mano.

Grazie mille