Microsoft VBScript runtime error '800a0046' CDONTS

cherisc · Oct 18, 2005

I am a network tech, not a programmer.

I have a customer running the following code on our Windows 2000 IIS 5.0 server and when I try to directly open the page using IE6, I get the error:
Microsoft VBScript runtime error '800a0046'

Permission denied

/xxxxx_xxxxxxxx/xxxxxxxxx.asp, line 159

I belive it is a permissions error, but I don't know where.
Any Ideas??
<%
strHTML = "<html><head><title>Customer Order</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & _
"</head><body bgcolor='#FFFFFF' text='#000000' marginwidth='0' marginheight='0' topmargin='0' leftmargin='0'>" & _
"<table width='450' border='0' cellspacing='2' cellpadding='2' bgcolor='#FFFFFF'>" & _
"<tr bgcolor='#FF0000'><td colspan='2'><div align='center'>Customer Color Selector Order</div></td>" & _
"</tr><tr bgcolor='#000000'><td width='150'><div align='center'>Sections & Color</div>" & _
"</td><td><div align='center'>Item Style: " & Request("style") & "</div>" & _
"</td></tr><tr><td width='175' valign='top'>"
if Request("c1Color") <> "" Then
strHTML = strHTML & "Collar 1: " & Request("c1Color") & " "
end if

if Request("c2Color") <> "" Then
strHTML = strHTML & "Collar 2: " & Request("c2Color") & " "
end if

if Request("c3Color") <> "" Then
strHTML = strHTML & "Collar 3: " & Request("c3Color") & " "
end if

if Request("yColor") <> "" Then
strHTML = strHTML & "Yoke: " & Request("yColor") & " "
end if

if Request("ysColor") <> "" Then
strHTML = strHTML & "Yoke Stripe: " & Request("ysColor") & " "
end if

if Request("slColor") <> "" Then
strHTML = strHTML & "Sleeves: " & Request("slColor") & " "
end if

if Request("cfColor") <> "" Then
strHTML = strHTML & "Cuff: " & Request("cfColor") & " "
end if

if Request("gColor") <> "" Then
strHTML = strHTML & "Graphic: " & Request("gColor") & " "
end if

if Request("hColor") <> "" Then
strHTML = strHTML & "Hem: " & Request("hColor") & " "
end if

if Request("hyColor") <> "" Then
strHTML = strHTML & "Hem & Yoke: " & Request("hyColor") & " "
end if

if Request("sdColor") <> "" Then
strHTML = strHTML & "Sides: " & Request("sdColor") & " "
end if

if Request("s1Color") <> "" Then
strHTML = strHTML & "Stripe 1: " & Request("s1Color") & " "
end if

if Request("s2Color") <> "" Then
strHTML = strHTML & "Stripe 2: " & Request("s2Color") & " "
end if

if Request("s3Color") <> "" Then
strHTML = strHTML & "Stripe 3: " & Request("s3Color") & " "
end if

if Request("bColor") <> "" Then
strHTML = strHTML & "Body: " & Request("bColor")
end if

strHTML = strHTML & "</td><td width='275'> " & _
" <div align='center'><img src='

http://www.X1XXXXXX.com/xxxxx_xxxxxxxx/xxxx_xxxx/"

& request("productPic") & "' align='middle'></div>" & _
"</td>" & _
"</tr>" & _
"<tr> " & _
"<td colspan='2'> " & _
" <table width='440' border='0' cellspacing='2' cellpadding='2' align='center'>" & _
" <tr bgcolor='#FF0000'> " & _
" <td colspan='2'> " & _
" <div align='center'>Customer " & _
" Information:</div>" & _
" </td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'> " & _
" Name: " & _
"</td>" & _
" <td width='365'>" & Request("Name") & "</td>" & _
"</tr>" & _
"<tr> " & _
" <td width='75' bgcolor='#000000'>Address: </td>" & _
" <td width='365'>" & Request("Address") & "</td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'>City: </td>" & _
" <td width='365'>" & Request("City") & "</td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'>State: </td>" & _
"<td width='365'>" & Request("State") & "</td>" & _
"</tr>" & _
"<tr> " & _
" <td width='75' bgcolor='#000000'>Zip Code: </td>" & _
" <td width='365'>" & Request("Zip") & "</td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'>Phone: </td>" & _
" <td width='365'>" & Request("Phone") & "</td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'>Email: </td>" & _
" <td width='365'>" & Request("Email") & "</td>" & _
"</tr>" & _
"<tr> " & _
"<td width='75' bgcolor='#000000'> " & _
"PO #: " & _
"</td>" & _
"<td width='365'>" & Request("PO") & "</td>" & _
"</tr>" & _

