есть код
Код: Выделить всё
<%
Sub TreeModel(path)
Const ForReading = 1
Dim fso, theFile, retString
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(path, ForReading, False)
Do While theFile.AtEndOfStream <> True
' обработка файла
Loop
theFile.Close
End Sub
%>
Т.е. если запустить этот код, к примеру, http://localhost/../some_file.asp, который использует этот sub, то страница догружается до 38% (почему именно до 38 ?) и всё - можешь ждать хоть день - ничего нового не увидишь.
Я предполагаю, что дело в том, что данный Scripting, я уж не знаю,
был прописан в реестре, а я между делом устанавливал себе некоторые компоненты active-x, и из реестра возможно удалил впоследствии что-нибудь лишнее, в связи с чем работать код перестал. Хотя это только моё предположение, возможно дело совсем в другом.
К сведению, дома у меня ISS v. 5.0, может пригодится.
Спасибо !