<%@ Language=VBScript %>
<%
Option Explicit
Dim oExecDTS
Dim sServer, sPackageName
Dim bResult
sServer = "(local)"
sPackageName = "cinfoUpdate"
Set oExecDTS = CreateObject("SQLDTS_ExecDTS.ExecutePackage")
bResult = oExecDTS.Execute(sServer, sPackageName)
If bResult Then
Response.Write "Package " & sPackageName & " succeeded
"
Else
Response.Write "Package " & sPackageName & " failed
"
Response.Write "" & Replace(oExecDTS.GetErrorDetails, vbCrLf, "
") & "
"
End If
Set oExecDTS = Nothing
%>