Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help with Cdonts error

Status
Not open for further replies.

Ragol1

Programmer
Oct 25, 2001
315
US
This simple cdonts script has been working on my server and now for some reason Im getting this error. I have tried re registering the DLL.

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object

/testcdonts.asp, line 28
-------------------------------

heres the code....... I know it works as I have the same thing on another server working...

<!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;>

<html>
<head>
<title>RS Test CDONTS asp Page</title>
</head>

<body bgcolor=&quot;#FFFFFF&quot; text=&quot;#000033&quot;>
<div align=&quot;center&quot;>
<basefont face=&quot;ariallana&quot; color=&quot;Black&quot;>
<b><font size=&quot;+1&quot;><%= error%></font></b>


<%

message = message & &quot;==========Test==============&quot; & chr(13)
message = message & &quot;If you received this message, the CDONTS is working properly on your server&quot; & chr(13) & chr(13)
message = message & &quot;Feel Free to modify this script to your needs to get your scripts working properly&quot; & chr(13) & chr(13)

' Replace the email address below with your email address to test.'

MailTo = &quot;me@myserver.com&quot;
MailFrom = &quot;Test@mydomain.com&quot;

if message <> &quot;&quot; then

set objNewMail = CreateObject(&quot;CDONTS.NewMail&quot;)
objNewMail.From = MailFrom
objNewMail.To = MailTo
objNewMail.Subject = &quot;CDO Test Mail&quot;
objNewMail.Body = message
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 1
objNewMail.Importance = 1
objNewMail.Send
set objNewMail = Nothing

end if

%>

Thank you for testing the CDONTS on this server.<br>
Please check the email for <%= MailTo %> to verify it was successful
</body>
</html>

Thanks
Nick

 
sounds like a IIS issue. has any updates or maint. been performed recently on the server. is the CDONTS.dll still in place?

_________________________________________________________
$str = &quot;sleep is good for you. sleep gives you the energy you need to function&quot;;
$Nstr = ereg_replace(&quot;sleep&quot;,&quot;coffee&quot;,$str); echo $Nstr;

onpnt2.gif
[/sub]
 
The cdont's is still in place and has even been replaced, it probably is an IIS issue, Im just looking to see if anyone knows what it is.

Thanks
Nick
 
set objNewMail = CreateObject(&quot;CDONTS.NewMail&quot;)
should it be
set objNewMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top