CDONTS til ASPmail?

Jeg er så uheldig at min webudbyder ikke understøtter CDONTS men kun har ASPmail (SMTPsvg.Mailer)

Hvem kan hjælpe med at rette dette script som har stor betydning for mig - Please:

<%
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.minside.dk\'>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 = \"minmail@minside.dk\"
    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.minside.dk/post/postcards/\"&rndNumber&\".htm\"
    objCDO.Send
    set objCDO = nothing
    response.write \"<script>alert(\'Postcard sent!\');location.href=\'index.asp\'</script>\"
    response.end
end select
%>