News Items <% dim fso, read, newsRequest, title, titles(), thisNews, news(), titleAndNews, i newsRequest = request.QueryString("news") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set read = fso.OpenTextFile(Server.MapPath("news\news.txt"), 1) titleAndNews = split(read.ReadAll, "~~") i=3 do until i > ubound(titleAndNews) 'on error resume next Redim titles(i), news(i) titles(i) = titleAndNews(i) news(i) = titleAndNews(i+1) if lcase(newsRequest) = lcase(titles(i)) then if not titles(i) = "File_End" then response.write("· " &titles(i)& " ") & vbcr thisNews = news(i) end if else if not titles(i) = "File_End" then response.write("" &titles(i)& " ") & vbcr end if end if i = i+2 loop read.Close Set read=Nothing Set fso=Nothing %>		<% if newsRequest = "default" or newsRequest = "" then response.write("Welcome to the LDSChat news section. On the left you will see a list of current news items.") else response.write(""&newsRequest&" "&thisNews&" ") & vbcr end if %>