% Const adTypeText = 2 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeText BinaryStream.Open filename="genesis\batches.txt" 'filename="batches.txt" BinaryStream.LoadFromFile Request.ServerVariables("APPL_PHYSICAL_PATH")&filename ReadTextFilebat = BinaryStream.ReadText(60) BinaryStream.Close BinaryStream.Open filename="genesis\recruitments.txt" 'filename="recruitments.txt" BinaryStream.LoadFromFile Request.ServerVariables("APPL_PHYSICAL_PATH")&filename ReadTextFilerec = BinaryStream.ReadText(60) BinaryStream.Close %>
![]() |
|
![]() |
||||||||||||||||||||||||