Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 994
  • Last Modified:

File System Object

i am trying to create a filesystem object in my asp page in order to track the number of visit. However there are error which says:

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'Scripting.FileSystemObject'

may i know how to solve this problem??

thank you
0
riyugie
Asked:
riyugie
  • 4
  • 2
  • 2
  • +2
1 Solution
 
setiawanCommented:
Hi riyugie,

Post your code,and make sure there is Windows Scripting Host installed.

hope this helps

  danny
0
 
mgfranzCommented:
Don't use components...;

<SCRIPT LANGUAGE="vbscript" RUNAT="server">
Function txtPageCounter
        Dim tmpHitCount,textObject,pagename,fhandle
        pagename = Request.ServerVariables("PATH_TRANSLATED") & ".txt"
      
        If Session(pagename) = "" Then
                Application.Lock
                Set textObject  = CreateObject("Scripting.FileSystemObject")
                If textObject.FileExists(pagename) Then

   Set fhandle = textObject.OpenTextFile(pagename)
   tmpHitCount = fhandle.readline
   fhandle.close
                Else
   tmpHitCount = 0
                End If
                tmpHitcount = tmpHitCount + 1
                Set fhandle = textObject.CreateTextFile(pagename)
                fhandle.writeline (tmpHitCount)
                fhandle.close
                Application.UnLock
                Session(pagename) = tmpHitCount
        Else
                 tmpHitCount = Session(pagename)
        End If
        txtPageCounter = tmpHitCount

End Function
</SCRIPT>
....

You are visitor # <%=txtPageCounter%>
0
 
sgovindaCommented:
Change this line of code
Set textObject  = CreateObject("Scripting.FileSystemObject")
to
Set textObject  = Server.CreateObject("Scripting.FileSystemObject")

I faced similar problems with just using CreateObject, and the error was appearing at random.

By the way, if you still get the error, I would suggest, wrap your file handling code in a separate component and run it out of process.  You can do this by writing an ActiveX dll and registering with MTS as a server package. That's what I finally did to eliminate the error.
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
mgfranzCommented:
???
0
 
riyugieAuthor Commented:
sgovinda ,

i have tried to use the server.createobject method, however, the error messages says that :"

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

"

and i do not know how to create the dll, can u give me some ideas??

and here i accompany the codes that i have written:

      set fs = server.CreateObject("Scripting.FileSystemObject")
      varInOutFile = Server.MapPath("/home/home.cnt")
      set a = fs.openTextFile(varInOutFile)
      ct = cLng(a.ReadLine)
      a.close

if ct <> session("VisitCount")  then
      Set fs = server.CreateObject("Scripting.FileSystemObject")
      varInOutFile = Server.MapPath ("/home/home.cnt")
      Set a = fs.OpenTextFile(varInOutFile)
      ct = CLng(a.ReadLine)
      ct = ct + 1
            a.Close
            Set a = fs.CreateTextFile(varInOutFile, True)
            a.WriteLine (ct)
      a.Close
      session("VisitCount") = ct
end if

0
 
mgfranzCommented:
My code works perfectly without ANY modifications.  However you are free to make any changes you feel necessary, but it might break the code...
0
 
dstrommerCommented:
Goto http://support.microsoft.com

Lookup Article ID: Q194801

The problem is that you don't have the dll installed, its corrupt, or you don't have permissions.

0
 
mgfranzCommented:
What???
0
 
dstrommerCommented:
Microsoft has a great support database at http://support.microsoft.com.

The database contains technical articles about bugs, fixes, hints, tips, etc.

Each document begins with the letter Q.

The answer to your problem is found in the Article ID: Q194801

The problem is that you can't instantiate the COM component.

According to the Error you got and the Q document info.

You have 3 possible problems.

1. The COM (FileSystem COM object) is not installed.
2. The FileSystem COM object is corrupt.
3. You don't have permissions.

The Q document tells you how to fix the problems your having.
0
 
riyugieAuthor Commented:
thank you all of u for the comments posted..

i have solved the problem and the problem is that the scrrun.dll file has been corrupted.

the error 'disappear' after i reinstall the IE5.

Thank you
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 4
  • 2
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now