question

Hi guys i am trying to make this work but i have no idea of what to do please help me

i need to put this in a script task but ssis do not recognize mi code what can i do?

'**********************************************************************                    
'  Visual Basic ActiveX Script                    
'************************************************************************                    
Function Main()                    
    activo = false                    
                    
    'set  oPkg = DTSGlobalVariables.Parent                    
                    
    'For Each oStep In oPkg.Steps                    
    	nombreTask = oPkg.Tasks(oStep.TaskName).Name                    
    	if mid(nombreTask,1,instrRev(nombreTask,"_")-1) = "DTSTask_DTSDataPumpTask" or mid(nombreTask,1,instrRev(nombreTask,"_")-1) = "DTSTask_DTSExecuteSQLTask" then                    
    		oStep.JoinTransactionIfPresent = activo                    
    		oStep.RollbackFailure = activo                    
    	end if                    
    'next                    
                    
    Main = DTSTaskExecResult_Success                    
End Function