Rare Foutmelding in ASP (mailinglists)

[Verwijderd]

Hoi Tweakers,

Ik ben bezig voor mijn stagebedrijf een soort van mailing te maken. Ik heb daarom van het internet leuke stukjes code geplukt om dit te verwezenlijken. Alle code stukjes werken leuk, alleen bij het volgende krijg ik steeds een rare foutmelding:

code:

<!-- #INCLUDE FILE = "DataStore.inc" -->
<!-- #INCLUDE FILE = "adovbs.inc" -->
<%
%>
<%
    Dim strTo, strSubject, strBody, strFrom 
    Dim objCDOMail 'The CDO object
    Dim objRec

 
    strFrom = Request.Form("From")
    strSubject = Request.Form("subject")
    strBody = Request.Form("body")
    Set objRec = Server.CreateObject ("ADODB.Recordset")
    'open the database
    objRec.Open "Lijst", ObjConn, adOpenKeyset, _
    adLockReadOnly, adCmdTable


    Response.Write("<h1>Broadcast Starting</h1>")

 While Not objRec.EOF
        'create a new cdo object
        Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
        'set its properties
        objCDOMail.From = strFrom
        objCDOMail.To = objRec("EMail")
        objCDOMail.Subject = strSubject
        objCDOMail.Body = strBody
        'send the mail
        objCDOMail.Send
        'set the object = nothing
        Set objCDOMail = Nothing
        'confirm to the user that the mail has been sent
        Response.Write "Message sent to " & objRec("EMail") & "!<br>"
        'go to the next record
        objRec.MoveNext
    WEND
    Response.Write("<h1>Broadcast has been Completed</h1>")
%>

Ik heb zoals gebruikelijk voordat ik jullie kan/mag raadplegen eerst gegoogled en zelf wat dingen geprobeerd, helaas zonder resultaat.
Wie kan me helpen?
De foutmelding:

Error Type:
(0x8009000F)
Object already exists.
/Projectx/broadcast.asp, line 31

PS Hij doet eerst heel lang iets laden ( het bekende blauwe balkje wat volloopt onder aan de pagina ), dus hij doet wel iets volgens mij.Er worden geen e-mails al verstuurd.

Als jullie de code nodig hebben van het Form wat hiervoor aan vooraf gaat, post ik die graag.

[whoami]

Zoals je reeds een paar gezegd is: P&W is niet bedoeld als 'debug m'n code service'. Begin eerst eens met het zelf debuggen van die samengeraapte code. (We leveren trouwens ook geen ondersteuning op gedownloade code).

Je zegt trouwens ook niet wat je geprobeerd hebt, dus blijft het voor ons gokken. Ik wil je nog eens wijzen op de P&W FAQ en Quickstart (die je onderhand wel weet te vinden zeker ?)

[ Voor 32% gewijzigd door whoami op 13-02-2006 11:47 ]