?
Solved

Asp Error: Server object error 'ASP 0177 : 80080005'

Posted on 2002-06-21
11
Medium Priority
?
769 Views
Last Modified: 2008-02-20
I get the following error when I try to view a microsoft access application report across our Intranet;

Server object error 'ASP 0177 : 80080005'
Server.CreateObject Failed
/mongoose/comShowRptDetail.asp, line 202
Server execution failed


...can anyone tell me what this is and how I get round it?

Thanks
0
Comment
Question by:arghh
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
  • 2
  • +3
11 Comments
 
LVL 9

Expert Comment

by:Nitin Sontakke
ID: 7098811
Please also post the Server.CreateObject() call which is generating this error. Are you sure you all the required dlls on the server?

Some objects cannot be created independently. They must be created in the context of another object.

0
 
LVL 4

Expert Comment

by:jkunal
ID: 7098833
check if the Component exists and is registered.

To check open "regedit"
and search for the progid.

Also post your code.
0
 
LVL 20

Expert Comment

by:Silvers5
ID: 7100390
How are you fetching the report?.. simply open a connection string to the access database and select the records from the report like:

Set conn = Server.createObject("Adodb.connection")
conn.open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=db1.mdb;"
set rs = conn.execute("Select * from ReportName")
if rs.bof and rs.eof then
'no records
else
rs.movefirst
do while not rs.eof
response.write rs(0) & "<br>"
rs.movenext
loop
end if
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:arghh
ID: 7103165
Here's all the code!...

I've checked all the permissions, they all seem ok.

*****************************

<% Response.Buffer = True %>

<!--#include file="Connections/cnnMongoose.asp" -->
<!--#include virtual="/mongoose/incDateAndHS.asp"-->
<!--#include file="incValidate.asp" -->

<%

' *** Empty temp table
      Set comDelete = Server.CreateObject("ADODB.Command")
      comDelete.ActiveConnection = strCNN
      comDelete.CommandText = "DELETE * FROM ztblReports;"
      comDelete.Execute
      comDelete.ActiveConnection.Close
      
' *** Determine projects
      
      strProjRef = Request.QueryString("strProjRef")
      
      Set recProject = Server.CreateObject("ADODB.Recordset")
      recProject.ActiveConnection = strCNN
      recProject.Source = "SELECT fldProjRef, fldProjName, fldProjMgr " _
                                & "FROM tblProjectMain " _
                                & "WHERE fldProjRef ='" & strProjRef & "';"
      recProject.CursorType = 0
      recProject.CursorLocation = 2
      recProject.LockType = 3
      recProject.Open()
      recProject_numRows = 0
      
      'Set string variables determining data.
      strProjName = recProject.Fields.Item("fldProjName").Value
      strProjMgr  = recProject.Fields.Item("fldProjMgr").Value
      recProject.Close
      recProject.ActiveConnection.Close
      
      'Loop through project updates
      Set recUpdates = Server.CreateObject("ADODB.Recordset")
      recUpdates.ActiveConnection = strCNN
      recUpdates.Source = "SELECT fldUpdateRef, fldDTMStamp, fldStatus, fldSummary, fldIssues, fldProjCompletion " _
                                & "FROM tblUpdate " _
                                & "WHERE fldProjRef = '" & strProjRef & "' " _
                                & "ORDER BY fldDTMStamp DESC;"
      recUpdates.CursorType = 0
      recUpdates.CursorLocation = 2
      recUpdates.LockType = 3
      recUpdates.Open()
      recUpdates_numRows = 0
      
      'Set the count variable; Loop through the projects determining data.
      intCount = 0
      If (Not recUpdates.BOF) And (Not recUpdates.EOF) Then recUpdates.MoveFirst
      While (Not recUpdates.EOF)
            intCount = intCount + 1
            
            'List Update Ref'
            If intCount <> 1 Then strUpdateRefs = strUpdateRefs & "|"
            strUpdateRefs = strUpdateRefs & recUpdates.Fields.Item("fldUpdateRef").Value
            
            'List Update Ref'
            If intCount <> 1 Then strUpdateDTMs = strUpdateDTMs & "|"
            strUpdateDTMs = strUpdateDTMs & "#" & recUpdates.Fields.Item("fldDTMStamp").Value & "#"
            
            'List Update Status'
            If intCount <> 1 Then strStatus = strStatus & "|"
            strStatus = strStatus & "'" & recUpdates.Fields.Item("fldStatus").Value & "'"
            
            'List Update Summaries
            If intCount <> 1 Then strSummary = strSummary & "|"
            strSummary = strSummary & "'" & recUpdates.Fields.Item("fldSummary").Value & "'"

            'List Update Issues
            If intCount <> 1 Then strIssues = strIssues & "|"
            strIssues = strIssues & "'" & recUpdates.Fields.Item("fldIssues").Value & "'"
            
            'List Update Projected Completion dates
            If intCount <> 1 Then strDates = strDates & "|"
            strDates = strDates & recUpdates.Fields.Item("fldIssues").Value
            If recUpdates.Fields.Item("fldProjCompletion").Value <> Null Then
                  strDates = strDates & "#" & (recUpdates.Fields.Item("fldProjCompletion").Value) & "#"
            Else
                  strDates = strDates & "Null"
            End If
            
            recUpdates.MoveNext
      Wend
      intTotal = intCount
      recUpdates.Close
      recUpdates.ActiveConnection.Close
      
      'Populate the arrays
      arrUpdates = Split(strUpdateRefs, "|")
      arrDTMs    = Split(strUpdateDTMs, "|")
      arrStatus  = Split(strStatus, "|")
      arrSummary = Split(strSummary, "|")
      arrIssues  = Split(strIssues, "|")
      arrDates   = Split(strDates, "|")      
      
      'Set count again; loop through project ref array
      intCount = 0
      For intCount = 0 to intTotal-1
                        
            'Set string variable for values
            strValues = "'" & strProjRef & "'," _
                          & arrUpdates(intCount) & "," _
                          & arrDTMs(intCount) & "," _
                          & "'" & strProjName & "'," _
                          & arrStatus(intCount) & "," _
                          & arrSummary(intCount) & "," _
                          & arrIssues(intCount) & "," _
                          & arrDates(intCount) & "," _
                          & "'" & strProjMgr & "'"
            
            'Create INSERT statement
            strSQLInsert = "INSERT INTO ztblReports(fldProjRef, fldUpdateRef, fldUpdateDTM, fldProjName, fldStatus, fldSummary, fldIssues, fldProjCompletion, fldProjMgr) " _
                               & "VALUES(" & strValues & ");"
            
            'Execute the insert
            Set comInsert = Server.CreateObject("ADODB.Command")
            comInsert.ActiveConnection = strCNN
            comInsert.CommandText = strSQLInsert
            comInsert.Execute
            comInsert.ActiveConnection.Close
                  
      Next

