'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
dim myConn
dim myRecordset
dim input_date
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
myConn.Open = "Provider=SQLOLEDB.1;Data Source=erpinterface; Initial Catalog=ts_i;user id = 'sa';password='sa'"
mySQLCmdText = "Select 'input_date' = input_date from (select top 1 input_date from ts_i_cost_im) as aa"
myRecordset.Open mySQLCmdText, myConn
set Flds = myRecordset.Fields
set input_date = Flds("input_date")
If (DateDiff( "d", input_date.value ,Date ) = 0) then
Main =DTSTaskExecResult_Success
Else
Main = DTSTaskExecResult_Failure
End If
End Function