CDONT To CDO

Can someone show me how to modify this simple code from CDONTS to CDO to bring
it up to date?

It works fine now and maybe I should leave it alone?

<%
Dim t1,instructions
t1 = "Instructions"
instructions = Request.Form("instructions")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "hwaxman@cox.net"
ObjMail.From = "info@dinghydogs.com"
ObjMail.Subject = "Dinghy Dogs order"
ObjMail.Body = t1 & vbtab & instructions
ObjMail.Send
Set ObjMail = Nothing
Response.Write"Thank You For Your Order"
%>