<% 'Dim oFilesys, oFile 'Set oFilesys = CreateObject("Scripting.FileSystemObject") 'Set oFile = oFilesys.OpenTextFile(Server.MapPath("links.txt")) 'sFile = oFile.readall 'oFile.Close 'Set oFile = nothing 'Set oFileSys = nothing 'sLinks = split(sFile, chr(13)) %>

<%'FOR i = 0 to ubound(sLinks)%> www.iptv.org www.commondreams.org www.o-y-c.org www.artslive.com www.lakesart.org www.okobojiprotectiveassociation.org www.keepokobojiblue.com www.expeditionco.com www.willsteger.com www.sailorsforthesea.org www.aroundtheamericas.com Pacific Science Center PBS Promo www.realclimate.org Canadian Ice Service www.nsidc.org <%'NEXT%>

<%For i = 1 to 6%> <%Next%>