Tengo problemas con FileSystemObject

Otra vez yo, disculpen
Tengo una pregunta tecnica:
Estoy tratando de abrir un archivo que deposito en el raiz de mi web
texto1.txt y quiero abrirlo con asp con FileSystemObject pero me da error,
en mi servidor local lo puedo hacer pero cuando paso la pagina al remoto

me deja, me da error, el codigo es el siguiente

<%
function LeerPoema()
Dim fso 'Variable FileSystemObject
Dim nomarch 'nombre de archivo
Dim str 'cadena bufer
Dim f
Dim txtfile
Dim ruta
Const ParaLectura = 1 'Indica como acceder

nomarch = "texto1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = Server.MapPath(nomarch)

if fso.FileExists(ruta) then
Set f = fso.OpenTextFile(ruta, ParaLectura)

While Not f.AtEndOfStream
str = str & f.ReadLine
str = str & "<br>"
Wend
else
str = "ERROR -"
end if
LeerPoema = str
end function
%>
<%
Response.Write(LeerPoema())
%>

Puede ser que este algo mal???
a simple vista esta bien lo que hago?, me da que el procedimiento o

no existe en la linea
Set f = fso.OpenTextFile(ruta, ParaLectura)

Gracias