www.webdeveloper.com
Results 1 to 2 of 2

Thread: help with cd0sys

  1. #1
    Join Date
    Jun 2012
    Location
    Seattle, Wa. USA
    Posts
    2

    help with cd0sys

    Can someone help please?
    I am getting this error:

    Server object, ASP 0177 (0x800401F3)
    System message, messageid = 0x800401f3
    cdosys2.asp, line 16

    my code is this:

    Dim fullname, email, address, city, stateprov, phone, contacted, descrip, company, zip, importance
    fullname = trim(Request.Form("name"))
    email = trim(Request.Form("email"))
    address = trim(Request.Form("address"))
    city = trim(Request.Form("city"))
    stateprov = trim(Request.Form("state"))
    phone = trim(Request.Form("phone"))
    contacted = trim(Request.Form("contacted"))
    descrip = Request.Form("description")
    company = Request.Form("company")
    zip = Request.Form("zip")
    importance = Request.Form("importance")

    Dim iMsg
    Set iMsg = Server.CreateObject("CDO.Message")

    Dim iConf
    Set iConf = CreateObject("CDO.Configuration")

    Dim Flds
    Set Flds = iConf.Fields
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
    Flds.Update

    Set iMsg.Configuration = iConf
    iMsg.To = "dispatch@myhostname.com"
    iMsg.From = "request@myhostname.com"
    iMsg.Subject = "Information Request Form"

    strBody = ""
    strBody = "Name: " & fullname & vbCrLf
    strBody = strBody & "Phone: " & phone & vbCrLf
    strBody = strBody & "Email: " & email & vbCrLf
    strBody = strBody & "Company: " & company & vbCrLf
    strBody = strBody & "Address: " & address & vbCrLf
    strBody = strBody & "City: " & city & vbCrLf
    strBody = strBody & "State: " & stateprov & vbCrLf
    strBody = strBody & "Zip: " & zip & vbCrLf & vbCrLf
    strBody = strBody & "Contacted: " & contacted & vbCrLf & vbCrLf
    strBody = strBody & "Importance: " & importance & vbCrLf & vbCrLf
    strBody = strBody & "Description: " & descrip & vbCrLf

    strbody = left(strbody,len(strbody)-2)

    iMsg.TextBody = strBody
    iMsg.Send

    If Err.Number > 0 Then
    Response.Write " Mailing Failed... Error is: <br>" & Err.Description & "<hr>"
    Err.Number = 0
    On Error Goto 0
    end if

    What am I doing wrong? any help would be greatly appreciated.

  2. #2
    Join Date
    Jun 2012
    Location
    Seattle, Wa. USA
    Posts
    2

    found solution

    found out the server didn't support the CDO protocol, and needed to implement JDOMail protocol. File is working now.

    found answer here

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

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



Recent Articles