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 "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>RS Test CDONTS asp Page</title>
</head>
<body bgcolor="#FFFFFF" text="#000033">
<div align="center">
<basefont face="ariallana" color="Black">
<b><font size="+1"><%= error%></font></b>
<%
message = message & "==========Test==============" & chr(13)
message = message & "If you received this message, the CDONTS is working properly on your server" & chr(13) & chr(13)
message = message & "Feel Free to modify this script to your needs to get your scripts working properly" & chr(13) & chr(13)
' Replace the email address below with your email address to test.'
MailTo = "me@myserver.com"
MailFrom = "Test@mydomain.com"
if message <> "" then
set objNewMail = CreateObject("CDONTS.NewMail"
objNewMail.From = MailFrom
objNewMail.To = MailTo
objNewMail.Subject = "CDO Test Mail"
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
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 "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>RS Test CDONTS asp Page</title>
</head>
<body bgcolor="#FFFFFF" text="#000033">
<div align="center">
<basefont face="ariallana" color="Black">
<b><font size="+1"><%= error%></font></b>
<%
message = message & "==========Test==============" & chr(13)
message = message & "If you received this message, the CDONTS is working properly on your server" & chr(13) & chr(13)
message = message & "Feel Free to modify this script to your needs to get your scripts working properly" & chr(13) & chr(13)
' Replace the email address below with your email address to test.'
MailTo = "me@myserver.com"
MailFrom = "Test@mydomain.com"
if message <> "" then
set objNewMail = CreateObject("CDONTS.NewMail"
objNewMail.From = MailFrom
objNewMail.To = MailTo
objNewMail.Subject = "CDO Test Mail"
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