objMailer.Sendmail problem

Har koden:

<%

Response.Buffer = True
strMode = Request.QueryString("mode")

'// Dette er vores connection streng til databasen
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../log/maillist.mdb") & "; password=mhj98grd"

If Request.Form("Send") <> "" Then
    '// Her putter vi værdien af de indtastede felter i en variabel
    strSender = Request.Form("afsender")
    strSubject = Request.Form("head")
    strMessage = Request.Form("body")
    strMailServer = Request.Form("mailserver")

    '// Her åbner vi databasen, og trækker alle email adresse ud i et array
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open tempConn
    strSQL = "SELECT email FROM maillist1_aktive"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()
    myConn.Close
    Set myConn = Nothing

    '// Her laver vi et loop igennem vore email array, og sender beskeden til alle de tilmeldte
    Set objMailer = Server.CreateObject("SMTPsvg.Mailer")
    For num = 0 to Ubound(arrEmail,2)
    strResult = objMailer.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
    Next
    Set objMailer = Nothing
    strMode = "messagessendt"

    '// Her sletter vi alt buffered output, og redirecter siden, med et parameter der fortæller at vi har sendt til listen
    Response.Clear
    Response.Redirect("SentMessage1.asp?mode=finish")
End If
%>

Får følgende fejl:

Microsoft VBScript runtime error '800a01c3'

Object not a collection: 'objMailer.SendMail'

/admin/maillist1/SentMessage1.asp, line 30


- kan nogen hjælpe her?