Com o componente AspNNTP você pode recuperar artigos postados de usuários de um servidor Usenet/News.
A Usenet é um serviço semelhante ao das listas de discussão que visa a troca de mensagens por usuários da rede sobre assuntos específicos. Em nosso exemplo, utilizamos o servidor da Microsoft. Abaixo as alterações que devem ser feitas, comentadas no próprio arquivo:
Código ASP:
<!-- Início ASP --->
<html>
<head>
<title>Digiweb - Exemplo AspNNTP</title>
</head>
<body>
<blockquote>
<%
Set NNTP = Server.CreateObject("AspNNTP.Conn")
' Informe o nome do servidor de notícias que deseja acessar.
NNTP.Server = "msnews.microsoft.com"
if NNTP.SetNewsgroup ("microsoft.public.inetserver.misc") then
Response.Write "Primeiros 10 artigos:<p><table>"
For intCount = 1 to 10
NNTP.GetArticleHeaders
Response.Write "<tr><td>" & NNTP.CurrentArticle & "</td><td>" & NNTP.Subject & "</tr>"
NNTP.NextArticle
Next
Response.Write "</table>"
else
Response.Write "<p>Impossível se comunicar com o servidor ou com o grupo de notícias.<br>" & VbCrLf
Response.Write "O erro apresentado foi: " & NNTP.Response & "</p>" & VbCrLf
end if
Set NNTP = nothing
%>
</blockquote>
</body>
</html>
<!-- Fim ASP --->