Problems with IIS 6.0

[jffialho]

Hi there,

Could someone help me with, this error:

I am trying to deploy some applications to a web server with II 6.0,
which contains a SharePoint Portal and a ASP .NET application. So far
so good, my problems start when i have to migrate an old application in
ASP with COM objects in VB 6.0.

This old web application has worked fine in IIS 5.0 with Isolation
Mode, but when I put it in IIS 6.0 i'm getting this error:

"Applicatio n object error 'ASP 0197 : 80004005'

Disallowed object use.

...../Root/FSE/global.asa, line 55

Cannot add object with apartment model behavior to the application
intrinsic object"

This is te code of my global.asa
<SCRIPT LANGUAGE=VBScri pt RUNAT=Server>

'You can add special event handlers in this file that will get run
automatically when
'special Active Server Pages events occur. To create these handlers,
just create a
'subroutine with a name from the list below that corresponds to the
event you want to
'use. For example, to create an event handler for Session_OnStart , you
would put the
'following code into this file (without the comments):

'Sub Session_OnStart
'**Put your code here **
'End Sub

'EventName Description

' Runs the first time a user runs any page in your application
Sub Session_OnStart

set Session("objUse rInfo") = CreateObject("D RFPUser.CUserIn fo")

endSessionPage = Application("st rWebSiteRoot") & "fimsessao. asp"
startPage = Application("st rWebSiteRoot") & "sslredir.a sp"
currentPage = Request.ServerV ariables("SCRIP T_NAME")
Session("numReg sList")

' Do a case-insensitive compare, and if they
' don't match, send the user to the start page.
if strcomp(current Page,startPage, 1) then
if strcomp(current Page,endSession Page,1) then
Response.Redire ct(endSessionPa ge)
end if
end if

End Sub

' Runs when a user's session times out or quits your application
Sub Session_OnEnd
' Liberta objecto com Info sobre o Utilizador Local
set Session("objUse rInfo") = Nothing
End Sub

sub Application_OnS tart 'Runs once when the first page of your
application is run for the first time by any user

Application.Loc k()

' Guarda a root do WebSite
Application("st rWebSiteRoot") = "/DRFPNet/"

' Guarda o DSN para a Base de Dados

Application("st rBDLigacao") = "Provider=SQLOL EDB.1;Persist Security
Info=False;User ID=nb;Password= .;Initial Catalog=.;Data Source=Ra"

' Inicializa objecto Role Manager
set Application("ob jRoleManager") =
CreateObject("N BCOMUR.CURoleMa nager") ' THIS IS LINE 55

' Efectua o Load de todos os Roles
call
Application("ob jRoleManager"). LoadAllURoles(A pplication("str BDLigacao"))

' Guarda o Mail do Gestor
Application("st rMailRecipient" ) = ""

' Guarda o Profile do Exchange
Application("st rMailProfile") = ""

' Guarda o nº máximo de tentativas de login
Application("st rNumMaxLogin") = 3

'--Variaveis de Dimensionamento das Paginas (Tabs) -----------

' Altura de cada Pagina
Application("in tPaginaAltura") = 285

' Margem de Topo de cada Pagina
Application("in tPaginaMargemTo po") = 10

' Margem Esquerda de cada Pagina
Application("in tPaginaMargemEs querda") = 20

' Altura do Rodape de cada Pagina
Application("in tPaginaAlturaRo dape") = 30

' Altura da Separacao entre elementos das Paginas
Application("in tPaginaAlturaSe parador") = 5

' Largura cada pagina
Application("in tPaginaLargura" ) = "100%"

'--Variaveis de Dimensionamento das Paginas (Tabs) -----------

'--Altura Ocupada por um Report
Application("in tReportAltura") = Application("in tPaginaAltura") +
67

'--Altura Ocupada por uma QList
Application("in tPaginaQListAlt ura") = 250

'--Ano inicial
Application("in tAnoInicial") = 1994

'--Ano final
Application("in tAnoFinal") = 2006

Application.UnL ock()

end sub
'Application_On End Runs once when the web server shuts down

</SCRIPT>

Thanks in advance,
João Fialho

[Jon Paal]

IIS problems can be posted here...
microsoft.publi c.inetserver.ii s

