Konvertere JMail til CDO

Jeg har udsendt et ugentligt nyhedsbrev med hjælp af JMail. Det har fungeret ganske fint, indtil min udbyder laver en opdatering på serveren som kræver, at SMTP serveren skal godkende brugernavn og password ved afsendelse. Min udbyder oplyser så, at jeg skal tilføje

JMail.Message.MailServerUserName = "xxx"
JMail.Message.MailServerPassword = "xxx"

i mit script. Problemet er bare, at det ikke virker, og at udbyderen (skal vi ikke bare kalde dem for Enavn) ikke ved, hvorfor det ikke virker. Enavn oplyser, at jeg bare kan bruge CDO i stedet for JMail, for det virker garanteret. De kan bare ikke vise mig, hvordan jeg bruger CDO i stedet for JMail. Hamrende irriterende, - det er nu 3. gang jeg står på bar bund efter en serveropdatering, hvilket jeg egentlig finder ganske urimeligt.
Derfor.... 200 point til den som kan konvertere mit JMail script til CDO!!!

<!--#include virtual="/skoleweb/conn.asp"-->

    <%
   


    StrSQL = "Select * from mailliste"
set rs = Conn.execute(strSQL)

Dato1 = date()
minus = "7"


SQL = "SELECT tekst,startdato,id,meddeler FROM ugebrev WHERE startdato<DATE() AND startdato>=DATE()-"&minus&" ORDER BY prioritet"

Set rs2 = Conn.Execute(SQL)

  ugenr = 1 + DatePart("ww",Now(),vbMonday,vbFirstFourDays)
    strBesked=replace(strBesked,vbcrlf,"<BR>")
   
    strBesked = strBesked & " <p><img border='0' src=http://xxx.dk/skoleweb/images/banner.jpg width='398' height='45'></p>"
    strBesked = strBesked & "<b><font face='verdana' size='6' color='#FF0000'>Ugebrevet&nbsp&nbsp</b>"
      strBesked = strBesked & "<font face='verdana' size='4' color='#000000'></font> <font face='verdana' size='2' color='#000000'>"& date() &" <b>UGE "& ugenr &"</b></font> "
    strBesked = strBesked & " <hr> "
 
    Do While Not (rs2.Eof)
    tekst = rs2("tekst")
    tekst=Replace(tekst,"","<b>")
    tekst=Replace(tekst,"","</b>")
   
    tekst=replace(tekst,"","<i>")
    tekst=replace(tekst,"","</i>")
   
    tekst=replace(tekst,"","<u>")
    tekst=replace(tekst,"","</u>")
   
    tekst=replace(tekst,"[oversk]","<font size='3'>")
  tekst=replace(tekst,"[/oversk]","</font>")
   
    tekst=replace(tekst,"[li]","<li>")
    tekst=replace(tekst,"[/li]","</li>")
   
    tekst=replace(tekst,vbcrlf,"<BR>")
   
    strBesked = strBesked & "<font face='verdana' size='2' color='#000000'>"
    strBesked = strBesked & " <br><b><u>" & rs2("meddeler") &"</b></u><br><br>"& tekst &" "
  strBesked = strBesked & " <br> "
  strBesked = strBesked & " <hr> "
    rs2.MoveNext
Loop

Do While Not (rs.Eof)
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ContentType = ""
  JMail.ServerAddress = "xxx.dk"
  JMail.Message.MailServerUserName = "xxx"
  JMail.Message.MailServerPassword = "xxx"
  JMail.Sender = "xxx@x.dk"
  JMail.Subject = "Ugebrev - UGE "& ugenr &" "
  JMail.Body = "Du skal understøtte html mails for at læse denne mail"
  JMail.HTMLBody = strbesked

  JMail.AddRecipientEx "" & rs("email") & "", "" & rs("email") & ""
  JMail.Execute
  Set JMail = Nothing
 
  response.write "" & rs("Email") & " - Afsendt korrekt<br>"
  rs.MoveNext
Loop

response.write "<br><br><b>Alle beskeder blev afsendt korrekt.</b>"

Conn.Execute("INSERT INTO log_afsendelse (tidspunkt,resultat) VALUES (#" & now & "#,'OK')")
Conn.close
Set Conn = nothing
response.redirect "log_status.asp"
%>