mnongkhlaw
Programmer
I had a web that was running OK on Win95/98 & PWS. But when this site was deployed on a production server and the default.asp file viewed in IE, I get :-
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/elect2003/global.asa, line 50
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at:
My global.asa :-
<SCRIPT LANGUAGE=VBScript 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
Session.Timeout = 20
'--No. of Active Users
Application.Lock
Application("intActiveUserNumber"
=Application("intActiveUserNumber"
+1
Application.UnLock
End Sub
Sub Session_OnEnd
'The appilcation must be locked so that only one user can decrement the Application ActiveUserNumber variable at a time
Application.Lock
'The Application ActiveUserNumber variable is decremented by 1
Application("intActiveUserNumber"
= Application("intActiveUserNumber"
- 1
'The application is now unlocked
Application.UnLock
End Sub
'EventName Description
'Session_OnStart Runs the first time a user runs any page in your application
'Session_OnEnd Runs when a user's session times out or quits your application
'Application_OnStart Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd Runs once when the web server shuts down
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
'--Project Data Connection
Application("cnnElect_ConnectionString"
= "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Server.MapPath("watnymtuh123.mdb"
& ";"
Application("cnnElect_ConnectionTimeout"
= 15
Application("cnnElect_CommandTimeout"
= 30
Application("cnnElect_CursorLocation"
= 3
Application("cnnElect_RuntimeUserName"
= "Admin"
Application("cnnElect_RuntimePassword"
= ""
'-- Project Data Environment
Set DE = Server.CreateObject("DERuntime.DERuntime"
Application("DE"
= DE.Load(Server.MapPath("Global.ASA"
, "_private/DataEnvironment/DataEnvironment.asa"
'==Visual InterDev Generated - endspan==
'Create an ActiveUsersNumber variable with Application scope and set it to 0
Application("intActiveUserNumber"
= 0
End Sub
</SCRIPT>
Please help!
Mark.
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/elect2003/global.asa, line 50
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at:
My global.asa :-
<SCRIPT LANGUAGE=VBScript 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
Session.Timeout = 20
'--No. of Active Users
Application.Lock
Application("intActiveUserNumber"
Application.UnLock
End Sub
Sub Session_OnEnd
'The appilcation must be locked so that only one user can decrement the Application ActiveUserNumber variable at a time
Application.Lock
'The Application ActiveUserNumber variable is decremented by 1
Application("intActiveUserNumber"
'The application is now unlocked
Application.UnLock
End Sub
'EventName Description
'Session_OnStart Runs the first time a user runs any page in your application
'Session_OnEnd Runs when a user's session times out or quits your application
'Application_OnStart Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd Runs once when the web server shuts down
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
'--Project Data Connection
Application("cnnElect_ConnectionString"
Application("cnnElect_ConnectionTimeout"
Application("cnnElect_CommandTimeout"
Application("cnnElect_CursorLocation"
Application("cnnElect_RuntimeUserName"
Application("cnnElect_RuntimePassword"
'-- Project Data Environment
Set DE = Server.CreateObject("DERuntime.DERuntime"
Application("DE"
'==Visual InterDev Generated - endspan==
'Create an ActiveUsersNumber variable with Application scope and set it to 0
Application("intActiveUserNumber"
End Sub
</SCRIPT>
Please help!
Mark.