Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums  SQL Server 2000 Forums  Import/Export (DTS) and Replication (2000)  ASP and DTS - copy data failed

Author  Topic  ddxpm83 Starting Member 1 Post Posted - 2004-07-02 : 13:07:53 Hi I have set up my asp page to run a dts package from sql server. It imports Excel spreadsheets as tables in Sql. When i click my button to run the DTS package it produces these results.... Step [Create Table [Checklist].[checklist].[hcldp] Step] succeeded Task "Create Table [Checklist].[checklist].[hcldp] Task" Step [Copy Data from hcldp$ to [Checklist].[checklist].[hcldp] Step] failed Task "Copy Data from hcldp$ to [Checklist].[checklist].[hcldp] Task" Step [Create Table [Checklist].[checklist].[hclpool] Step] succeeded Task "Create Table [Checklist].[checklist].[hclpool] Task" Step [Copy Data from hclpool$ to [Checklist].[checklist].[hclpool] Step] failed Task "Copy Data from hclpool$ to [Checklist].[checklist].[hclpool] Task" Package [hcltestpack] failed Done --------------- I am lost as to why it is not able to copy the data. it creates the table but does not copy the data. it worked fine in a VB 6.0 app that i created but not in asp. I have set up on my IIS IUSR_(computer name) and using integrated windows authentication. ON the sql end, i am using a SQL Server authentication. The packages have also been created under the SQL server user. any help would be so greatly appreciated. below is my code.... Const DTSSQLStgFlag_Default = 0 Const DTSStepExecResult_Failure = 1 Dim oPkg, oStep, sMessage, bStatus Set oPkg = Server.CreateObject("DTS.Package") oPkg.LoadFromSQLServer "HOME-SQL","checklist","hc",DTSSQLStgFlag_Default,"","","","hcltestpack" oPkg.Execute() bStatus = True For Each oStep In oPkg.Steps sMessage = sMessage & " Step [" & oStep.Name & "] " If oStep.ExecutionResult = DTSStepExecResult_Failure Then sMessage = sMessage & " failed " bStatus = False Else sMessage = sMessage & " succeeded " End If sMessage = sMessage & " Task """ & oPkg.Tasks(oStep.TaskName).Description & """" Next If bStatus Then sMessage = sMessage & " Package [" & oPkg.Name & "] succeeded " Else sMessage = sMessage & " Package [" & oPkg.Name & "] failed " End If Response.Write sMessage Response.Write "Done" %>