Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: news ошибка скрипта Добавлено: 23.11.05 18:37  

Автор вопроса:  zix
Есть скрипт
 Set NNTP = Server.CreateObject("AspNNTP.Conn")
  NNTP.Server = "news.may.ua"
  NNTP.PrepareToPost
  NNTP.Subject = "Test"
  NNTP.FromName = "ZIX"
  NNTP.FromAddress = "zix@may.ua"
  NNTP.BodyText = "This is only a test. "
  NNTP.Groups = "admin.post"
  Set NNTP = nothing
Сделал regsvr32 aspnntp.dll
Сервер новостей без аунтентификации.
Скрипт дает ошибку
Line: 1
Char: 3
Error: Object required: 'Server'
Code: 800A01A8

Подскажите где ошибка

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #1
Добавлено: 23.11.05 18:59
Это вы в ASP используете или в клиентском VBScript?

Ответить

Номер ответа: 2
Автор ответа:
 zix



Вопросов: 1
Ответов: 3
 Профиль | | #2 Добавлено: 24.11.05 10:14
В клиентском VBScript
*.vbs

Ответить

Номер ответа: 3
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #3
Добавлено: 24.11.05 10:18
В клиентском скрипте объекта Server не существует. Для создания объекта воспользуйтесь таким кодом:

Set NNTP = CreateObject("AspNNTP.Conn";)

Ответить

Номер ответа: 4
Автор ответа:
 zix



Вопросов: 1
Ответов: 3
 Профиль | | #4 Добавлено: 24.11.05 11:13
Ошибок нет, но и в конференции то же нет сообщения
Posting разрешён

Ответить

Номер ответа: 5
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #5
Добавлено: 24.11.05 12:43
Это уже изучай особенности работы с AspNNTP. Честно говоря, о нем раньше даже не слышал.

Но судя по коду, видно, что он работать и не должен. Инициализация свойств объекта ест, а вот метода отправки сообщения - нету.

Ответить

Номер ответа: 6
Автор ответа:
 zix



Вопросов: 1
Ответов: 3
 Профиль | | #6 Добавлено: 24.11.05 13:30
Set objEmail = CreateObject("CDO.Message";)
CRLF = Chr(13)+Chr(10)
objEmail.From = "zix1@may.ua"
objEmail.To = "zix2@may.ua"
objEmail.Subject = "Test"
objEmail.Textbody = "test"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver";) = "mail.may.ua"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25
objEmail.Configuration.Fields.Update
objEmail.Send

А вот этот код работает только для почты
И в чем сильная разница

Ответить

Номер ответа: 7
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #7
Добавлено: 24.11.05 13:34
Как минимум в том, что почту ты отправляешь (вызов метода Send в последней строчке), а NNTP-сообщение - нет.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам