DTS Script, Array problem

[nollieflip]

I am writing a script that is getting used a DTS package for SQL server 2000. The VBScript parser is hanging on the following snippet, specifically the first line. Parsing error, expected ')'. Anyone have any ideas? Maybe my syntax is way off, I'm a bit rusty...

Dim aryPCOLevel(0 To 2) As Integer

aryPCOLevel(0) = "DTSSource("Field1&quot"
aryPCOLevel(1) = "DTSSource("Field2&quot"
aryPCOLevel(2) = "DTSSource("Field3&quot"

intHigh = aryPCOLevel(0)
For i = 2 To UBound(aryPCOLevel)
If aryPCOLevel(i) > intHigh Then
intHigh = aryPCOLevel(i)
End If
End Sub

DTSDestination("CFPSomeField&quot = intHigh

 

[ralphtrent]

try this for your first line
Dim aryPCOLevel(2)

Leave off the "0 to" and "as integer"

 

[PHV]

In VBScript you can't use typed variable as in VBA or VB.

Hope This Help
PH.