CDONTS til JMAIL

Er der nogle der vil score nogle point på at lave dette script om til JMAIL?


<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<!-- Minus AutoDato -->
    <title>Client Questionaire</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body BGCOLOR=\"#cccccc\">
<FONT FACE=\"\'Verdana\',\'Arial\'\" SIZE=2><CENTER>
<%
Dim strName, strEmail, strTlf, strQuery
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
    Dim objMail, aRecipients
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
   
    objMail.From = \"kjeldbirk@privat.dk\"
    objMail.To = strEmail
    objMail.Subject = \"Nyt spg. fra \" & strName
   
    aRecipients = Array(\"admin@kjeldbirk.dk\")
   
    objMail.BCC =  Join(aRecipients, \";\")
    objMail.Body = \"Spg.: \" & strQuery
    objMail.Send
   
    Response.Write \"Tak for dit spørgsmål, Revisionsfirmaet Kjeld Birk vil behandle det tidligst muligt og vende tilbage med et svar!\"
   
    Set objMail = Nothing
Else
%>
</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD>
<FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>


<% End If %>
</FONT>
</body>
</html>