Server.CreateObject 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.CreateObject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateObject 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.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateObject("CDO.Configuration")

Set Fields = objConfig.Fields
With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort '
..Item(cdoSMTPServer) = "exchangeserver"
..Item(cdoSMTPServerPort) = 25
..Item(cdoSMTPConnectionTimeout) = 10
..Item(cdoSMTPAuthenticate) = cdoBasic
..Item(cdoSendUserName) = "web"
..Item(cdoSendPassword) = "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.CreateObject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateObject 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.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateObject("CDO.Configuration")

Set Fields = objConfig.Fields
With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort '
..Item(cdoSMTPServer) = "exchangeserver"
..Item(cdoSMTPServerPort) = 25
..Item(cdoSMTPConnectionTimeout) = 10
..Item(cdoSMTPAuthenticate) = cdoBasic
..Item(cdoSendUserName) = "web"
..Item(cdoSendPassword) = "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" <pandurangATthinkingmsDOT(nospam)com> wrote in message
news:38**********************************@microsof t.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.CreateObject Access Error

/gsic_completion/lib/utility.ASP, line 75

The call to Server.CreateObject 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.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

line 75 -> Set objConfig = Server.CreateObject("CDO.Configuration")

Set Fields = objConfig.Fields
With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort '
..Item(cdoSMTPServer) = "exchangeserver"
..Item(cdoSMTPServerPort) = 25
..Item(cdoSMTPConnectionTimeout) = 10
..Item(cdoSMTPAuthenticate) = cdoBasic
..Item(cdoSendUserName) = "web"
..Item(cdoSendPassword) = "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
cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort=2
Const
cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"

Const
cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const
cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Const
cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

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

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

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
..Item(cdoSendUsingMethod) = cdoSendUsingPort
..Item(cdoSMTPServer) = "smtp.163.com" ' change into a external SMTP
you have.
..Item(cdoSMTPServerPort) = 25
..Item(cdoSMTPConnectionTimeout) = 10
..Item(cdoSMTPAuthenticate) = cdoBasic
..Item(cdoSendUserName) = "zhixp_2008" 'this is my name in smtp.163.com

..Item(cdoSendPassword) = "12112182518" 'my password
..Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = 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\Output.txt"'attachment
..Send
End With

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

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