参数类型错误，超出可接受的范围，ASP CLASSIC

Question

当我运行我的经典ASP时，它显示错误“参数类型错误，超出可接受的范围，或者彼此冲突”任何人都可以帮助我吗？感谢

    <%
    DIM strEmail
    strEmail = Request.Form("email")

    IF strEmail <> "" THEN
    %>
    
    <%

    DIM objDB, strSQL
    strSQL = "SELECT email_addr,medacist_password FROM medacist_user WHERE email_addr = '" & strEmail & "'"
    Set objDB = Server.CreateObject("ADODB.Connection")
    objDB.Open "Provider=MSDASQL;Data Source=mmsg_web; Persist Security Info=True;Password=langas;User ID=mmsg;"

    IF objDB.EOF THEN
    Response.Write "That email address was not found in our database. Please click Back on your browser and enter the email address you registered with."
    ELSE
    DIM strPassword
    strPassword = objDB("medacist_password")

    DIM mail, objMail
    Set objMail = Server.CreateObject("CDOSYS.NewMail") 
    objMail.From = "clu@medacist.com"
    objMail.Subject = "Your Password"
    objMail.To = strEmail
    objMail.Body = "Here is your login password: " & strEmail 
    objMail.Send

    'Set objMail to nothing to destory the mail object'
    Set objMail = nothing

    Response.Write "Your password has been sent to your email address."
    END IF

    ELSE
    Response.Write "Please click Back on your browser and enter the email address you registered with."
    END IF
    %>