Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 440
  • Last Modified:

Server object error 'ASP 0177 : 800401f3'

Hello, Could u help me to rectify this error...

************************************************
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/amazingflash/pmentor/incgenmail.asp, line 4

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
************************************************

Script inside incgenmail.asp is the following

<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
   Dim objMail
   set objMail = server.createobject("SMTPsvg.Mailer")
   objMail.FromName = sFromEmail
   objMail.FromAddress = sFromEmail
   objMail.RemoteHost = sEmailServer
   objMail.AddRecipient sToEmail, sToEmail
   objMail.Subject = sSubject
   objMail.BodyText = sText
   if objMail.SendMail then
     SendEmail = ""
   else
      ' Message send failure
      SendEmail = objMail.Response
   end if
   Set objMail = nothing
End Function
%>
0
tenthmonkey
Asked:
tenthmonkey
  • 14
  • 13
  • 6
1 Solution
 
mgfranzCommented:
Did you register the component?
0
 
thunderchickenCommented:
You either didn't type in the dll correctly or it's not registered on the web server.  Can't you do CDONTS?
0
 
mgfranzCommented:
C:\ >Regsvr32 <pathtodll>\<dllname.dll>.
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
tenthmonkeyAuthor Commented:
I used CDONTS.NewMail instead of "SMTPsvg.Mailer" then also it is not working...now it's showing this error



Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objMail.FromName'

/amazingflash/pmentor/incgenmail.asp, line 5
0
 
mgfranzCommented:
Do you have SMTP services running?
0
 
thunderchickenCommented:
CDonts is different syntax:

<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
  Dim objMail
  set objMail = server.createobject("CDONTS.NewMail")
  objMail.From = sFromEmail
  objMail.RemoteHost = sEmailServer
  objMail.To sToEmail
  objMail.Subject = sSubject
  objMail.Body = sText
  objMail.Send
  Set objMail = nothing
End Function
%>
0
 
thunderchickenCommented:
objMail.To sToEmail

is

objMail.To = sToEmail
0
 
tenthmonkeyAuthor Commented:
yes, CDONTS is working for my other script in the same server.
0
 
tenthmonkeyAuthor Commented:
I added the CDONTS script which thunderchicken had given,
Its giving this error now,
...............
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Server.CreateObject'

/amazingflash/pmentor/inccard.asp, line 21
.................

In inccard.asp, line 21, it's like this

Function Postcard_GetDatabaseConn()
     Dim oRet
     Set oRet = Server.CreateObject     ("ADODB.Connection")
     oRet.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("postcardmentor.mdb")
     Set Postcard_GetDatabaseConn = oRet
End Function
0
 
thunderchickenCommented:
Are you programming in ASP, VB or COM?  YOu might have to change it to CreateObject instead of Server.CreateObject, and that might be the cause of your first error if that component was successfully registered.
0
 
mgfranzCommented:
Do you have the MDAC drivers loaded?

What are you trying to do?
0
 
tenthmonkeyAuthor Commented:
I'm really confused. Pls go to http://user.7host.com/amazingflash/pmentor/default.asp 

ftp.7host.com
amazingflash
kbt6517

It's a postcard site, if you could make that working...then I'll be thankful to you...

Thank you for all, for all your helps
0
 
tenthmonkeyAuthor Commented:
it's in pmentor folder
0
 
thunderchickenCommented:
try a simple page...

make this page email.asp

<%
dim mymail
set mymail = server.createobject("CDONTS.Newmail")
mymail.to = "[your email address here]"
mymail.from =  "[your email address here]"
mymail.subject = "TEST EMAIL"
mymail.body = "TEST BODY"
mymail.send
set mymail = Nothing
%>

This is simple and will check to see if everything is running.  If this doesn't work, you don't have CDONTS installed on your web server.
0
 
thunderchickenCommented:
We can't look at your ASP code from the internet.

Replace the "[your email address here]" with your email address.  if you get an email then we can go from there.
0
 
tenthmonkeyAuthor Commented:
I'm sure CDONTs is installed, coz  http://user.7host.com/amazingflash/pm1/index.asp is working using CDONTS only...
0
 
tenthmonkeyAuthor Commented:
for that only I gave you the ftp access...
ftp.7host.com
user ID: amazingflash
Pww: kbt6517
0
 
thunderchickenCommented:
I'd prefer not to go to your site directly for security issues.  Can you post your whole page on here instead?  I'd change your FTP password right away since you just broadcasted it to 400,000 EE users.
0
 
tenthmonkeyAuthor Commented:
it's ok! actually it's a freesite. I'm testing it here and then I want to put it in my actuall site. Pls check from there itself, coz it's too big to load here
0
 
tenthmonkeyAuthor Commented:
or I can send this to in your email...if you can give ur id plz..

0
 
thunderchickenCommented:
dave@fooltothink.com

mg, you still in on this?
0
 
tenthmonkeyAuthor Commented:
Pls check your mail...
0
 
mgfranzCommented:
Yeah I'm here but I have to run out to a clients site... did you get the pmentor dir files via FTP?

I can work on them later, but I have to run...
0
 
thunderchickenCommented:
gives me something to do until they register my dll on the serverf  :-)
0
 
tenthmonkeyAuthor Commented:
can you change the script for CDonts
0
 
thunderchickenCommented:
check in your pmentor folder for email.asp

this code works and tested, take out my email (dave@fooltothink.com) and replace it with yours.
0
 
thunderchickenCommented:
Worst case:

Sub SendMail (fromWho, toWho, Subject, Body)
  Dim mymail
  set mymail = Server.CreateObject("CDONTS.NewMail")
  mymail.from = fromWho
  mymail.to = toWho
  mymail.subject = Subject
  mymail.body = Body
  mymail.Send
  SET mymail = Nothing
END Sub

fromWho = "youremail@domain"
toWho = "tosomeone@domain"
Subject = "Whatever"
body = "Email Body"
sendmail fromwho,towho,subject,body


Good Luck!
0
 
thunderchickenCommented:
Has this been solved?
0
 
tenthmonkeyAuthor Commented:
Thank you very much thunderchicken. There is some minor problems still it's working. I hope I can rectify that too. I need one more favour from you. I want to send mail on a specified date. Could you help me to do that....
0
 
thunderchickenCommented:
Having another server, it's difficult.  The only way is to set it to run after a certain time.  Say you want it to email off at midnight, you'd have to wait until a page was accessed after that.  If no one came on until 5AM, it wouldn't email off until then.  If you have access to be able to schedule tasks (usually you can only do this if you run your own server), then you can run a VB program to do that for you.

You'll need similar to the following...

<%
if hour(now) > 12 And datediff("d",lasttimeemailed,now) > 1 then
   'email out
end if
%>

You could set lasttimeemailed out as an application variable
0
 
tenthmonkeyAuthor Commented:
Thank you Mr.Chick for your valuable help. I'm a fresher in ASP. So I need your help again I hope. Thank you very much for Mr.mgfranz too...Thanks for your concern....
0
 
tenthmonkeyAuthor Commented:
I'm waiting for get some more points in my account, then I'll give some points for you too, Mr.mgfranz....
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 14
  • 13
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now