error '8004021a From CDO Form Help: asp, dreamweaver

error '8004021a From CDO Form Help

I am getting this error after installing the most recent version of IIS. It previously worked. The line of code it specifies looks like this:

objMsg.CreateMHTMLBody "http://www.MY-WEB-SITE.com/vrealestate/AutoRespondAgentListingActivated.asp?tbl_Listings_ID=" & Request("ID")

The ID gets pulled from a form field on the posting page.

Appreciate your time.

Instant Access to this Solution

Plus...

30 Day FREE access, no risk, no obligation

Collaborate with the world's top tech experts

Unlimited access to our exclusive solution database

Never be left without tech help again

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

"The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.

"Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin

"Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Hi Carrkiss.....

The ID does exist. This was working on our old server. Here is more code.

<%
Dim rs_listing__MMColParam
rs_listing__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  rs_listing__MMColParam = Session("MM_Username")
End If
%>
<%
Dim rs_listing
Dim rs_listing_cmd
Dim rs_listing_numRows
 
Set rs_listing_cmd = Server.CreateObject ("ADODB.Command")
rs_listing_cmd.ActiveConnection = MM_RealEstate_STRING
rs_listing_cmd.CommandText = "SELECT * FROM Q_FullListingInfo WHERE AgentUser = ? ORDER BY tbl_Listings_ID DESC" 
rs_listing_cmd.Prepared = true
rs_listing_cmd.Parameters.Append rs_listing_cmd.CreateParameter("param1", 200, 1, 50, rs_listing__MMColParam) ' adVarChar
 
Set rs_listing = rs_listing_cmd.Execute
rs_listing_numRows = 0
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
 
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
 
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
 
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
 
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
 
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next
 
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next
 
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
 
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Listing Maintenence</title>
<link href="../vadmin/admin.css" rel="stylesheet" type="text/css" />
</head>
 
<body>
<div class="Div_Wrapper">
  <div><img src="../vadmin/imx/logoRealEstate800x110.jpg" width="800" height="110" /></div>
  <table width="800" border="0" align="right" cellpadding="0" cellspacing="10">
  <tr><td>
  <%
    strMsg = strMsg & "" & Request.form("Mailer") &  vbCrLf
 
'and send that sucker
strFrom = "System@Varidyn.com"
strTo = Request.Form("AgentMail")
strBCC = "info@HomesOfGreaterCincinnati.com"
strSubject = "Your Home Is Now Featured Everywhere"
strBody = strMsg
lngImportance = 3
'old
'Set objMsg = Server.CreateObject("CDONTS.NewMail")
'new
Set objMsg = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")  = "127.0.0.1"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
Set objMsg.Configuration = objConf
'end new
objMsg.From = strFrom
objMsg.To = strTo
objMsg.BCC = strBCC
objMsg.Subject = strSubject
objMsg.CreateMHTMLBody "http://www.varidyn.com/vrealestate/AutoRespondAgentListingActivated.asp?tbl_Listings_ID=" & Request("ID")
'end changed
'objMsg.Importance = lngImportance
objMsg.Send
%>
  </td></tr>
    <tr>
      <td><p class="txt_DefautCenter"><a href="controls.asp">CONTROL</a> : <a href="<%= MM_Logout %>">LOGOUT</a></p>
        <form id="form1" name="form1" method="post" action="Thanks-Survey-Mailer.asp">
          <table width="500" align="center" cellspacing="5">
            <tr class="txt_DefautLeft">
              <td><p>Listing ID # <%=(rs_listing.Fields.Item("tbl_Listings_ID").Value)%> for the home listed at <%=(rs_listing.Fields.Item("PropertyAddress").Value)%>, <%=(rs_listing.Fields.Item("PropertyCity").Value)%>, <%=(rs_listing.Fields.Item("PropertyState").Value)%> has now been inserted. If you would desire Varidyn to send your client an optional notification of your efforts, along with links to the property web site, virtual tour and printable brochure,  with information about how this listing information will be syndicated throughout the Internet, you can do so from this page.</p>
              <p>The client name and email address that you have associated with with this listing can be seen in the form below. If this is the correct information, send the notification by clicking the submit button below. If the information is incorrect or missing, you can <a href="SurveyMailerEmailUpdate.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & rs_listing.Fields.Item("tbl_Listings_ID").Value %>">update it here</a>, and will be returned to this page after the update.</p></td>
            </tr>
            <tr class="txt_DefautCenter">
              <td>Name:
                <input name="ClientName" type="text" id="ClientName" value="<%=(rs_listing.Fields.Item("ListingSellerName").Value)%>" size="50" readonly="readonly" /></td>
            </tr>
            <tr class="txt_DefautCenter">
              <td>Email: 
                <input name="ClientMail" type="text" id="ClientMail" value="<%=(rs_listing.Fields.Item("ListingSellerEmail").Value)%>" size="50" readonly="readonly" /></td>
            </tr>
            <tr class="txt_DefautCenter">
              <td></td>
            </tr>
            <tr class="txt_DefautCenter">
              <td><input type="submit" name="Submit" id="Submit" value="Submit" />
              <input name="ID" type="hidden" id="ID" value="<%=(rs_listing.Fields.Item("tbl_Listings_ID").Value)%>" /></td>
            </tr>
          </table>
        </form>
      <p class="txt_DefautCenter">&nbsp;</p></td>
    </tr>
  </table>
</div>
</body>
</html>
<%
rs_listing.Close()
Set rs_listing = Nothing
%>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:

Select all Open in new window

Question

error '8004021a From CDO Form Help

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

asp

dreamweaver

Active Server Pages (ASP)

Miscellaneous Web Development

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press