Data Driven Query

[swoodring]

I'm trying to use a data driven query. What I'm tyring to do is - I'm bringing in a file from the as/400 and populating the sql server with the data. I want to either update or write depending on whether it already exists. I've found a sample of a data driven query in a book but it uses a case statement. What I'd like to do is use an if statment instead. But when I try to use the if its giving me a syntex error. Here's the code I'm trying to use.

Function Main()
If DTSDestination("StoreNumber&quot =
DTSSource("DSRHSTR&quotAnd
DTSDestination("Controller&quot =
DTSSource("DSRHCTL&quot And
DTSDestination("Register#&quot =
DTSSource("DSRHREG&quot And
DTSDestination("Transaction#&quot =
DTSSource("DSRHTR#&quot And
DTSDestination("TransactionDate&quot = cdate(DTSSource("DSRHDATI&quot) & " " & timevalue(DTSSource("DSRHTIME&quot)
Then
DTSDestination("StoreIndex&quot = DTSSource("DSRHSTX&quot
DTSDestination("Controller&quot = DTSSource("DSRHCTL&quot
DTSDestination("Register#&quot = DTSSource("DSRHREG&quot
DTSDestination("Transaction#&quot = DTSSource("DSRHTT&quot
DTSDestination("TransactionDate&quot = cdate(DTSSource etc...
Main = DTSTransformstat_UpdateQuery

Else
DTSDestination("StoreIndex&quot = DTSSource("DSRHSTX&quot
DTSDestination("Controller&quot = DTSSource("DSRHCTL&quot
DTSDestination("Register#&quot = DTSSource("DSRHREG&quot
DTSDestination("Transaction#&quot = DTSSource("DSRHTT&quot
DTSDestination("TransactionDate&quot = cdate(DTSSource etc...
Main = DTSTransformstat_InsertQuery
Endif
End Function

Then after I have this working I woould go under the queries tab inthe data driven query and create the insert and update queries. But I can't seem to get this script to parse. Its getting the error on the if statment. All it gives me is syntax error. Not sure what the problem is. Any ideas?

Stacy