Ah... bueno, este código no lo entiendo. Pero buscando en
www.aspfaq.com, llegué aquí:
http://www.aspfaq.com/show.asp?id=2389
Andá a ese enlace y buscá la sección de las posibles causas del error que te da a vos (800A0005). Igual, te dejo lo que dice aquí:
Cita: Server object error 'ASP 0178 : 800a0005'
Server.CreateObject Access Error
/<file>.asp, line <line>
The call to Server.CreateObject failed while checking permissions.
Access is denied to this object.
or
Server object, ASP 0178 (0x80070005)
The call to Server.CreateObject failed while checking permissions.
Access is denied to this object.
You need to allow IUSR_machineName access to your project / DLL through DCOMCNFG. See KB #255502 (
http://support.microsoft.com/default.aspx/kb/255502) and, more importantly, the workaround section of KB #259725 (
http://support.microsoft.com/default.aspx/kb/259725)
Espero te sirva.