Fra CDONT til JMail.

Hejsa.

Jeg prøver at omskrive et script jeg har, fra CDONT til JMail.
Men det går ikke særligt godt... hvem kan hjælpe mig?

Relevant uddrag af orginal CDONT-scriptet:
==========================================================
'Looks inside database for email address user submitted.
if RSlist.EOF Then

'If no match then it gives a message.
strMessage = "<br>Desværre, der er ingen oplysninger i forbindelse med den mail-adresse du har indtastet.<BR>Prøv igen, og vær omhyggelig med at indtaste korrekt."

Else

'If it finds a match it sends the email address and password via email to the requested email address.
fndEmail=RSlist("Emailad")
pword=RSlist("IDpas")
Name = RSlist("Name")

'Sends mail using CDONTS:
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "MitNavn@website.com"
Mail.To = fndEmail
Mail.Subject = "Besked fra MitNavn@website.com"
strMsg = "Du har bedt om at få tilsendt dine brugeroplysninger, som vises her:" & vbCrLf & vbCrLf & "Brugernavn: " & Name & vbCrLf & "Email: " & fndEmail & vbCrLf & vbCrLf & "Med venlig hilsen: " & vbCrLf & "MitNavn@website.com"
Mail.Body = strMsg
Mail.Send

strMessage = "<br>Dine brugeroplysninger er nu sendt til " & fndEmail & ", og du vil modtage mailen i løbet af et par minutter."
End If

'Writes the appropriate message to HTML
Response.Write strMessage
==========================================================


Det skulle gerne omskrives til dette JMail script:
(Jeg har taget dette direkte fra et mail-script, som virker fint. Men jeg ved ikke hvilke feltet som skal slettes/omskrives).
==========================================================
    ' Skriver afsender-navnet, taget fra text-feltet "name": '
        name        = "Fra: " & Request.Form("name")
    ' Skriver afsender-mailen, taget fra text-feltet "email": '
        senderEmail = Request.Form("email")
    ' Skriver besked i "subject-feltet" i E-mailen: '
        subject    = "Vedr. www.website.com"
    ' Skriver hvem mailen sendes til, taget fra feltet "recipient"-feltet: '
        recipient  = fndEmail
    ' Skriver beskeden, taget fra feltet "body"-feltet: '
        & vbCrLf & "Email: " & fndEmail & vbCrLf &
                   
   

    ' Create the JMail message Object
    set msg = Server.CreateOBject( "JMail.Message" )

    ' Set logging to true to ease any potential debugging
    ' And set silent to true as we wish to handle our errors ourself
    msg.Logging = true
    msg.silent = true

    ' Enter the sender data
    msg.From = senderEmail
    msg.FromName = name

    ' Note that as addRecipient is method and not
    ' a property, we do not use an equals ( = ) sign
    msg.AddRecipient recipient

    ' The subject of the message
    msg.Subject = subject

    ' And the body
    msg.body = body

    ' Now send the message, using the indicated mailserver
    if not msg.Send("Min mailserver-adresse" ) then
        Response.write "<pre>" & msg.log & "</pre>"
    else
        Response.write "OK"
    end if
==========================================================