Excerpts <% dim fso, read, excerptRequest, title, titles(), excerpt, excerpts(), titleAndExcerpt, i excerptRequest = request.QueryString("excerpt") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set read = fso.OpenTextFile(Server.MapPath("excerpts\excerpts.txt"), 1) titleAndExcerpt = split(read.ReadAll, "~~") i=3 do until i > ubound(titleAndExcerpt) 'on error resume next Redim titles(i), excerpts(i) titles(i) = titleAndExcerpt(i) excerpts(i) = titleAndExcerpt(i+1) if lcase(excerptRequest) = lcase(titles(i)) then if not titles(i) = "File_End" then response.write("· " &titles(i)& " ") & vbcr excerpt = excerpts(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 excerptRequest = "default" or excerptRequest = "" then response.write("On the left is a list of excerpts. Please choose the excerpt that you would like to read.") else if not excerpt = "" then response.write(""&excerptRequest&" "&excerpt & " ") & vbcr end if end if %>