
Function Main()
	' Typkonvertierungen notwendig
	DTSDestination("OrderID") = CInt ( "10" + CStr(DTSSource("OrderID") ) )

	' Status zurckgeben
	Main = DTSTransformStat_OK
End Function

Function main
	' COM-Objekt erzeugen
	Set FSO = CreateObject("Scripting.Filesystemobject")

	' Counter lesen
	Set TX = FSO.OpenTextFile("c:\dts\count.txt",1,True)
	count = TX.ReadLine
	TX.Close
	
	' Zhler erhhen
	count = count +1

	' Counter schreiben
	Set TX = FSO.OpenTextFile("c:\dts\count.txt",2,True)
	TX.WriteLine count
	TX.Close
	
	' In Spalte speichern
	DTSDestination("OrderID") = CInt ( "30" + CStr(count) )
	DTSDestination("OrderDatum") = date

	' Status zurckgeben
	Main = DTSTransformStat_OK
End Function

Function Main()
	DTSDestination("OrderDatum") = date 
	Main = DTSTransformStat_OK
End Function



