SOLVED - beginners problem

Olive Oyl · January 13th, 2004, 03:22 PM

solved with running "regsvr32 scrrun.dll" from the command prompt.

Found in another article on this site so thanks to the forum, even if it got solved a different way

================================================== =========

Hi there,

Simple version:
How do I know if I have scrunn.dll set up correctly.
I use dreamweaver (or notepad) to do the page editing and IE6 to preview them. OS is XP Pro. The dll file is present in windows/system32.

Longer version:
I am trying to help a friend who does HTML page photo galleries to be able to upload more photos and text files and have an asp page automatically generate the extra HTML table cells to account for the number of photos in the folder. As a start point I tried running the file from chapter 10 in WROX's "Beginning ASP 3.0" called "displayDirectory.asp" (code below).

When I hit it with the browser it just hangs. :(

- I have developed other simple ASP programs that read and write to databases and other stuff so I am pretty sure I don't have a problem with the browser
- The code if straight form the book.
- Uploaded to my server the page works instantly.
- So I reckon it is a system setup thing.
In the book is a mention about needing scrrun.dll to be set up properly to be able use the filesystemobject.
The file is present in windows/system32.

But after 1 hour I can't find any help that doesn't involve going into something called "tools" in "project" .....

HELP !!
(please :D )

<HTML>
<HEAD>
<TITLE>Chapter 10 Example - Display Directory</TITLE>
</HEAD>
<BODY>

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("SCRIPT_NAME")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>

<TABLE cellpadding=5>
<TR align=center>
<TH align=left>File Name</TH>
<TH>File Size</TH>
<TH>Last Modified</TH>
</TR>

<%
For Each objFileItem In objFolderContents
    Response.Write "<TR><TD align=left>"
    Response.Write objFileItem.Name
    Response.Write "</TD><TD align=right>"
    Response.Write objFileItem.Size
    Response.Write "</TD><TD align=right>"
    Response.Write objFileItem.DateLastModified
    Response.Write "</TD></TR>"
Next
%>

</TABLE>
</BODY>
</HTML>

jb3 · January 15th, 2004, 02:45 PM

Verify that your virus protection is not blocking 'scripts'.

I use Norton AntiVirus and I have ScriptBlocking ON - and it will stop access to local drive from pages using ASP on localhost (probably any other programs that use Windows Scripting, also)...

When I turn ScriptBlocking off - my local webs show me the pictures that correspond to customer records (pictures stored in local image folder, but I use code to check if the file exists first so that I don't show the common missing graphic X image)...

Many virus apps have this feature...

Regards,
John