Server.CreateOb ject problem - ASP

[Bill Nguyen]

Win 2003
IIS 6.0

My users got this error message trying to run a simple ASP application
(sending email using CDO). I have no problem ( with Admin permission):
Server object error 'ASP 0178 : 80070005'

Server.CreateOb ject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateOb ject failed while checking permissions. Access is
denied to this object.

Tracing to the app, line# 75 shown below. Please help to set the
permission/config right.

Thanks

Bill

Dim objConfig ' As CDO.Configurati on
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateOb ject("CDO.Confi guration")

Set Fields = objConfig.Field s
With Fields .Item(cdoSendUs ingMethod) = cdoSendUsingPor t '
..Item(cdoSMTPS erver) = "exchangeserver "
..Item(cdoSMTPS erverPort) = 25
..Item(cdoSMTPC onnectionTimeou t) = 10
..Item(cdoSMTPA uthenticate) = cdoBasic
..Item(cdoSendU serName) = "web"
..Item(cdoSendP assword) = "net"
..Update

End With

[Pandurang Nayak]

http://support.microsoft.com/default.aspx/kb/198432

--
blog: www.thinkingMS.com/pandurang
"Bill Nguyen" wrote:

Win 2003
IIS 6.0

My users got this error message trying to run a simple ASP application
(sending email using CDO). I have no problem ( with Admin permission):
Server object error 'ASP 0178 : 80070005'

Server.CreateOb ject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateOb ject failed while checking permissions. Access is
denied to this object.

Tracing to the app, line# 75 shown below. Please help to set the
permission/config right.

Thanks

Bill

Dim objConfig ' As CDO.Configurati on
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateOb ject("CDO.Confi guration")

Set Fields = objConfig.Field s
With Fields .Item(cdoSendUs ingMethod) = cdoSendUsingPor t '
..Item(cdoSMTPS erver) = "exchangeserver "
..Item(cdoSMTPS erverPort) = 25
..Item(cdoSMTPC onnectionTimeou t) = 10
..Item(cdoSMTPA uthenticate) = cdoBasic
..Item(cdoSendU serName) = "web"
..Item(cdoSendP assword) = "net"
..Update

End With

[Bill Nguyen]

Thanks but it won't work!
This err is specific to CDO. I think it has something to do with IIS
permissions than with anything else.

Bill
"Pandurang Nayak" <pandurangATthi nkingmsDOT(nosp am)com> wrote in message
news:38******** *************** ***********@mic rosoft.com...

http://support.microsoft.com/default.aspx/kb/198432

--
blog: www.thinkingMS.com/pandurang
"Bill Nguyen" wrote:

Win 2003
IIS 6.0

My users got this error message trying to run a simple ASP application
(sending email using CDO). I have no problem ( with Admin permission):
Server object error 'ASP 0178 : 80070005'

Server.CreateOb ject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateOb ject failed while checking permissions. Access
is
denied to this object.

Tracing to the app, line# 75 shown below. Please help to set the
permission/config right.

Thanks

Bill

Dim objConfig ' As CDO.Configurati on
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateOb ject("CDO.Confi guration")

Set Fields = objConfig.Field s
With Fields .Item(cdoSendUs ingMethod) = cdoSendUsingPor t '
..Item(cdoSMTPS erver) = "exchangeserver "
..Item(cdoSMTPS erverPort) = 25
..Item(cdoSMTPC onnectionTimeou t) = 10
..Item(cdoSMTPA uthenticate) = cdoBasic
..Item(cdoSendU serName) = "web"
..Item(cdoSendP assword) = "net"
..Update

End With

[pen]

1.when cann't connect the smtp ,explore'll report a error that could not
access 'cdo.message' object. you maybe have a firewall or your smtp
server does not exist.
2.you have not enough access authorization.

--
pen
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

[pen]

Bellow is my example. I hope it will be helpful for you

Const
cdoSendUsingMet hod="http://schemas.microso ft.com/cdo/configuration/sendusing"

Const cdoSendUsingPor t=2
Const
cdoSMTPServer=" http://schemas.microso ft.com/cdo/configuration/smtpserver"

Const
cdoSMTPServerPo rt="http://schemas.microso ft.com/cdo/configuration/smtpserverport"

Const
cdoSMTPConnecti onTimeout="http ://schemas.microso ft.com/cdo/configuration/smtpconnectiont imeout"

Const
cdoSMTPAuthenti cate="http://schemas.microso ft.com/cdo/configuration/smtpauthenticat e"

Const cdoBasic=1
Const
cdoSendUserName ="http://schemas.microso ft.com/cdo/configuration/sendusername"

Const
cdoSendPassword ="http://schemas.microso ft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configurati on
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateOb ject("CDO.Confi guration")
Set Fields = objConfig.Field s

With Fields
..Item(cdoSendU singMethod) = cdoSendUsingPor t
..Item(cdoSMTPS erver) = "smtp.163.c om" ' change into a external SMTP
you have.
..Item(cdoSMTPS erverPort) = 25
..Item(cdoSMTPC onnectionTimeou t) = 10
..Item(cdoSMTPA uthenticate) = cdoBasic
..Item(cdoSendU serName) = "zhixp_2008 " 'this is my name in smtp.163.com

..Item(cdoSendP assword) = "1211218251 8" 'my password
..Update
End With

Set objMessage = Server.CreateOb ject("CDO.Messa ge")
Set objMessage.Conf iguration = objConfig

With objMessage
..To = "pe*@liray.com. cn" 'addressee
..From = "zh********@163 .com" 'addresser
..Subject = "CDO TEST" 'title
..TextBody = "Test CDO without SMTP which is setuped on your computer."
'Textbody
'.AddAttachment "C:\Scripts\Out put.txt"'attach ment
..Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

--
pen
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------