I have the following code. is it any way to make this more
compact?
DTSDestination("QVPIDS") = "EV"
DTSDestination("QVPIDT")="EV"
IF DTSLookups("Find_PKey").Execute((DTSDestination
("QVUSER")))<>0 Then
If DTSSource("Add_Change_Delete")="D" Then
Main = DTSTransformstat_DeleteQuery
Else DTSSource("Add_Change_Delete")="C"
Main = DTSTransformstat_UpdateQuery
End if
Else
If DTSSource("Add_Change_Delete")="A" Then
Main = DTSTransformstat_InsertQuery
End if
End if
DTSDestination("QVPIDS") = "ER"
DTSDestination("QVPIDT")="ER"
IF DTSLookups("Find_PKey").Execute((DTSDestination
("QVUSER")))<>0 Then
If DTSSource("Add_Change_Delete")="D" Then
Main = DTSTransformstat_DeleteQuery
Else DTSSource("Add_Change_Delete")="C"
Main = DTSTransformstat_UpdateQuery
End if
Else
If DTSSource("Add_Change_Delete")="A" Then
Main = DTSTransformstat_InsertQuery
End if
End if