M
Marshall J
The following routine suddenly (after loading an MS Win2k
update yesterday) causes my system to hang using ASP and
IIS 5.0:
This is the text of 'debug.inc' which I read into my ASP
files as an include - then I can debug my ASP code, by
user, by setting the bolDebug to True or False in this one
file and scripting to the object.
When I set bolDebug=False my ASP pages work just fine
conversely it hangs when bolDebug=True. Does anyone know
of a change???
Thanks for your input...
-----------------------------------------------------------
[debug.inc]
<%
dim bolDebug
Dim strDebugLine
bolDebug=True
if bolDebug then
const ForAppending=8
dim sdir,objFSO, objTS
sdir = Server.MapPath(".") & "\debug_" & Session
("CentsUser_ID") & ".txt"
'Create our FSO and TextStream objects
Set objFSO = Server.CreateObject
("Scripting.FileSystemObject")
'Create the text file
Set objTS = objFSO.OpenTextFile
(sdir,ForAppending,True)
end if
%>
-----------------------------------------------------------
[sample code inside ASP page]
if bolDebug then
strDebugLine="cents_login.asp - Streaming Text
Created: " & Date & " - " & Time
objTS.WriteLine strDebugLine
end if
update yesterday) causes my system to hang using ASP and
IIS 5.0:
This is the text of 'debug.inc' which I read into my ASP
files as an include - then I can debug my ASP code, by
user, by setting the bolDebug to True or False in this one
file and scripting to the object.
When I set bolDebug=False my ASP pages work just fine
conversely it hangs when bolDebug=True. Does anyone know
of a change???
Thanks for your input...
-----------------------------------------------------------
[debug.inc]
<%
dim bolDebug
Dim strDebugLine
bolDebug=True
if bolDebug then
const ForAppending=8
dim sdir,objFSO, objTS
sdir = Server.MapPath(".") & "\debug_" & Session
("CentsUser_ID") & ".txt"
'Create our FSO and TextStream objects
Set objFSO = Server.CreateObject
("Scripting.FileSystemObject")
'Create the text file
Set objTS = objFSO.OpenTextFile
(sdir,ForAppending,True)
end if
%>
-----------------------------------------------------------
[sample code inside ASP page]
if bolDebug then
strDebugLine="cents_login.asp - Streaming Text
Created: " & Date & " - " & Time
objTS.WriteLine strDebugLine
end if