Lectura de Archivos - Error
Publicado por Silvia Lasso (1 intervención) el 13/02/2007 15:28:04
Buen Dia!
Tengo un problema con lectura de archivos, tengo instalado el internet explorer 7, y al especificarle la ruta del archivo en la variable strRutaArchivo y ejecutar la función que presento aqui......
<%
Dim objFSO, objAbreArchivo
Set objFSO = CreateObject("Scripting.FileSystemObject")
Linea 14 -->If objFSO.FileExists(strRutaArchivo) Then
Set objAbreArchivo = objFSO.OpenTextFile(strRutaArchivo,1)
Do While Not objAbreArchivo.AtEndOfStream
strTexto = objAbreArchivo.ReadLine
response.Write(strTexto)
Loop
Else
response.Write("No existe el Archivo")
End If
ObjAbreArchivo.Close
Set objAbreArchivo = Nothing
Set objFSO = Nothing
%>
Me genera este error ebn el internet explorer
****************************************************************************************************
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/IMSS/mdlImssCargarRespuestaResult.asp, línea 14
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; InfoPath.1)
****************************************************************************************************
Espero alguien pueda ayudarme , muchas gracias de antemano
Tengo un problema con lectura de archivos, tengo instalado el internet explorer 7, y al especificarle la ruta del archivo en la variable strRutaArchivo y ejecutar la función que presento aqui......
<%
Dim objFSO, objAbreArchivo
Set objFSO = CreateObject("Scripting.FileSystemObject")
Linea 14 -->If objFSO.FileExists(strRutaArchivo) Then
Set objAbreArchivo = objFSO.OpenTextFile(strRutaArchivo,1)
Do While Not objAbreArchivo.AtEndOfStream
strTexto = objAbreArchivo.ReadLine
response.Write(strTexto)
Loop
Else
response.Write("No existe el Archivo")
End If
ObjAbreArchivo.Close
Set objAbreArchivo = Nothing
Set objFSO = Nothing
%>
Me genera este error ebn el internet explorer
****************************************************************************************************
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/IMSS/mdlImssCargarRespuestaResult.asp, línea 14
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; InfoPath.1)
****************************************************************************************************
Espero alguien pueda ayudarme , muchas gracias de antemano
Valora esta pregunta


0