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

Hola
A mi ese codigo me funciona perfecto.el usuario IUSR_tuserver, tiene
permisos de ejecución y modify? El sitio, tiene permisos de script?

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 314408886
Yahoo MSN:

"Hernán Rocca" wrote in message
news:#
> 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

> en mi servidor local lo puedo hacer pero cuando paso la pagina al remoto
no
> 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
llamada
> no existe en la linea
> Set f = fso.OpenTextFile(ruta, ParaLectura)
>
> Gracias
>
>

Si, el sitio tiene permisos de script, pero al usuario IUSR_midominio

que darlo de alta yo, es un Hosting que alquilo

"Franco Figún" wrote in message
news:
> Hola
> A mi ese codigo me funciona perfecto.el usuario IUSR_tuserver, tiene
> permisos de ejecución y modify? El sitio, tiene permisos de script?
>
> FF
> www.francofigun.com.ar
> www.microsofties.com.ar
> MSN:
> UIN: 314408886
> Yahoo MSN:
>
> "Hernán Rocca" wrote in message
> news:#
> > 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

> no
> > 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
> llamada
> > no existe en la linea
> > Set f = fso.OpenTextFile(ruta, ParaLectura)
> >
> > Gracias
> >
> >
>
>