ASPmail til CDONTS

Hvordan skifter jeg til CDONTS?  Tak,



<%
name = Request.Form("name")
email = Request.Form("email")
subejct = Request.Form("subejct")
comment = Request.Form("comment")

temp_text = "Asalaamucaleykum W.W  Dr. Dore" & vbCrLf & vbCrLf
temp_text = temp_text & "FROM: " & name  & vbCrLf
temp_text = temp_text & "" & comment & vbCrLf & vbCrLf
temp_text = temp_text & " " & vbCrLf
temp_text = temp_text & "Responsed by http://www.islaamka.com" & vbCrLf & vbCrLf

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName  = name
Mailer.FromAddress= email
Mailer.RemoteHost = "mail.forcedesign.dk"
Mailer.AddRecipient "madka@msn.com"
Mailer.Subject    = subject
Mailer.BodyText  = temp_text
if Mailer.SendMail then
  Response.Write "<FONT FACE=Verdana SIZE=2 COLOR=#A80000><center><p>Your message to Dr. Dore is sendt!</p></center><br></FONT>"
else
Response.Write "<FONT FACE=Verdana SIZE=2 COLOR=#0066FF><center><p>Can not send your message to Dr. Dore!</p></center><br></FONT>"
end if
%>