Gjøre om CDONTS til ASPMAIL

Jeg har hentet et Postcard script på MyScripts, og når jeg skal konfigurere det, finner jeg ut at scriptet bruker Cdonts. Dette støtter ikke min tilbyder. Jeg må bruke AspMail. Kan noen vise meg/ skrive om dette scriptet slik at det kan brukes i aspMail?
KnB

<!--#include file=\"common.asp\"-->
<script>
function submitit(){
var name = document.theform.name.value
var email = document.theform.email.value
if (name==\"\"){
alert(\"Fill your name\")
document.theform.name.focus()
return false
}

if (email.indexOf(\'@\', 0) == -1 || email.indexOf(\'.\', 0) == -1){
alert(\"No valid e-mail address!\");
document.theform.email.focus()
return false
                       
                }
}

</script>
<%
dim pic,action,rndNumber
pic = request.queryString(\"pic\")

action = request(\"action\")
select case action
    case \"send\"
    Const fsoForWriting = 2

    Dim objFSO
    Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")

    \'Open the text file
    Dim objTextStream
    \'*******************************************
    \'change the path to your path!!!!!!!!!!!!
    \'*******************************************
    randomize
    rndNumber = rnd*1000000000000
    rndNumber = int(rndNumber)
    dim path
    path = server.MapPath(\"postcards/\"&rndNumber&\".htm\")


    Set objTextStream = objFSO.OpenTextFile(path, fsoForWriting, True)



    \'Display the contents of the text file
    objTextStream.WriteLine \"<html><head><title>Untitled</title></head>\"
    objTextStream.WriteLine \"<body bgcolor=white>\"
    objTextStream.WriteLine \"<table border=0 align=center>\"
    objTextStream.WriteLine \"<tr align=center><td><img src=\'../images/\" & request.form(\"ImageId\") & \"\' width=\'374\' height=\'269\' border=\'0\'></tr></td>\"
    objTextStream.WriteLine    \"<tr align=\'center\'><td>\" & request.form(\"mes\") & \"</tr></td>\"
    objTextStream.WriteLine \"<tr align=\'center\'><td>regards :\" & request.form(\"name\") & \"</td></tr>\"
    \'**************change the url to your server!********************
    objTextStream.WriteLine \"<tr><td align=center><a href=\'http://www.myscript.co.il\'>Go back</a></td></tr>\"
    objTextStream.WriteLine \"</table></body>\"


    \'Close the file and clean up
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
    Dim objCDO
    Set objCDO = Server.CreateObject(\"CDONTS.NewMail\")
    objCDO.To = request.form(\"email\")
    objCDO.From = \"myname@mydomain.com\"
    objCDO.Subject = \"New postcard has Arrived from mypostcard site!\"
    \'**************change the url to your server!********************
    objCDO.Body = request.form(\"name\")& \" sent you poscard! goto http://www.yourserver.com/mypostcard/postcards/\"&rndNumber&\".htm\"
    objCDO.Send
    set objCDO = nothing
    response.write \"<script>alert(\'Postcard sent!\');location.href=\'index.asp\'</script>\"
    response.end
end select
%>

<html>
<head>
    <title>Send a Delaware-postcard</title>
</head>

<body bgcolor=\"#FFFFFF\"><form name=\"theform\" action=\"send.asp?action=send\" method=\"post\" onsubmit=\"return submitit()\">
<table border=0 align=\"center\">
<td  align=\"center\">
<img src=\"images/main.gif\"  border=\"0\" alt=\"\">
</td></tr>
<%
set conn=server.createobject(\"adodb.connection\")
set rs=server.createobject(\"adodb.recordset\")
    conn.open dsn
sql = \"select * from postcard where ID=\"&pic
rs.open sql,conn%>
<input type=\"hidden\" name=\"ImageId\"  value=\"<%=rs(\"imageName\")%>\">
<tr align=center><td><img src=\"images/<%=rs(\"imageName\")%>\"  border=\"0\" alt=\"\"><br></tr></td>
<tr align=\"center\"><td>Write your name:<br><input type=text name=name size=25><br></td>
<tr align=\"center\"><td>Write Reciever email:<br><input type=text name=email size=25><br></td>
    <tr align=\"center\"><td>Write your Message:<br><textarea cols=30 rows=7 name=\"mes\"></textarea><br></td>
    <tr align=\"center\"><td><input type=\"submit\" name=\"submit\" value=\"Send\"></tr></td>
    </table>

<%call close()%>
</body>
</html>