Help with converting from CDONTS to CDSYS

Discussion in 'Email' started by Treygreen, Oct 29, 2011.

  1. I am taking over a website and movng it to a new server. I did not create this code, but I am trying to convert it from CDONTS to CDOSYS.

    Here is the original CDONTS code:

    <!--#include file="top.asp"-->

    <%
    if Request.QueryString("id") <> "" then
    SQLStmt = "SELECT * FROM tblMembers WHERE ((member_id=" & Request.QueryString("id") & ") AND (member_sendmail=true));"
    set rs = conn.execute(SQLStmt)

    if not rs.eof then
    ToAddr = RS("member_email")
    FromName = Request.Form("name")
    Message = Request.Form("message")
    FromAddr = Request.Form("from")
    Subject = "E-mail from the SPN Men's Club website"

    MT = ""
    MT = "This E-mail was sent to you via the SPN Men's Club website at http://www.spnmensclub.com." & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "Date sent: " & Now() & CHR(13) & CHR(10)
    MT = MT & "From: " & FromName & CHR(13) & CHR(10)
    MT = MT & "E-mail: " & FromAddr & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "Message generated by: http://www.spnmensclub.com" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "---------------- SENDER'S MESSAGE -------------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & Message & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "--------------- END SENDER'S MESSAGE ---------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "To be removed from this mailing list click the following link or copy and past it into your browser http://www.spnmensclub.com/unsubscribe.asp?email=" & ToAddr
    Set myCDONTSMail = CreateObject("CDONTS.NewMail")

    myCDONTSMail.Send FromAddr, ToAddr, Subject, MT

    set myCDONTSMail = nothing

    Set myCDONTSMail = CreateObject("CDONTS.NewMail")

    if rs("member_email2") <> "" then
    ToAddr2 = rs("member_email2")
    myCDONTSMail.Send FromAddr, ToAddr2, Subject, MT
    end if

    Set myCDONTSMail = Nothing


    donemessage = "Your message was sent."

    If Err.Number <> 0 Then
    Response.Write ("Error: " & Err.Description)

    end if
    else
    Donemessage = "That user has elected not to receive emails from this site"
    end if

    Set myCDONTSMail = nothing

    rs.close
    set rs = nothing

    else
    if Request.QueryString("group") = "board" then
    recipient = "Board Members"
    SQLStmt = "SELECT DISTINCT member_email, member_email2 FROM tblMembers WHERE ((member_board=true AND member_active=true));"
    Donemessage = "Your message was sent to all the board members."
    elseif Request.QueryString("group") = "all" then
    recipient = "All Members"
    SQLStmt = "SELECT DISTINCT member_email, member_email2 FROM tblMembers WHERE ((member_active=true) AND (member_sendmail=true));"
    Donemessage = "Your message was sent to the membership."
    end if

    set rs = conn.execute(SQLStmt)

    rs.movefirst

    if Request.QueryString("group") = "board" then
    ToAddr = "[email protected]"
    FromName = Request.Form("name")
    Message = Request.Form("message")
    FromAddr = Request.Form("from")
    Subject = "E-mail from the SPN Men's Club website"

    MT = ""
    MT = "This E-mail was sent to you via the SPN Men's Club website." & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "Date sent: " & Now() & CHR(13) & CHR(10)
    MT = MT & "From: " & FromName & CHR(13) & CHR(10)
    MT = MT & "E-mail: " & FromAddr & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "---------------- SENDER'S MESSAGE -------------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & Message & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "--------------- END SENDER'S MESSAGE ---------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)


    Set myCDONTSMail = CreateObject("CDONTS.NewMail")
    myCDONTSMail.From = FromAddr
    myCDONTSMail.To = ToAddr
    myCDONTSMail.Subject = Subject
    myCDONTSMail.Body = MT
    myCDONTSMail.Send
    Set myCDONTSMail = Nothing

    else
    do while not rs.eof
    ToAddr = ""
    ToAddr2 = ""
    ToAddr = RS("member_email")
    ToAddr2 = Rs("member_email2")
    FromName = Request.Form("name")
    Message = Request.Form("message")
    FromAddr = Request.Form("from")
    Subject = "E-mail from the SPN Men's Club website"

    MT = ""
    MT = "This E-mail was sent to you via the SPN Men's Club website." & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "Date sent: " & Now() & CHR(13) & CHR(10)
    MT = MT & "From: " & FromName & CHR(13) & CHR(10)
    MT = MT & "E-mail: " & FromAddr & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "---------------- SENDER'S MESSAGE -------------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & Message & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)
    MT = MT & "--------------- END SENDER'S MESSAGE ---------------" & CHR(13) & CHR(10)
    MT = MT & "" & CHR(13) & CHR(10)


    if ToAddr <> "" then
    Set myCDONTSMail = CreateObject("CDONTS.NewMail")
    myCDONTSMail.Send FromAddr, ToAddr, Subject, MT
    Set myCDONTSMail = Nothing
    end if
    if ToAddr2 <> "" then
    Set myCDONTSMail = CreateObject("CDONTS.NewMail")
    myCDONTSMail.Send FromAddr, ToAddr2, Subject, MT
    Set myCDONTSMail = Nothing
    end if

    rs.movenext
    loop


    end if

    end if
    Response.Write "<center><font color='red'><h2>" & Donemessage & "</h2></font></center>"
    %>

    <!--#include file="bottom.asp"-->




    I know to change the "CDONTS" to "CDOSYS" and change "CDONTS.NewMail" to "CDO.Message".

    When I try to send an email, it gives me this message:

    Microsoft VBScript runtime error '800a01c2'

    Wrong number of arguments or invalid property assignment: 'Send'

    /emailsend.asp, line 33
     

Share This Page