I know this one is very old... but here is the issue:
this line
Set objLogin = Server.CreateObject(Cstr(strComponentName) ".clsLogin")

probably should be:
Set objLogin = Server.CreateObject(Cstr(strComponentName) & ".clsLogin")


Woody Z http://www.learntoprogramnow.com