"</table>" & _
"</td>" & _
"</tr>" & _
"</table>" & _
"</body>" & _
"</html>"

Dim objEmail
set objEmail = server.CreateObject("CDONTS.NewMail")
with objEmail
' .To = "XXXXXXX@aol.com"
.To = "xxxxx@x1xxxxxx.com"
.From = "xxxxx@x1xxxxxx.com"
.Importance = 1
.Subject = "Customer Web Site Order"

''.Body = '<HTML><BODY>Name: ' & Request('Name') & ' Stripe 2 Color:' & Request('s2Color') & ' </body></html>'
.Body = strHTML
.BodyFormat = 0
.MailFormat = 0
.Send
end with
set objEmail = nothing

%>

DotNetGnat · Oct 18, 2005

make sure that the IUSR_Machine name has all the required permissions to use the CDONTS mail object...also make sure that you can use CDONTS...CDOSYS replaced CDONTS...

-DNG

cherisc · Oct 18, 2005

Thank you for the quick response DotNetGnat. I already figured it is some kind of permissions problem, but I don't know which permissions CDONTS needs. Any suggestions?

DotNetGnat · Oct 18, 2005

here is the answer to your question...

http://support.microsoft.com/default.aspx?scid=kb;EN-US;197619

-DNG

DotNetGnat · Oct 18, 2005

also i found this resoultion online

Code:

To resolve this error, follow these steps: 1. Open the Windows NT Explorer and browse to your mail folders. By default, this is the X:\InetPub\MailRoot folder, where X: is the drive that you specified during the installation of NTOP. 
2. Right-click the Pickup folder, and then click Properties. 
3. On the Security tab, click Permissions. 
4. If the IIS user accounts are listed, IUSR_<computer> and IWAM_<computer> are the defaults, skip to step 13. 
5. Click Add. 
6. Select your computer in the List Names From: drop-down menu. 
7. Click Show Users. 
8. Highlight the IUSR_<computer> Internet guest account and the IWAM_<computer> impersonation account, then click Add. 
9. Click Change in the Type Of Access drop-down menu. 
10. Click OK to close the Add Users And Groups dialog. 
11. Click OK to close the Directory Permissions dialog. 
12. Click OK to close the Directory Properties dialog. 
13. Repeat steps 2 through 12 for each folder under the MailRoot folder.

-DNG

cherisc · Oct 18, 2005

I already tried that article. It did not work. Got anything else?

cherisc · Oct 18, 2005

On the same server, but under a different virtual directory, I tried this code:
<%
Set FS = CreateObject("Scripting.FileSystemObject")
' Get the physical folder of the current page
myPath = FS.GetParentFolderName(Request.ServerVariables("PATH_TRANSLATED"))
Set myFolder = FS.GetFolder(myPath)
' Get the drive of the physical folder
Set myDrive = myFolder.Drive
' Find out how much free space is available on that drive
FreeSpace = CInt(myDrive.FreeSpace / 1000000)
If FreeSpace < 100 Then
' Under 100 MB of diskspace is availabe
Response.Write "Only " & FreeSpace & "MB of diskspace is available."
Else
Response.Write "Success"
End If
%>
With these results:
Microsoft VBScript runtime error '800a0046'

Permission denied

/test2.asp, line 9

This leads me to believe that this is not specific to CDONTS.

Sheco · Oct 18, 2005

Like DNG said, the IUSR_MachineName wont have access to much unless you grant it.

cherisc · Oct 19, 2005

I have tried adding IUSR_XXXXX to the system32 folder with no luck. The IUSR_XXXXX also has access to all of the subfolders of the mailroot folder and to the directory that the web site is located in. Is there another place where I should grant permissions?

Sheco · Oct 19, 2005

As a test you might want to un-check anonymous access and connect with an account that has local admin on the web server, just to see what happens.

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!

Microsoft VBScript runtime error '800a0046' CDONTS

cherisc

ISP

DotNetGnat

Programmer

cherisc

ISP

DotNetGnat

Programmer

DotNetGnat

Programmer

cherisc

ISP

cherisc

ISP

Sheco

Programmer

cherisc

ISP

Sheco

Programmer

Similar threads

Part and Inventory Search

Sponsor