CDONTS til JMail

Jeg har følgende kode, som jeg gerne vil have til at virke med JMail istedet for CDONTS, som min udbyder ikke understøtter.


<%
Dim sysmsg
sysmsg="Please Enter your email!"
If request.querystring("method")="retrieve" then
if request.Form("email")="" then
  sysmsg="Sending Failed! Email is empty"
elseif Instr(request.Form("email"),"@")=FALSE then
  sysmsg="Sending Failed! Invalid Email Format"
else
sql="SELECT * from userdb where email='" & request.Form("email") & "';"
set rs=cn.execute(sql)
  if not rs.eof then
  ' SEND EMAIL
  Dim objMail,MailBody
  MailBody="Hi " & rs.fields("realname") & ",<br><br>"
  MailBody=MailBody & "Here is the User Information that you requested.<br><br>"
  MailBody=MailBody & "Username: " & rs.fields("myuid") & "<br>"
  MailBody=MailBody & "Password: " & rs.fields("mypass") & "<br><br>"
  MailBody=MailBody & "To Login pls <a href=" & login_fullpath & ">CLICK HERE</a><br>"
  MailBody=MailBody & "Thanks.<br>Admin"
  set objMail=Server.CreateObject("CDONTS.Newmail")
  objMail.From=adm_mail
  objMail.To=rs.fields("email")
  objMail.Subject="Password you requested."
  objMail.Body=MailBody
  objMail.MailFormat=0
  objMail.BodyFormat=0
  objMail.Send
  Set objMail=nothing
  sysmsg="Sending Information Successful!"
  else
  sysmsg="Sending Failed. Email not found!"
  end if
end if
end if
%>

<table width="150" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><font color="red"><%=sysmsg%></font></td>
  </tr>
<form method="post" action="forgotpwd.asp?method=retrieve">
  <tr>
    <td><input type="text" name="email" size="20"></td>
  </tr>
    <tr>
    <td>Enter your Email Address</td>
  </tr>
  <tr>
    <td><input type="submit" value="Send"></td>
  </tr>
  </form>

</table>

<%
cn.close
set cn=nothing
%>