Не работает ADODB.Stream: HTTP 500 - Internal server error Internet Explorer

@sergik_sergik · Регистрация: 05.02.2009

Помогите не работает почему-то. Вот код взял у вас на форуме:

function saveToFile(strFName, strText)
Dim objStream

strText = Replace(strText, '<', '<')
strText = Replace(strText, '>', '>')
Set objStream = Server.CreateObject('ADODB.Stream')
With objStream
.Open
.Charset = 'ascii'
.Type = adTypeText
.Position = 0
.WriteText strText
.SaveToFile strFName, adSaveCreateOverwrite
.Close
End With
Set objStream = Nothing
saveToFile = true
End function

Так вот как только дело доходит до .WriteText strText или .SaveToFile strFName, adSaveCreateOverwrite выдается ошибка:

HTTP 500 - Internal server error
Internet Explorer

@debutant · 19.02.2009, 19:17

Пользователь IUSR_имя машины не имеет прав на запись в данный каталог

@sergik_sergik · 19.02.2009, 19:51 **[ТС]**

Но ведь FSO работает

Set objFile = Server.CreateObject('Scripting.FileSystemObject')
Set objStream = objFile.OpenTextFile(strFName, 2, true)

20.02.2009, 12:12

отключи идиотскую 500ою ошибку в браузере и посмотри в чем проблема

@sergik_sergik · 20.02.2009, 22:42 **[ТС]**

а где она отключается?

@sergik_sergik 0 / 0 / 0 Регистрация: 05.02.2009 Сообщений: 95
		1
	Не работает ADODB.Stream: HTTP 500 - Internal server error Internet Explorer 19.02.2009, 15:44. Показов 2376. Ответов 4 Метки нет (Все метки) Помогите не работает почему-то. Вот код взял у вас на форуме: function saveToFile(strFName, strText) Dim objStream strText = Replace(strText, '<', '<') strText = Replace(strText, '>', '>') Set objStream = Server.CreateObject('ADODB.Stream') With objStream .Open .Charset = 'ascii' .Type = adTypeText .Position = 0 .WriteText strText .SaveToFile strFName, adSaveCreateOverwrite .Close End With Set objStream = Nothing saveToFile = true End function Так вот как только дело доходит до .WriteText strText или .SaveToFile strFName, adSaveCreateOverwrite выдается ошибка: HTTP 500 - Internal server error Internet Explorer __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@debutant 0 / 0 / 0 Регистрация: 17.08.2007 Сообщений: 539
	19.02.2009, 19:17	2
	Пользователь IUSR_имя машины не имеет прав на запись в данный каталог 0

@sergik_sergik 0 / 0 / 0 Регистрация: 05.02.2009 Сообщений: 95
	19.02.2009, 19:51 [ТС]	3
	Но ведь FSO работает Set objFile = Server.CreateObject('Scripting.FileSystemObject') Set objStream = objFile.OpenTextFile(strFName, 2, true) 0

Rider
	20.02.2009, 12:12	4
	отключи идиотскую 500ою ошибку в браузере и посмотри в чем проблема

@sergik_sergik 0 / 0 / 0 Регистрация: 05.02.2009 Сообщений: 95
	20.02.2009, 22:42 [ТС]	5
	а где она отключается? 0

Опции темы