B
Bradley M. Small
I have a web application that works fine under Window 2000 but breaks under
Windows XP.
If it is served form a Win2k box, it makes a list of files in the "reports"
directory. If server on XP the IE screen goes white, and it just hourglasses
seemignly forever. Is there a security or configuration Iam missing?
I have tracked the breakdown to a section of code that uses the
FileSystemObject to build a select list on a page. It looks like this:
<%
' get reports directory
folder = Request.ServerVariables("PATH_TRANSLATED")
While (Right(folder, 1) <> "\" And Len(folder) <> 0)
iLen = Len(folder) - 1
folder = Left(folder, iLen)
Wend
folder = folder & "reports\"
%>
<form id=myForm name = myForm action =
PanMarketReports.asp?Market=<%=Market%> method=post>
<input type=hidden id=cmd name=cmd>
<Label>Select Report:</label>
<select id=reports name=reports onchange='myForm.cmd.value="getParms";
submit();' onselect='myForm.cmd.value="getParms"; submit();'
ondblclick='myForm.cmd.value="getParms"; submit();'>
<%
set fso = server.createobject("Scripting.fileSystemObject")
set fold = fso.getFolder(folder)
for each file in fold.files
fn = file.name
rn = LEFT(file.name,instrrev(file.name,".") - 1)
response.write "<option value = '" & file.name & "'"
if fn = Request("reports") then
Response.Write " selected "
end if
Response.Write ">" & rn & "</option>" & vbcrlf
next
set fold = nothing: set fso = nothing
%>
Windows XP.
If it is served form a Win2k box, it makes a list of files in the "reports"
directory. If server on XP the IE screen goes white, and it just hourglasses
seemignly forever. Is there a security or configuration Iam missing?
I have tracked the breakdown to a section of code that uses the
FileSystemObject to build a select list on a page. It looks like this:
<%
' get reports directory
folder = Request.ServerVariables("PATH_TRANSLATED")
While (Right(folder, 1) <> "\" And Len(folder) <> 0)
iLen = Len(folder) - 1
folder = Left(folder, iLen)
Wend
folder = folder & "reports\"
%>
<form id=myForm name = myForm action =
PanMarketReports.asp?Market=<%=Market%> method=post>
<input type=hidden id=cmd name=cmd>
<Label>Select Report:</label>
<select id=reports name=reports onchange='myForm.cmd.value="getParms";
submit();' onselect='myForm.cmd.value="getParms"; submit();'
ondblclick='myForm.cmd.value="getParms"; submit();'>
<%
set fso = server.createobject("Scripting.fileSystemObject")
set fold = fso.getFolder(folder)
for each file in fold.files
fn = file.name
rn = LEFT(file.name,instrrev(file.name,".") - 1)
response.write "<option value = '" & file.name & "'"
if fn = Request("reports") then
Response.Write " selected "
end if
Response.Write ">" & rn & "</option>" & vbcrlf
next
set fold = nothing: set fso = nothing
%>