<% Option Explicit
%>
OpNews - Newsgroup list
<% Server.Execute("border_top.asp") %>
Here's a selection of just some of the newsgroups available via OpNews:
<%
Dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Dim filename
filename = Replace(Server.MapPath( Request.ServerVariables("SCRIPT_NAME")),"groups.asp", "list.txt")
Dim file
Set file = fs.OpenTextFile(filename)
Dim line
Do While Not file.AtEndOfStream
line = file.ReadLine
%>
<%=line%>
<%
Loop
%>
<% Server.Execute("border_bottom.asp") %>
