Från CDONTS till CDOSYS

Finns det någon som kan visa mig hur nedanstående kod i CDONTS ser ut i CDOSYS?

<%
Session("namn") = Request.Form("namn")
%>
Tack! <span class="tiof"><% = Session("namn") %></span>. Formuläret har nu skickats!
<br>
Du kommer få en bekräftelse till den mailadress du uppgav.
<br><br>
Med vänlig hälsning
<br><br>
Klicka <span id="b"><a href="http://www.l.se" target="_self">här</a></span> för att komma till l hemsida.

<%
Dim myMail, tid, foretag, namn, adress, postnr, postort, teldag, mobil, epost, fraga1, fraga2, fraga3, fraga4

tid = request.form ("tid")
foretag = request.form("foretag")
namn = request.form ("namn")
adress = request.form ("adress")
postnr = request.form ("postnr")
postort = request.form ("postort")
teldag = request.form ("teldag")
mobil = request.form("mobil")
epost = request.form("epost")
fraga1 = request.form("fraga1")
fraga2 = request.form("fraga2")
fraga3 = request.form("fraga3")
fraga4 = request.form("fraga4")

 Set myMail = CreateObject("CDONTS.NewMail")
 myMail.From = request.form("epost")
 myMail.To = "info@ipanema.nu"
 myMail.Subject = "Anmälan till "
 myMail.Body = "Kommer/kommer ej?: " + tid +  chr(10)+ chr(10) + "Företag: " + foretag + chr(10) + "Namn: " + namn + chr(10) +  "Adress: " + adress + chr(10) +  "Postnummer: " + postnr + chr(10) + "Postort: " + postort + chr(10) + "Telefon dag: " + teldag + chr(10) + "Mobil: " + mobil + chr(10) + "E-post: " + epost + chr(10)+ chr(10) + "Har ditt?: " + fraga1 + chr(10)+ chr(10) + "Tror du att?: " + fraga2 + chr(10)+ chr(10) + "Har ni?: " + fraga3 + chr(10)+ chr(10) + "Skulle ni?: " + fraga4 
myMail.Send
 Set myMail = Nothing
 %>