I have a ActiveX Scripting in DTS package.

When i run the package it gives an error msg,
"Activex Scripting : Function Not found"

When i execute the same file from my local machine as a .vbs script, it
runs fine. I am puzzled.
Please help if i am neglecting something.

Thanks


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

So it does not work in DTS but does outside of DTS?

and what is the function?

--
--

Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP)
www.SQLDTS.com - The site for all your DTS needs.
www.konesans.com - Consultancy from the people who know


"Help" <help (AT) devdex (DOT) com> wrote

To what function is it referring?

Robert.

"Help" wrote:

Thats right. It does not work in DTS.
I scheduled as a Job also thinking its related to permissions of the
server. But it gives an error in that also. I have posted my code in the
previous post.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

The function is to get only the required rows from a source file.
Here's my code..

Main()

Function Main()
Dim fso
Dim sTempFileName
Dim fReutersWM11
Dim fInputWM11
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim sLine, sValid

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("\\MFTP_SERVER\MFTP_PROD\Input\GECA P.csv") = true
Then

Set fReutersWM11 =
fso.opentextfile("\\MFTP_SERVER\MFTP_PROD\Input\GE CAP.csv" , ForReading,
true)

sTempFileName ="\\MFTP_SERVER\MFTP_PROD\Input\TempGECAP.csv"
Set fInputWM11 = fso.opentextfile(sTempfileName,ForAppending,True)



'Readline line by line from source
Do while fReutersWM11.AtEndofline <> true
sLine = fReutersWM11.Readline
sValid = Left(sLine,3)
'If Starts with Datevalue then Valid
If sValid = "200" then
'Writeline to TempGECAP file
fInputWM11.WriteLine sLine
End if
Loop
fReutersWM11.close()
fInputWm11.close()

Else
Main = DTSTaskExecResult_Failure

End if


Main = DTSTaskExecResult_Success
End Function





*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

What's the Main() stuck out on its own there for?

--
--

Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP)
www.SQLDTS.com - The site for all your DTS needs.
www.konesans.com - Consultancy from the people who know


"Help" <help (AT) devdex (DOT) com> wrote

I removed the Main(). And Put in a Option Explicit.
Still gives same error.



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Try changing close() to just close, with no parenthesis.

Robert.

"Help" wrote:

In message <uxhwAvL2EHA.2676 (AT) TK2MSFTNGP12 (DOT) phx.gbl>, Help
<help (AT) devdex (DOT) com> writes
Check that the entry function in the ActiveX Script Task UI is valid,
normally this is Main.



--
Darren Green (SQL Server MVP)
DTS - http://www.sqldts.com

PASS - the definitive, global community for SQL Server professionals
http://www.sqlpass.org