<jf******@gmail .comwrote in message news:11******** *************@m 73g2000cwd.goog legroups.com...
Hi there,

Could someone help me with, this error:

I am trying to deploy some applications to a web server with II 6.0,
which contains a SharePoint Portal and a ASP .NET application. So far
so good, my problems start when i have to migrate an old application in
ASP with COM objects in VB 6.0.

This old web application has worked fine in IIS 5.0 with Isolation
Mode, but when I put it in IIS 6.0 i'm getting this error:

"Applicatio n object error 'ASP 0197 : 80004005'

Disallowed object use.

...../Root/FSE/global.asa, line 55

Cannot add object with apartment model behavior to the application
intrinsic object"

This is te code of my global.asa
<SCRIPT LANGUAGE=VBScri pt RUNAT=Server>

'You can add special event handlers in this file that will get run
automatically when
'special Active Server Pages events occur. To create these handlers,
just create a
'subroutine with a name from the list below that corresponds to the
event you want to
'use. For example, to create an event handler for Session_OnStart , you
would put the
'following code into this file (without the comments):

'Sub Session_OnStart
'**Put your code here **
'End Sub

'EventName Description

' Runs the first time a user runs any page in your application
Sub Session_OnStart

set Session("objUse rInfo") = CreateObject("D RFPUser.CUserIn fo")

endSessionPage = Application("st rWebSiteRoot") & "fimsessao. asp"
startPage = Application("st rWebSiteRoot") & "sslredir.a sp"
currentPage = Request.ServerV ariables("SCRIP T_NAME")
Session("numReg sList")

' Do a case-insensitive compare, and if they
' don't match, send the user to the start page.
if strcomp(current Page,startPage, 1) then
if strcomp(current Page,endSession Page,1) then
Response.Redire ct(endSessionPa ge)
end if
end if

End Sub

' Runs when a user's session times out or quits your application
Sub Session_OnEnd
' Liberta objecto com Info sobre o Utilizador Local
set Session("objUse rInfo") = Nothing
End Sub

sub Application_OnS tart 'Runs once when the first page of your
application is run for the first time by any user

Application.Loc k()

' Guarda a root do WebSite
Application("st rWebSiteRoot") = "/DRFPNet/"

' Guarda o DSN para a Base de Dados

Application("st rBDLigacao") = "Provider=SQLOL EDB.1;Persist Security
Info=False;User ID=nb;Password= .;Initial Catalog=.;Data Source=Ra"

' Inicializa objecto Role Manager
set Application("ob jRoleManager") =
CreateObject("N BCOMUR.CURoleMa nager") ' THIS IS LINE 55

' Efectua o Load de todos os Roles
call
Application("ob jRoleManager"). LoadAllURoles(A pplication("str BDLigacao"))

' Guarda o Mail do Gestor
Application("st rMailRecipient" ) = ""

' Guarda o Profile do Exchange
Application("st rMailProfile") = ""

' Guarda o nº máximo de tentativas de login
Application("st rNumMaxLogin") = 3

'--Variaveis de Dimensionamento das Paginas (Tabs) -----------

' Altura de cada Pagina
Application("in tPaginaAltura") = 285

' Margem de Topo de cada Pagina
Application("in tPaginaMargemTo po") = 10

' Margem Esquerda de cada Pagina
Application("in tPaginaMargemEs querda") = 20

' Altura do Rodape de cada Pagina
Application("in tPaginaAlturaRo dape") = 30

' Altura da Separacao entre elementos das Paginas
Application("in tPaginaAlturaSe parador") = 5

' Largura cada pagina
Application("in tPaginaLargura" ) = "100%"

'--Variaveis de Dimensionamento das Paginas (Tabs) -----------

'--Altura Ocupada por um Report
Application("in tReportAltura") = Application("in tPaginaAltura") +
67

'--Altura Ocupada por uma QList
Application("in tPaginaQListAlt ura") = 250

'--Ano inicial
Application("in tAnoInicial") = 1994

'--Ano final
Application("in tAnoFinal") = 2006

Application.UnL ock()

end sub
'Application_On End Runs once when the web server shuts down

</SCRIPT>

Thanks in advance,
João Fialho