Push FTP with SQL Server[7]

               fldrName = fldrItem.name

               fname = " "

               For Each f1 in fc

                       If f1.DateCreated > BaseDate Then

                               objTxtFile.writeline( "put """ & strSourcePath & "\" & fldrname & "\" & f1.name & """")

                       End If

               Next