<% 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

Story Admin

 Editing Tools

Story Edit Notifier UM Dot Net

 
Select the book to begin editing it.
 
Select the Book: 

 

 
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.