Errore cmd.parameter

[blackland84]

Questa è la mia pagina asp:

<%

Email=request.form("Email")
password=request.form("password")

strconn="MiaStringaConnessione"
'apertura database e recordset

set objconn=Server.createobject("adodb.Connection")
set objrs=Server.createobject("adodb.recordset")
Set cmd=server.CreateObject("adodb.Command")

objconn.open strconn

cmd.ActiveConnection = objconn
cmd.CommandText = "select * from Clienti where Email=@mail and Password=@pass"

With cmd
.Parameters.Append.CreateParameter "@mail", adVarChar, adParamInput, 50 , Email
.Parameters.Append.CreateParameter "@pass", adVarChar, adParamInput, 50 , password
end With

cmd.CommandType = adCmdText

Set objrs = cmd.Execute

'inizializzo variabile di sessione
session("autorizzato")=0
session.Timeout=5

If objrs.eof And objrs.bof Then
response.redirect("Errore.asp")
Else
response.redirect("Loggato.asp")
session("autorizzato")=1
objrs.close
End if

objconn.close

%>

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Parameters.Append'

line 21

.Parameters.Append.CreateParameter "@mail", adVarChar, adParamInput, 50 , Email

Cosa c'è di sbagliato?

[blackland84]

Dimenticavo:
Il Db è access e i campi sono:
Nome Tipo
Cod Contatore
Email Testo 50
Password Testo 50