<% ' Ejemplo de uso de libfacturista desde ASP ' Una DLL o Componente para generar XML, sellar y timbrar el CFDI o factura electronica ' Ariel Medina - facturista.com ' libfacturista_com.dll es un ensamblado .net expuesto a COM y ' debe registrarse con regasm.exe /tlb /codebase libfacturista_com.dll ' Crear una carpeta C:\Inetpub\wwwroot\libfacturista\ y ' colocar los archivos de libfacturista ahi ' Configurar el IIS para ejecutar archivos .asp ' y asignar los permisos necesarios al usuario de IIS ' de modo que tenga acceso a los archivos de la DLL ' Debe contar con el framework 3.5+ de .net 'http://www.microsoft.com/es-es/download/details.aspx?id=21 Dim s, archivoFuente Dim h Dim libfacturista Set libfacturista = CreateObject("libfacturista_com.utf16Api") Response.Write "<pre><b>Ejemplo de uso de libfacturista desde ASP</b><p/>Una DLL o Componente para generar XML, sellar y timbrar el CFDI o facturia electronica</p>" s = libfacturista.libfacturista_version() Response.Write s Response.Write "<p/>" s = libfacturista.cfdi_estado_cuenta(0,1,"RFC=AAA010101AAA;Servidor=pruebas.ecodex.com.mx;Puerto=2044;TransaccionID=456") Response.write s Response.Write "<p/>" archivoFuente = "C:\Inetpub\wwwroot\libfacturista\cfdi_ejemplo.xml" h = 0 h = libfacturista.cfdi_xml_cargar(h,archivoFuente) if h<> 0 then Response.Write "Archivo: " & archivoFuente & "<p/>" s = libfacturista.cfdi_xml_atributo(h,"cfdi:Comprobante/cfdi:Emisor","rfc") Response.Write "RFC emisor del CFDI: " & s Response.Write "<br/>" s = libfacturista.cfdi_xml_atributo(h,"cfdi:Comprobante/cfdi:Receptor","rfc") Response.Write "RFC receptor del CFDI: " & s else Response.Write "No se pudo cargar el xml de ejemplo: " & archivoFuente end if Response.Write "</pre>" Set libfacturista = Nothing %>