NNTP Component

<%
Set NNTP = Server.CreateObject("AspNNTP.Conn")

NNTP.Server = "msnews.microsoft.com"

if NNTP.SetNewsgroup ("microsoft.public.inetserver.misc") then
Response.Write "First 10 postings:<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>Unable to open Server or Newsgroup<br>" & VbCrLf
Response.Write "Failure was: " & NNTP.Response & "</p>" & VbCrLf
end if

Set NNTP = nothing
%>