objCDO.Send

Jeg er ved at lave en auktions side, men når man skal tilmelde sig som bruger får jeg flg. fejl
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objCDO.Send'

/postuser.asp, line 125

Koden ser sådan ud:
<!-- #include file="auctionlib.asp" -->
<%
sUserName = Request.Form("username")
sName = Request.Form("name")
sEmail =  Request.Form("email")
sAddressOne = Request.Form("addressone")
sAddressTwo = Request.Form("addresstwo")
sCity = Request.Form("city")
sState = Request.Form("state")
sZip = Request.Form("zip")

Call OpenDBConn

Call DoPageHeader
Response.Write("<FONT FACE=" & chr(34) & sFont & chr(34) & ">")

    If Len(Trim(sUserName)) = 0 Then
        sString = sString & "Der er noget galt med dit ""Brugernavn"" felt.<BR>"
    End If

    If Len(Trim(sName)) = 0 Then
        sString = sString & "Der er noget galt med dit ""Navn"" felt.<BR>"
    End If
   
    If Len(Trim(sEmail)) = 0 Then
        sString = sString & "Der er noget galt med dit ""E-mail"" felt.<BR>"
    End If

    If Len(Trim(sAddressOne)) = 0 Then
        sString = sString & "Der er noget galt med dit ""Adresse 1"" felt.<BR>"
    End If
   
    If Len(Trim(sCity)) = 0 Then
        sString = sString & "Der er noget galt med dit ""By"" felt.<BR>"
    End If
   
    If sState = "other" Then
        sString = sString & "Der er noget galt med dit ""STAT"" felt.<BR>"
    End If
   
    If Len(Trim(sZip)) = 0 Then
        sString = sString & "Der er noget galt med dit ""Post Nr."" felt.<BR>"
    End If
   
    If sString <> "" Then
        Response.Write ("<CENTER>" & sString & "Tryk på ""Tilbage"" knappen i din browser for at prøve igen.</CENTER>")
    Else
        Call CheckName
    End If


Sub CheckName
   
    sSQl = ""
    sSQL = sSQL & "SELECT COUNT(*) as Total FROM registration WHERE username = " & SQLStr(sUserName)
    Set CountRS = GobjConnect.Execute(sSQL) 
        If CountRS.Fields("Total") > 0 Then
            Response.Write("<CENTER>Det brugernavn du valgte," & chr(34) & "<B>"  & sUserName & "</B>" & chr(34) & ", er allerede taget.<BR>")
            Response.Write("Tryk på ""<B>Tilbage</B>"" knappen i din browser for at prøve igen.</CENTER>")
        Else
            Call InsertUser
        End If     


End Sub


Sub InsertUser
    Randomize
    sPassword = clng(rnd * 1000000) + 1000
        npSQL = ""
        npSQL = npSQL & " INSERT INTO Registration (username, password, Validated, Name, Email, Address1, Address2, City, State, Zip) "
        npSQL = npSQL & " VALUES (" & SQLStr(sUserName) & ", "
        npSQL = npSQL &  SQLStr(sPassword) & " , "
            If bUsersAdd = False Then
                npSQL = npSQL & " false , "
            Else
                npSQL = npSQL & " true , "
            End If
        npSQL = npSQL & SQLStr(sName)      & ", "
        npSQL = npSQL & SQLStr(sEmail)      & ", "
        npSQL = npSQL & SQLStr(sAddressOne) & ", "
        npSQL = npSQL & SQLStr(sAddressTwo) & ", "
        npSQL = npSQL & SQLStr(sCity)      & ", "
        npSQL = npSQL & SQLStr(sState)      & ", "
        npSQL = npSQL & SQLStr(sZip) & " )"
               
        GobjConnect.Execute(npSQL)
            Response.Write("<CENTER>Din registrering er klaret succesfuldt .<BR>")
            Call SendPassEmail(sPassword)
        Response.Write("Din adgangskode er sendt til din e-mail adresse.<BR>")
        Response.Write("For at skifte adgangskode tryk på ""Change Password"" på start siden.<BR>")
        Response.Write("<A HREF=""default.asp"">Tryk her</A> for at forsætte.</CENTER>")
End Sub


Sub SendPassEmail(sPass)
    sBody = ""
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & "Autoresponder: DO NOT REPLY TO THIS EMAIL" & chr(10) & chr(13)
    sBody = sBody & "Tak fordi du registret dig hos Ravsted.dk´s Auktion!" & chr(10) & chr(13)
    sBody = sBody & "Vi kan også tilbyde e-mail adresse og hjemmesider på vores hjemmeside"
    sBody = sBody & ""
    sBody = sBody & ""
    sBody = sBody & ""
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & "***** GEM DENNE EMAIL -- GLEM IKKE DIN ADGANGSKODE! *****" & chr(10) & chr(13)
    sBody = sBody & "        Dit brugernavn er: " & sUserName & chr(10) & chr(13)
    sBody = sBody & "        Din adgangskode er : " & sPass & chr(10) & chr(13)
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & "Du kan altid ændre din adgangskode: " & sAuctPath & "changepassword.asp"
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & "Tak for du brugte Ravsted.dk´s Auktion. " & sAuctPath
    sBody = sBody & chr(10) & chr(13)
    sBody = sBody & "Lavet af Ravsted.dk                                      http://www.ravsted.dk"
   
        Set objCDO = Server.CreateObject("CDONTS.NewMail")
        objCDO.To = sEmail
        objCDO.From = sAuctionEmail
        objCDO.Subject = "Din auktions adgangskode!"
        objCDO.Body = sBody
        objCDO.Send = sSend
End Sub

%>

Hvad er problemet??