ActiveX object run but, code doesn't execute ?

[Recce]

Good day,

I have problem with an ActiveX object of mine.The object runs without any errors however, the below code doesn't execute in order to change the Global Variables.Can anyone spot anything wrong with my code or suggest any reasons why this may be. Thanks

'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************

Function Main()

Dim MyWeekDay

MyWeekDay = Weekday(Date)

If MyWeekDay = 2 Then

DTSGlobalVariables("Startdate").Value = CStr(Date-3)
DTSGlobalVariables("Enddate").Value = CStr(Date)

Else

DTSGlobalVariables("Startdate").Value = CStr(Date-1)
DTSGlobalVariables("Enddate").Value = CStr(Date)

End If

Main = DTSTaskExecResult_Success
End Function


"We know nothing but, that what we know is not the truth..." - Me

 

[100caratdiamond]

try
function main() as boolean
(or what ever type you are returning)

 

[Recce]

Hi 100caratdiamond,

Thanks for the info but, I'm not sure what you mean or what I should be doing. Could you please give me some more detail.

"We know nothing but, that what we know is not the truth..." - Me