|
-
Aug 28th, 2001, 09:52 AM
#1
Thread Starter
Hyperactive Member
This one is not easy... Good luck
I have created a page which uses FileSystemObject to display the contents of a specific folder. There is also a form on one side of the page which is where the user will find files to upload into the directory (from their PC to the server). This page has been used for over 5 months by 1 person and he has never had a problem with it. Today it all changes.
The initial page does not load (default.asp). It searches for the page until it gives an error that the page could not be loaded. It is the same error as if the server has crashed (my initial thought). I tried on a different computer and the server was working fine. But that computer cannot display that one page either. Every other page (100s of pages) works fine on every computer on our network but this one page will not display. Please remember nothing has changed with this page.
It gets better -
We will assign a generic domain name of mydomain.com for the domain and 192.168.1.1 as the IP of the server to explain the next situation.
A user that does not request mydomain.com/upload (the page with the problem) can browse the site without a problem. Once he/she requests mydomain.com/upload he/she can no longer browse any pages with the domain of mydomain.com. You can still use the IP (192.168.1.1) to browse the site but once you try 192.168.1.1/upload you can no longer use the IP address either.
A reboot is the fix for each workstation and we can browse again, but still get locked out once we try that one page.
I tried this in NN 4.5 and IE 4.0. Due to software conflicts our workstations can not upgrade to any other version of IE or NN.
Thanks for any help.
Art
If you think education is expensive, try ignorance.
-
Aug 28th, 2001, 11:01 AM
#2
Frenzied Member
what is the error?
are you using session variable in it(page w/ problem)??
is there some unClose object(...=nothing)
???
-
Aug 28th, 2001, 11:15 AM
#3
Thread Starter
Hyperactive Member
Here's the code.
PHP Code:
<%@ Language="VBScript" %>
<HTML>
<HEAD>
<style>
<!--
td {font-family: arial, verdana;}
a {color: #ff0000; font-size: 14px; text-decoration: none;}
a:hover {color: #000000;}
.Form {font-size: 10px;}
-->
</style>
</HEAD>
<BODY>
<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strURLPath
strDirectoryPath = "d:\mainweb\reports\"
strURLPath = "http://mydomain.com/reports/"
'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'return folder object
Set objFolder = objFileScripting.GetFolder(strDirectoryPath)
'return file collection in folder
Set filecollection = objFolder.Files
'create the links
%>
<table width="530" cellpadding="5" cellspacing="0" border="1">
<tr>
<td width="180" valign="top"><center>
<form enctype="multipart/form-data" method="post" action="upload.asp">
<input type="File" name="F1" class="Form" size="10"><br>
<input type="File" name="F2" class="Form" size="10"><br>
<input type="File" name="F3" class="Form" size="10"><br>
<input type="File" name="F4" class="Form" size="10"><br>
<input type="File" name="F5" class="Form" size="10"><br>
<input type="submit" value="Start Upload" style="font-size: 10px; width: 168"></td>
<td width="350" valign="top">
<%
For each Filename in filecollection
filename = right(filename,len(Filename) - inStrRev(Filename, "\"))
Select Case Right(Filename,3)
Case "asp", "tml", "htm"
Response.Write("<img src='File.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "gif", "fla", "swf", "jpg"
Response.Write("<img src='Image.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "xls"
Response.Write("<img src='Excel.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "exe"
Response.Write("<img src='Exe.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "zip"
Response.Write("<img src='zip.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "doc"
Response.Write("<img src='doc.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case "txt"
Response.Write("<img src='Text.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
Case Else
Response.Write("<img src='None.gif'> <a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
End Select
Next
%></td>
</tr>
<tr>
<td colspan="2" align="right"><%= strURLPath %></td>
</tr>
</table>
</BODY>
</HTML>
If you think education is expensive, try ignorance.
-
Aug 29th, 2001, 02:05 PM
#4
Thread Starter
Hyperactive Member
Someone here must have some idea of how to troubleshoot this.
Anything....
If you think education is expensive, try ignorance.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote