% 'First we open the banner file, make sure you have the right path to the file Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile = MyFileObj.OpenTextFile(server.mappath("../quote/quote.txt")) 'Then we read the header IF NOT MyTextFile.AtEndOfStream THEN header = CInt(MyTextFile.ReadLine) END IF 'Then we make a random value based on the header, the RANDOMIZE 'statement is important to insure a random value. RANDOMIZE RandomValue = INT(header*RND)+1 Count=0 'Loops until it comes to line number=random value 'And then it saves it in the variable quote WHILE NOT MyTextFile.AtEndOfStream AND NOT Count = RandomValue quote = MyTextFile.ReadLine Count = Count + 1 WEND 'Closeing up the text file MyTextFile.Close %>
|
|
|||||||||||||||||
Sunday, 27 December 20091984 Batch Re-union
The 1984 ( Silver Jubilee ) batch had a nostalgic re-union in the school hall on 27th December 2009. Classmates came from all over the world and shared vivid memories of their school days. The theme was THEN, NOW and FOREVER..... That's the spirit boys.... Long live St Xavier's!
Thursday, 24 December 2009Christmas Play
The Primary put up the annual Christmas Play and the boys and staff had a Christmas Party later.
Friday, 18 December 2009Fun-Fair
The Fun-Fair was a huge success with every standard putting up a Food Stall and a Games Stall. The Teachers , the PTA members and the boys worked hard to make the event a very enjoyable experience. Thank You to the parents for the support and the Class IV workers for the manual labour involved.
Tuesday, 15 December 2009Tribal Students visit St Xavier's
About a hundred tribal students from Talasari stayed at St Xavier's School for three days and went for a Mumbai Darshan.
Wednesday, 9 December 2009 | ||||||||||||||||||