Class ASP Object Required Error

[50cent]

Pl review following code-Function FileProperties( sFileName, sLength, sDateTime, sAttr) dim oFS, oFile Set oFS = Server.CreateObject("Scripting.FileSystemObject")\[code\]if ( oFS.FileExists( sFileName ) ) then set oFile = oFS.GetFile( sFileName ) sLength = oFile.size sDateTime = oFile.DateLastModified sAttr = oFile.Attributes set oFile = Nothing FileProperties = trueelse ' might be a folder if ( oFS.FolderExists( sFileName ) ) then set oFile = oFS.GetFolder( sFileName ) sLength = oFile.size sDateTime = oFile.DateLastModified sAttr = oFile.Attributes set oFile = Nothing FileProperties = true else FileProperties = false end ifend ifset oFS = Nothing\[/code\]end FunctionFunction FileReadLine( oFile, sLineOfFile ) if not oFile.AtEndOfStream then sLineOfFile = oFile.ReadLine() FileReadLine = true else FileReadLine = false end ifend FunctionUsing above to two function, I want to read content from file,so I wrote following script -Dim fs1, fs2, fs3sFileName = server.mappath("/db/remoteinfo.txt")call FileProperties( sFileName, sLength, sDateTime, sAttr)response.write "Length - " & sLength call FileReadLine(oFile, sLineOfFile)Here I get error message :Microsoft VBScript runtime error '800a01a8'Object required: 'oFile'Please help me in this regards.Thanks in advance....