Case syntax for DTS

[uncleroydee]

Will someone please send me a basic Case syntax for a DTS ActiveX package? I'm using VB Script and I'm looking for something as simple as
"Case
If DTSSource("source&quot = 1 then "Yes"
If DTSSource("source&quot = 0 then "No"
Else "Green"
End"

I guess I'm especially dense this morning.

Thanks.

 

[uncleroydee]

Found I was on wrong track. Should have been using If...Else statement. New wrinkle; I'm now getting error message "Expected 'End'" for the second line of the following statement:
If DTSSource("Lead center&quot = DSCC THEN DTSDestination("LeadCenter&quot = 1
ElseIf DTSSource("Lead center&quot = DSCP THEN DTSDestination("LeadCenter&quot = 2
ElseIf DTSSource("Lead center&quot = DSCR THEN DTSDestination("LeadCenter&quot = 3
Else DTSDestination("LeadCenter&quot = 0
End If

I thought the ElseIf statements could be "stacked" within the If...Else statement.

Any ideas out there?

Once again, thanks.

 

[uncleroydee]

Figured out all of my syntax issues. Thanks anyway.

 

[fluteplr]

DTS allows you to use lookup tables, I would suggest using them for code translations like this.