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)