%>

*****************************
0
 
LVL 4

Expert Comment

by:jkunal
ID: 7103189
which create object fails?
0
 

Author Comment

by:arghh
ID: 7103197
Helps if I post the right bit of code!

It fails on the Set objAccess = Server.CreateObject("Access.Application")....bit.


<%

Dim strNum, systime                                                         'used to get the unique file name
Dim strDbName, strRptName, strWhere, strSnapFile, strFilter          'used with the Access objects
Dim objAccess                                                                  'MSAccess object
     
     'Get a unique file name
     
     
     'Get the reqd data from submitted Form
     strDbName = "mongoose_ds.mdb"
     strRptName =  "rptDetail"
     strSnapFile = strRptName & ".snp"
     
     'Create instance of access. Visible is set to false b/c running as process, not desktop app'n.
     Set objAccess = Server.CreateObject("Access.Application")
     objAccess.Visible = False
     
     'Open the database, then the Report, and output it in Snapshot format
     objAccess.OpenCurrentDatabase strDbName
     
     With objAccess.DoCmd
         
          'Open in preview mode so that where clause can be used (if neccesary)
          .OpenReport strRptName, acViewPreview
         
          'Save the report to snapshot format; Server.MapPath gets the current directory.
          .OutputTo acOutputReport, , "Snapshot Format", Server.MapPath(".") & "\mongoose\snapfiles\" & strSnapFile
          .Close
     End With
     
     objAccess.Quit acQuitSaveNone 'acQuitSaveNone
     Set objAccess = Nothing
     
     'HTML with the ActiveX plugin
     If strSnapFile <> "" Then%>
          <OBJECT id="SnapshotViewer1" width=622 height=500 codebase="file:///C|/WINNT/Profiles/7645/Desktop/ASP%20info/SCRIPT/Snapview.ocx"
           classid="CLSID:F0E42D60-368C-11D0-AD81-00A0C90DC8D9" VIEWASTEXT>
               <PARAM name="_Version" value="65536">
               <PARAM name="SnapshotPath" value="snapfiles/<%=strSnapFile%>">
               <PARAM name="Zoom" value="0">
               <PARAM name="AllowContextMenu" value="-1">
               <PARAM name="ShowNavigationButtons" value="-1">
          </OBJECT>
<%    

     Else
          Response.Write("<P><B>An error occured while attempting to produce your report.</B></P>")
     End If


%>

....cheers
0
 
LVL 22

Expert Comment

by:CJ_S
ID: 7103205
Is Access installed on the machine??

CJ
0
 
LVL 4

Expert Comment

by:jkunal
ID: 7103216
problems with access, not there or not installed properly
0
 

Author Comment

by:arghh
ID: 7103235
Access is there. And Access is running properly because we're using it for several other ASP pages (all of which work fine).

Any other idea's?
0
 

Expert Comment

by:modulo
ID: 7886004
Dear expert(s),

A request has been made to close this Q in CS:
http://www.experts-exchange.com/Community_Support/Q_20497467.html

Without a response in 72 hrs, a moderator will finalize this question by:

 - Saving this Q as a PAQ and refunding the points to the questionner

When you agree or disagree, please add a comment here.

Thank you.

modulo

Community Support Moderator
Experts Exchange
0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 7908404
Saving this Q as a PAQ and refunding the points to the questionner

modulo

Community Support Moderator
Experts Exchange
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
Suggested Courses

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question