Run DTS from ASP

<%
dim objDTSPackage 
dim objDTSStep 
dim strResult 
dim blnSucceeded 

const DTSSQLStgFlag_Default = 0 
const DTSStepExecResult_Failure = 1 

set objDTSPackage = Server.CreateObject("DTS.Package") 
blnSucceeded = true 

objDTSPackage.LoadFromSQLServer "(local)", "amucinoariastovar", "password", DTSSQLStgFlag_Default, "", "", "", "AriasTovarCMSEILA" 
objDTSPackage.Execute 

for each objDTSStep in objDTSPackage.Steps 
if objDTSStep.ExecutionResult = DTSStepExecResult_Failure then 
strResult = strResult & "Package " & objDTSStep.Name & " failed.<br>" 
blnSucceeded = false 
else 
strResult = strResult & "Package " & objDTSStep.Name & " succeeded.<br>" 
end if 
next 

if blnSucceeded then 
Response.Write "<h1>Package Succeeded</h1>" 
else 
Response.Write "<h1>Package Failed</h1>" 
end if 

Response.Write strResult 
%>