Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/06/2003, 07:26
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 5 meses
Puntos: 4
Otra vez los dichosos TXT

Bueno, estoy intentando leer un archivo TXT que está en el servidor. Utilizo esto.

Código:
<%
nombre=RS("archivo")
Response.Write(nombre&"<br>")'Compruebo el nombre y es correcto
ruta=Server.MapPath("./"&nombre)
Response.Write(ruta&"<br>")'Compruebo la ruta completa y es correcta
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
SET archivo = FSO.OpenTextFile(Server.MapPath("./"&nombre),1)
DO UNTIL archivo.AtEndOfStream
Response.Write archivo.ReadLine & "<br>"
LOOP
archivo.Close
SET archivo = nothing
%>
De esta manera me sale un error de Permiso denegado, sin embargo si cambio la línea en negrita por esta otra

Código:
SET archivo = FSO.OpenTextFile(Server.MapPath("becas26_06_03.txt"),1)
No da ningún error y muestra el contenido del archivo sin mayores problemas.

Si alguien me pudiera hechar una mano se lo agradecería mucho.
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!