<%
Dim sNum, sTitle(30, 2), sTemp
Dim sLoc, sClass, sPage, sFile
Dim x, y, z, a, b, c, d(20)
sLoc="d:\domains\uppermerion.net\wwwroot\Alumni\secure\"
sPage="Stories.txt"
sFile=sLoc & sPage
Set sFileSystem=Server.CreateObject("Scripting.FileSystemObject")
Set sTextStream=sFileSystem.OpenTextFile(sFile, 1)
sNum=1
Do While Not sTextStream.AtEndOfStream
sTitle(sNum, 1)=sTextStream.ReadLine
sTitle(sNum, 2)=sTextStream.ReadLine
sNum=sNum+1
Loop
sNum=sNum-1
sTextStream.Close
%>
Story Admin
Editing
Tools
Select the book to begin editing it.
Copyright 1997 - 2009
by the Koehl-Mine™
Computer Services.
Provided as a free service to the Upper Merion High School Alumni.
Comments or questions should be directed to the Web
Master.
