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