left circle
learnigo logo              
home about program curricular campus life parents admission contact careers

 

Directors's Messages
Mission Statement
Our Plan of Action
Learnigo Team
 
 
 

Mission Statement

Our mission at Learnigo is to identify and nurture the talents of each child and help them develop into skilful young prodigies, who can grow up to be independent, confident and responsible adults. We aim to achieve this by engaging, developing and retaining the best teaching resources; by fostering a motivating, challenging and conducive academic environment not only for the kids but also for the staff; and by collaborating closely with the parents to make this vision a reality.

 


  
copy right
right-circle
  <% 'Dimenstion Variables Dim strDatabasePath 'Initialise the path to the access database if inside another folder strDatabasePath = ("") 'Call the sub procedure to increment the hit counters Call IncrementHitCount(strDatabasePath) %> <% Dim objconn1 const forReading=1, ForWriting=2, ForAppending=8 Const TristateUseDefault=-2, TristateTrue=-1, TristateFalse=0 dim strPhysicalPath1 strPathInfo1 = "counter/hit_count.mdb" strPhysicalPath1=server.MapPath(strpathinfo1) strConnect1="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strPhysicalPath1 set objConn1=server.CreateObject("adodb.Connection") ObjConn1.open strConnect1 Set Objcom1 = server.CreateObject ("ADODB.Command") ObjCom1.ActiveConnection = ObjConn1 'Create a connection odject SQLGet1= "SELECT * FROM tblHitCount where page='/index.asp'" objCom1.CommandText = (SQLGet1) set objrsSQLGe1t= objcom1.Execute %> <% set objConn1=nothing set Objcom1 =nothing set objrsSQLGe1t=nothing strPhysicalPath1 ="" strPathInfo1="" set strPhysicalPath1 =nothing set strPathInfo1 =nothing %> Click Here