<% on error resume next dim k, k1,k2,s,s1,counter k=Server.MapPath("VC") k1 = k & "\Visitors.txt" k2 = k & "\News.txt" Set fs = CreateObject("Scripting.FileSystemObject") set g = fs.OpenTextFile(k1) s = g.readline() g.close Set g = fs.OpenTextFile(k2) s1 = g.readline() s = s + 1 Set a = fs.CreateTextFile(k1, True) a.WriteLine(s) a.Close For i = 1 to len(s) counter = counter & (mid(s,i,1)) Next %>
Shri Shivaji College, Akola
:: NAAC Accredited, with B+ :: <%= s1 %>
 
 
 
  Academic Calendar
Concession, Scholaship & Awards
Adv. Arunbhau Shelke (President)
Facilities
General Infomation
Goals & Objectives
 
Managements
Shri Shivaji College Of Arts, Commerce & Science, Akola
Photo Gallery
 
What is Shivaji Online?
 
We will connect peoples online..
 
 
Visitors : <%= counter %>
  
 
Copyright ® ShivajiAkola.org
Website is best viewed in IE6.0, Opera 9.20, FireFox 0.9 with 800x600 resolution
Design & Develop By ISC