Saludos.
El problema esta en que quiero pasar un reporte a excel, segun yo tengo el codigo que lo hace, pero a la hora de ejecutarlo marca el siguiente error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/resultado_xxxxxxx.asp, línea 16
Aqui esta la parte del codigo que utilizo para exportar a excel.
'************************************************* ************************************************
PathXLS = Server.MapPath("reporte_ordenes.xls")
FinLinea = ""
' Creo los objetos que utilizaremos, serán de los tipos FSO, TextStream y Connection
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
'************************************************* ************************************************
'************************************************* ***************************************
' Recorro todo el recordset recuperando sus valores y escribiéndolos en el archivo Excel
Do while Not rstordenes.EOF
FinLinea = ""
For each x in rstordenes.fields
FinLinea = FinLinea & x.value & chr(9)
Next
Arch_Excel.writeline FinLinea
rstordenes.MoveNext
Loop
'************************************************* ***************************************
'************************************************* ********************************************
' Cierro y destruyo todos los objetos utilizados para liberar memoria del servidor
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing
'************************************************* ********************************************
<!-- Creo un vínculo para mostrar el archivo Excel guardado en el servidor -->
<a href="<% =PathXLS %>">Abrir Excel</a>
