I took some of my code out and now I am getting the following error :
Microsoft VBScript runtime error '800a0046'
Permission denied
/credit_reportin g/maintenance/business_subjec ts/jon.asp, line 11
Here is jon_email.vbs
This is getting really frustrating. I have gone on the server and given Read/Execute permission for IUSR_.... for wscript.exe, cscript.exe, jon.asp, jon_email.vbs and cdosys.dll. What else could it be???
Thx
jonpfl
Microsoft VBScript runtime error '800a0046'
Permission denied
/credit_reportin g/maintenance/business_subjec ts/jon.asp, line 11
Code:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim WSHShell, sTemp
Set WSHShell = CreateObject("WScript.Shell")
sTemp = "cscript " & server.MapPath("\credit_reporting\maintenance\business_subjects\jon_email.vbs") & ", 2, true"
'WSHShell.Run server.MapPath("\credit_reporting\maintenance\business_subjects\jon_test.vbs"), 1, true
'WSHShell.Run "cscript cmd /c echo hi > c:\temp\test.txt" , 0, TRUE
WSHShell.Run sTemp
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>jon</title>
</head>
<body onload="">
<table width="100%">
<tr><td>test</td></tr>
</table>
</body>
</html>
Code:
dim Mail
set Mail = CreateObject("CDO.Message")
'fill email fields
Mail.From= "jonp@tampabay.rr.com"
Mail.To= "jpessano@nacmtampa.com"
Mail.Subject="test"
Mail.TextBody="test"
Mail.Send 'email this message
set Mail = Nothing
Thx
jonpfl
Comment