udsend ved klik

Når dette script afvilkes skal der sendes en mail med et afslag eller optaget mail

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Function checkdata(data)
    if isNumeric(data) then
        if data = 0 then
            checkdata = \"Ikke Oplyst\"
        else
            checkdata = data
        end if
    else
        checkdata = data
    end if
End function

Function checkuser(id)
    checkuser = conn.execute(\"Select navn from users where (id = \"& id &\")\")(0)
end function

Function OpretUser(navn, email, pw)

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"sortebog.mdb\")

    set user = conn.execute(\"Select * from users where (navn = \'\"& navn &\"\') or (email = \'\"& email &\"\')\")

    if user.eof or user.bof then

        strSQL = \"Select * from users\"
        set rs = server.createobject(\"ADODB.RecordSet\")
        rs.open strSQL, conn, 1, 3

        rs.addnew
        rs(\"navn\") = navn
        rs(\"email\") = email
        rs(\"pw\") = pw
        rs(\"active\") = 0
        rs.update

        rs.close
        set rs = nothing


        strEmne = \"Ny bruger på sortebog\"
        strTekst = navn &\" vil gerne oprettes som bruger\"&  vbCrLf & vbCrLf
        strTekst = strTekst &\" Surf ind på www.sortebog.dk/admin og godkend ham\" &vbCrLf & vbCrLf

        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
           
        JMail.ServerAddress = \"mail.tele.dk\"
        JMail.Sender = email
        JMail.SenderName = navn
        JMail.AddRecipient \"mark.mikkelsen@mail.dk\"
        JMail.Subject = strEmne
        JMail.Body = strTekst

        JMail.Execute

        Set JMail = Nothing

        OpretUser = \"Der er nu blevet sendt en email til Mark som vil tage stilling<br> til om du kan oprettes, du vil få en email herom\"

    else
        OpretUser = \"Brugeren findes allerede, prøv med nyt navn eller email\"
    end if

    response.write OpretUser       
End Function

Function UserConfirm(id, mode)

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

    if mode = 1 then
       
        set rs = conn.execute(\"Select navn, email from users where (id = \"& id &\")\")
       
        email = rs(1)
       
        strEmne = \"BlackBox\"
        strTekst = \"Hej \"& rs(0) & vbCrLf & vbCrLf
        strTekst = strTekst &\"Du er sluppet igennemnåleøjet og er nu gyldig bruger af Den Sorte Bog\" &vbCrLf & vbCrLf

        JMail.ServerAddress = \"mail.tele.dk\"
        JMail.Sender = \"mark.mikkelsen@mail.dk\"
        JMail.SenderName = \"Admin\"
        JMail.AddRecipient = email
        JMail.Subject = strEmne
        JMail.Body = strTekst

        JMail.Execute

        Conn.execute(\"Update Users set active = 1 where (id = \"& id &\")\")

    elseif mode = 0 then

        set rs = conn.execute(\"Select navn, email from users where (id = \"& id &\")\")
   
        strEmne = \"BlackBox\"
        strTekst = \"Hej \"& rs(0) & vbCrLf & vbCrLf
        strTekst = strTekst &\"Du er ikke blevet godkendt som bruger på Den Sorte Bog\" &vbCrLf & vbCrLf

        email = rs(1)

        JMail.ServerAddress = \"mail.tele.dk\"
        JMail.Sender = \"mark.mikkelsen@mail.dk\"
        JMail.SenderName = \"Admin\"
        JMail.AddRecipient = email
        JMail.Subject = strEmne
        JMail.Body = strTekst

        JMail.Execute

        Conn.execute(\"Delete * from users where (id = \"& id &\")\")
    end if

Set JMail = Nothing

End Function

%>

Men den melder fejl : Der opstod en Microsoft VBScript-kørselsfejl error \'800a01b6\'

Objektet understøtter ikke denne egenskab eller metode: \'JMail.AddRecipient\'

/andet/black/sortebog/code_lib.asp, line 110