Advertisement
Advertisement
| 01.09.2008 at 05:19AM PST, ID: 23069266 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: |
<%
Option Explicit
Dim oDTS
Dim vErrorMessage
Dim vCount
Dim vServer
Dim vUser
Dim vPassword
Dim vPackage
vPackage = "HARE"
vServer = "Mine"
vUser = "DTSLauncher"
vPassword = "XXX"
Set oDTS = Server.CreateObject("DTS.Package")
oDTS.LoadFromSQLServer vServer, vUser, vPassword, 0, "", "", "", vPackage
oDTS.Execute
For vCount = 1 To oDTS.Steps.Count
'If oDTS.Steps(vCount).ExecutionResult = 1 Then
vErrorMessage = vErrorMessage + "<p>Step " & vCount & " : " & oDTS.Steps(vCount).Name + " failed. " + chr(13)
'End If
Next
If vErrorMessage = "" Then
Response.Write "Success"
Else
Response.Write vErrorMessage
End If
Response.Write "<p>ASP Error : " & Err.Description
Set oDTS = Nothing
|