Ciao a tutti!
Sto creando un sistema di messaggistica privata (un pò come quella in questo forum) e vorrei fare in modo che quando invio un messaggio il destinatario riceva la mail.

L'errore che mi da è il seguente:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/upload_messaggio.asp, line 34

Vi posto la pagina:

<%
IF Session("Loggato") = False and Session("Username") = "" then
Response.Redirect "login.asp"
End IF
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("md/utenti.mdb")
Conn.Open strConn
sql = "SELECT * FROM messaggi"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.AddNew
rs.Fields("data") = Request.Form("data")
rs.Fields("autore") = Session("Username")
rs.Fields("destinatario") = Request.Form("destinatario")
rs.Fields("messaggio") = Request.Form("messaggio")
rs.update

dim abba
abba=Request.Form("destinatario")

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("md/utenti.mdb")
Conn.Open strConn
sql = "SELECT * FROM utenti where username = "&abba
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

Set email = nothing
Dim objMail, objConfig, messaggio

messaggio = "hai un messaggio"

Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With
Set objMail.Configuration = objConfig
objMail.From = "info@manimpastate.com"
objMail.To = email
objMail.Subject = "Registrazione avvenuta - Manimpastate.com"
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()
objMail.TextBody = messaggio
objMail.Send()
Set objMail = Nothing

%>