non riesco a usare adodb.command mi da errore interno del server ma lo script mi sembra giusto è questo.

grazie

Dim vaprimo, vasecondo, vaterso
vaprimo = Request.form("primo")
vasecondo = Request.form("secondo")
vaterso = Request.form("terso")
Dim path, objCon, objCmd, strSql, intNrOfRecords
path = "nont.mdb"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(path)
Set objCmd = Server.CreateObject("ADODB.Command")
strSql="insert into messaggi (primo, secondo, terso) values ('"&vaprimo&"', '"&vasecondo&"', '"&vaterso&"')"
objCmd.ActiveConnection = objCon
objCmd.CommandText = strSql
objCmd.CommandType = adCmdText
objCmd.Execute intNrOfRecords
set objCmd = Nothing
objCon.Close
Set objCon = Nothing
Response.Write "Numero di record inseriti: " & intNrOfRxecords