Pues a mí si me funciona. Pero supongo que sabrás que así sólo sale la primera línea del archivo de texto ¿no?
De todas formas, hay una pequeña corrección. Si quieres que muestre el contenido del archivo de texto, lógicamente tendrás que darle la instrucción para que lo haga:
Código:
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(Server.MapPath("archivo.txt"), 1)
archivo = objTextStream.ReadLine
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
Response.write archivo
%>
Un saludo.