Salve ragazzi effettuo la seguente procedura per l'inserimento dati in un DB ma nn miu funziona non capisco perché!!!!

Premetto che i campi del form sono stati controllati ed hanno lo stesso nome come quelli presenti nel DB

<%
' Definizione delle variabili
dim titolo
titolo = Replace(Request.Form("titolo"),"'","''")

dim data
data = Replace(Request.Form("data"),"'","''")

dim azienda
azienda = Replace(Request.Form("azienda"),"'","''")

dim categoria
categoria = Replace(Request.Form("categoria"),"'","''")

dim telefono
telefono = Replace(Request.Form("telefono"),"'","''")

dim email
email = Replace(Request.Form("email"),"'","''")

dim sito
sito = Replace(Request.Form("sito"),"'","''")

dim descrizione
descrizione = Replace(Request.Form("descrizione"),"'","''")

descrizione = Replace(descrizione, vbCrLf, "
")


Do While InStr(1, descrizione, "

" ,vbTextCompare) > 0

'Replace

with one case of

descrizione = Replace(descrizione , "

", "
")
Loop

' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/db.mdb")
Conn.Open strConn

sql_inserimento = "INSERT INTO annunci ( titolo,data,azienda,categoria,telefono,email,sito, descrizione) VALUES ('" & titolo & "', '" & data & "','" & azienda & "','" & categoria & "','" & telefono & "','" & email & "','" & sito & "','" & descrizione & "');"
Conn.Execute sql_inserimento

' Chiusura del database
conn.Close
set conn = Nothing
%>


NON VA!!!!!