Ti sfugge la capacità di fare un po di debug facendoti stampare la video la query senza eseguirla, ovvero metti un bel response.write prima dell'execute e commenti la riga dell'execute.
codice:
SqlInsert = "Insert Into comunica" &_
" (sopra,titolo,sottotitolo,Articolo,Autore,Data_Inserimento," &_
"Inserita_da,email,tipo,keys,Fonte,evidenza) VALUES(" &_
"'" & sopra & "','" & Titolo & "','" & Sottotitolo & "','" & strMessage & "','" & Autore & "',#" & Data_inserimento & "#," &_
"'" & Inserita_da & "','" & email & "','" & Tipo & "','" & keys & "','" & Fonte & "','" & evidenza & "')"
response.write SqlInsert
'objConn.Execute(SqlInsert)