Syntax Error on a DTS Package script

[lesliec]

I created a DTS package. I am trying to use the DTS package to remove leading zeros from one of the fields (Number). Below is the script that I have so far. I get a syntax error when I run the pacakage.

Function Main()
DTSDestination("Action") = "NEW"
if DTSSource("OwnerAccountID") like '0%' then DTSDestination("Number") = substring (Number,2,len (Number)) else DTSDestination("Number") = DTSSource("OwnerAccountID") end if
Main = DTSTransformStat_OK
End Function

SQL Server 2000

[debasisdas]

As you have posted a question in the articles section it is being moved to SQL Server Forum.

MODERATOR.