Incremental change `

[Chance1234]

Hi, im using a data driven query task, and with one of the id columns i want to update that incrementally, I had in my mind that the active x script would be the below but it doesnt work :-(

help!

Function Main()

Dim GTID

GTID = DTSLookups("GetAdrID&quot.execute 'look up to get maximum address_id in the table
GTID = GTID + 1


if idexists = "" then


DTSDestination("address&quot = DTSSource("ADDRESS&quot
DTSDestination("address_type&quot = DTSSource("ADDRESS_TYPE&quot
DTSDestination("address_id&quot =GTID
DTSDestination("zip_code&quot = DTSSource("ZIP_CODE&quot

Main = DTSTransformstat_InsertQuery
else
Main = DTSTransformstat_SkipRow

End If


End Function


Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/