Saludos, yo uso este codigo...
Espero que te sirva
<%
Const fsoLectura = 1
Dim objFSO
'Instanciación del objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir el archivo de texto
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\documento.txt", fsoLectura)
'Visualiza en el navegador el contendido del archivo de texto
Response.Write objTextStream.ReadAll
'Cerrar e inicializar los objetos
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>
Ok