CDO / AspEmail

Jeg skulle lige være smart og skifte CDO ud med AspEmail da min server ikke har CDO mail, men jeg kan bare ikke HJÆLLLP.

<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"-->
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails



Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open dsn
SQL = \"SELECT emails from emails\"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request(\"action\")
select case useraction
case \"send\"
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.Recordset\")
    Conn.Open dsn
    SQL = \"SELECT emails from emails order by id\"
    rs.open sql,conn
    do while not rs.eof
        emails=rs(\"emails\")
        subject = request.form(\"subject\")
        comm = request.form(\"comm\")
        Dim Mail
       
        Set Mail = Server.CreateObject(\"Persits.MailSender\")
        Mail.Host = strHost
       
        Mail.From = \"boe@rc-media.dk\"
        Mail.FromName = \"RC-Media\"
        Mail.Subject = Request(\"Subject\")
        Mail.Body = Request(\"Body\")

        \' read address from DB and put them in the BCC field
        While not rs.EOF
        Mail.AddBcc rs(\"emails\")
       
       
        rs.movenext
    loop
    set objCDO = nothing
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.write \"<script>alert(\'has been sent!\');\"
    response.write \"location.href=\'index.asp\'</script>\"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>


PS. jeg er godt klar over at jeg er en klovn til asp :c)