Mailhandler modificering

Kan nogen hjælpe mig med at modificerer denne mailhandler, beregnet til Dundas mailer, til at kunne
fungerer med JMAIL ?

<%
sprog=Session("sprog")

name=Request.Form("name")
mail=Request.Form("email")
subject=Request.Form("subject")
message=Request.Form("message")
tempmessage = ""
b = 0
for i = 1 to Len(message)
b = b + 1
tempmessage = tempmessage & Mid(message,i,1)
if b > 80 and Mid(message,i,1) = " " then
    tempmessage = tempmessage & "<br>"
    b = 0
end if
next
message = tempmessage

'most control methods throw an exception if an error occurs so we will use an On Error statement
'On Error Resume Next

Dim objMailer 'Mailer control

'create instance of Mailer control
Set objMailer = Server.CreateObject("Dundas.Mailer")

'set Mailer control properties and collection items
objMailer.TOs.Add "info@walsted.dk"
objMailer.FromName = name
objMailer.FromAddress = mail
objMailer.Subject = subject

objMailer.HTMLBody = "<HTML><head><style media=""screen"" type=""text/css"">.tekst  { color: #333333; line-height: 16px; font-size: 12px; font-family: Verdana, Arial, Helvetica, Geneva }</style></head><BODY BGCOLOR=""#FFFFFF""><P class=""tekst"">" + message + "</a></b></BODY></HTML>"

'send email
objMailer.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here

Set objMailer = Nothing
%> <html>