CDO Sys Email on Win2K Server

Results 1 to 2 of 2

Thread: CDO Sys Email on Win2K Server

  1. #1
    Join Date
    Dec 1969

    Default CDO Sys Email on Win2K Server

    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 I have no idea but

    google would be a good place to start:<BR><BR><BR><BR>several hits.

Posting Permissions

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