ASP Email not working on Windows 2003

Results 1 to 2 of 2

Thread: ASP Email not working on Windows 2003

  1. #1
    Join Date
    Dec 1969

    Default ASP Email not working on Windows 2003

    Hello chaps, <BR><BR>I&#039;ve been developing a website on Windows Server 2003 and then moved it onto my main server which runs Windows 2000 Server. None of the email systems are working and every time a page tries to send an email the error "error &#039;80040211&#039;" is returned. <BR><BR>I&#039;m using the following code: <BR><BR>&#060;!-- METADATA TYPE="typelib" <BR> FILE="C:Program FilesCommon FilesSystemadomsado15.dll" --&#062; <BR><BR>&#060;% <BR> Dim MyBody <BR> Dim MyCDONTSMail <BR>%&#062; <BR>&#060;% <BR> If Not Request.Form("Email") = Request.Form("Email2") Then <BR> Response.Redirect "email.asp?Id=1" <BR> End If <BR>%&#062; <BR>&#060;% <BR> Dim objConn <BR> Set objConn = Server.CreateObject("ADODB.Connection") <BR> objConn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI; " & _ <BR> "Persist Security Info=False; " & _ <BR> "Initial Catalog=flymil;Data Source=localhost" <BR><BR> Dim rsPerson <BR> Set rsPerson = Server.CreateObject("ADODB.RecordSet") <BR> rsPerson.Open "Certificates", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable <BR> rsPerson.Filter = "CID = " & Session("CID") <BR><BR> rsPerson("NewEmail") = Request.Form("Email") <BR> rsPerson.Update <BR>%&#062; <BR> Set MyCDONTSMail = CreateObject("CDONTS.NewMail") <BR> MyCDONTSMail.From= "" <BR> MyCDONTSMail.To= Request.Form("Email") <BR> MyCDONTSMail.Subject="Confirm email address" <BR> MyBody = "Dear " & Session("FirstName") & "," & vbCrLf & vbCrLf <BR> MyBody = MyBody & "You recently requested to change your email address via the Fly Military website. Please follow the link below to confirm this change. If you do not follow this step your address will not be changed." & vbCrLf & vbCrLf <BR> MyBody = MyBody & "" & Session("CID") & "&RegNo=" & rsPerson("RegNo") & vbCrLf & vbCrLf <BR> MyBody = MyBody & "NATVAT Auto Mail System" <BR> MyCDONTSMail.Body= MyBody <BR> MyCDONTSMail.Send <BR> set MyCDONTSMail=nothing <BR>%&#062; <BR>&#060;% <BR> rsPerson.Close <BR> Set rsPerson = Nothing <BR> <BR> objConn.Close <BR> Set objConn = Nothing <BR>%&#062; <BR>&#060;% <BR> Response.Redirect "email3.asp?Id=" & Request.Form("Email") <BR>%&#062; <BR><BR>Any info would be gratefully received. <BR><BR>Adrian

  2. #2
    Join Date
    Dec 1969

    Default CDONTS doesn't exist..

    .. on anything after Windows 2000.<BR><BR>It&#039;s been replaced with CDOSYS.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts