asp <-> nntp scripts

  • Thread starter Mauricio Freitas [MVP]
  • Start date
M

Mauricio Freitas [MVP]

Hello

Does anyone know of a (good) asp script to browse/post nntp
(usenet/newsgroups)?

I know there are some ASP .Net ones, but I rather have this on ASP for now
since I'm still working on migrating my site later.

TIA

--
Mauricio Freitas, Microsoft MVP Mobile Devices
Bluetooth guides: http://www.geekzone.co.nz/content.asp?contentid=449
Geekzone Software Store: http://www.geekzone.co.nz/store
Our RSS feeds give you up to date information on new software as soon as
they're available: http://www.geekzone.co.nz/content.asp?contentid=3344
 
C

Chris Hohmann

Mauricio Freitas said:
Hello

Does anyone know of a (good) asp script to browse/post nntp
(usenet/newsgroups)?

I know there are some ASP .Net ones, but I rather have this on ASP for now
since I'm still working on migrating my site later.

Posting is a relatively straight forward process. Here's a VBScript example
adapted from the following article:

http://msdn.microsoft.com/library/en-us/wss/wss/posting_a_message_to_an_nntp_newsgroup.asp

<script language="VBScript" runat="SERVER">
Dim Msg : Set Msg = CreateObject("CDO.Message")
Dim Cfg : Set Cfg = CreateObject("CDO.Configuration")

Cfg.Fields("http://schemas.microsoft.com/cdo/configuration/postusing").Value
= 2
Cfg.Fields("http://schemas.microsoft.com/cdo/configuration/nntpserver").Valu
e = "yournntpserver"

Cfg.Fields.Update
Set Msg.Configuration = Cfg

Msg.Subject = "Hello"
Msg.From = "(e-mail address removed)"
Msg.Newsgroups = "yournewsgroup"
Msg.Post
</script>


Browsing is considerably more complicated. Basically, you need to create a
COM component to handle NNTP "Event Sinks". I've never attempted it myself
but here's the documentation if you're feeling adventurous:
http://msdn.microsoft.com/library/e..._smtp_nntp_transport_event_sinks_with_cdo.asp
 
M

Mauricio Freitas [MVP]

Chris Hohmann said:
Posting is a relatively straight forward process. Here's a VBScript
example
adapted from the following article:

http://msdn.microsoft.com/library/en-us/wss/wss/posting_a_message_to_an_nntp_newsgroup.asp

<script language="VBScript" runat="SERVER">
Dim Msg : Set Msg = CreateObject("CDO.Message")
Dim Cfg : Set Cfg = CreateObject("CDO.Configuration")

Cfg.Fields("http://schemas.microsoft.com/cdo/configuration/postusing").Value
= 2
Cfg.Fields("http://schemas.microsoft.com/cdo/configuration/nntpserver").Valu
e = "yournntpserver"

Cfg.Fields.Update
Set Msg.Configuration = Cfg

Msg.Subject = "Hello"
Msg.From = "(e-mail address removed)"
Msg.Newsgroups = "yournewsgroup"
Msg.Post
</script>


Browsing is considerably more complicated. Basically, you need to create a
COM component to handle NNTP "Event Sinks". I've never attempted it myself
but here's the documentation if you're feeling adventurous:
http://msdn.microsoft.com/library/e..._smtp_nntp_transport_event_sinks_with_cdo.asp
Cheers, will have to look at the sink scripts...

--
Mauricio Freitas, Microsoft MVP Mobile Devices
Bluetooth guides: http://www.geekzone.co.nz/content.asp?contentid=449
Geekzone Software Store: http://www.geekzone.co.nz/store
Our RSS feeds give you up to date information on new software as soon as
they're available: http://www.geekzone.co.nz/content.asp?contentid=3344
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
474,264
Messages
2,571,067
Members
48,770
Latest member
ElysaD

Latest Threads

Top