Hola, tengo un error horrible, no entiendo que pasa, hace unos dias tenia el problema para subir archivos, pero se solucion cuando encontre un codigo xelupload, asi ke ahora subo el archivo, y lo mando como parametro a un funcion que lo parsea, es un archivo xml y su informacion se almacena en la base de datos.
pero me manda un error:
El Archivo especificado no es válido. -2146697210 The system cannot locate the object specified.
No se que pasa
sub ParsearXML(XMLFuente,rutaXML)
Set xmlSESI=Server.CreateObject("Microsoft.XMLDOM")
xmlSESI.async=false
'xmlSESI.load(xmlHttpSESI.responseXML)
xmlSESI.load(XMLFuente)
' Se Crea el archivo de bitacora
Set fso = CreateObject("Scripting.FileSystemObject")
' Determinamos la ruta donde se alojará la bitácora
rutaBitacora = Server.MapPath("bitacoras")
nombreArchivoBitacora = "Importacion " & day(now) & "-" & monthName(month(now),true) & "-" & year(now) & " " & hour(time) & "-" & Minute(time) & "-" & Second(time)& ".txt"
Set Bitacora = fso.CreateTextFile(rutaBitacora & "\" & nombreArchivoBitacora, True)
Bitacora.WriteLine("****************************** ********************************")
Bitacora.WriteLine(" Ejecutado por:"& session("nombre_usuario") & "/ " & session("uid_usu") & "")
Bitacora.WriteLine(" Origen XML:"& rutaXML & "")
Bitacora.WriteLine("****************************** ********************************")
Bitacora.WriteBlankLines 2
if xmlSESI.parseError.errorcode<>0 then
'Manejo de errores
'response.write("Error "& xmlSESI.parseError.errorcode & " " & xmlSESI.parseError.reason & "</br></br>")
MostrarError "El Archivo especificado no es válido. "& xmlSESI.parseError.errorcode& " " & xmlSESI.parseError.reason
Bitacora.WriteLine("ERROR: El archivo XML especificado tiene errores, " & xmlSESI.parseError.reason)
else
' si logro parsear el archivo entra aqui
banderaGerencia = false
banderaContinuar = true
contadorOrdenenesRegistradasConExito = 0
contadorOrdenenesRegistradasSinExito = 0
*************************
ahora la manera de subir el archivo es esta:
Dim Up, fich
' Se abre la conexion a la BD
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
' Se crea el objeto aspSmartUpload
set up = new xelUpload
up.Upload()
set fich = up.Ficheros("archivo")
if up.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
Response.Write("¡ya se subio")
end if
if fich.Nombre <> "" then
rutaDocumento = Server.MapPath("documentos_xml")
nombreArchivoXMLDestino="Importacion" & day(now) & "-" & monthName(month(now),true) & "-" & year(now) & "_" & hour(time) & "-" & Minute(time) & "-" & Second(time)& ".xml"
on error resume next
fich.GuardarComo nombreArchivoXMLDestino, rutaDocumento
End if
if err.number <>0 then
MostrarError "No se pudo cargar el archivo, verfique su archivo"
'response.write("No se pudo cargar el archivo, verfique su archivo")
' end if
Else
ParsearXML nombreArchivoXMLDestino, nombreArchivoXMLDestino
End if
El archivo si se sube, por eso mando imprimir la etiketa "ya subio"
ademas realmente estoy subiendo un .xml y ya lo revise y esta bien.
tengo otra pagina que sube archivos con una dll, y manda llamar la misma funcion, de parsearxml. Y lo hace correcto.
Que puede estar pasando, ayudaaaaaaaaaaaaaaaaaa
