 |
|
|
|
|
|
|
|
| |
|
|
| |
| Dear
Students, |
| |
|
Education
is to be valued not as a means of earning, but
as the essential requisite for a happy, peaceful
and progressive life leading man from the animal
stage of existence to the presence of the Divine,
where Love and Light reign undisturbed. Today
we find crises of character, morality and rampant
corruption. The reason behind is that education
dose not cover the study of Human values, ethics
& morality.
The cherished human values are forgotten. The
only source of light amid this darkness is the
teacher who is a man of character and can mould
the character and personality of the students.
I wish you all a bright and successful future.
With
Love & Blessing,
|
| |
Sunil
Shukla
Director
|
Dr.
Vandana Thakur
Principal |
|
| |
|
|
|
|
|
|
| Website
Designed by Vision
Information Technology M-
98933 53242 |
Visitors
<%= RetrieveAndIncrementCount() %>
<%
Function RetrieveAndIncrementCount()
' From adovbs.inc:
Const adOpenKeyset = 1
Const adLockPessimistic = 2
Const adCmdText = &H0001
' Local variables
Dim strFilename
Dim strSQL
Dim rsCounter
Dim iCount
strFilename = Request.ServerVariables("SCRIPT_NAME")
strSQL = "SELECT page_name, hit_count FROM hit_count WHERE page_name='" & strFilename & "';"
Set rsCounter = Server.CreateObject("ADODB.Recordset")
rsCounter.Open strSQL, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") & ";", _
adOpenKeyset, adLockPessimistic, adCmdText
If rsCounter.EOF Then
rsCounter.AddNew
iCount = 0
rsCounter.Fields("page_name").Value = strFilename
Else
rsCounter.MoveFirst
iCount = rsCounter.Fields("hit_count").Value
End If
rsCounter.Fields("hit_count").Value = iCount + 1
rsCounter.Update
rsCounter.Close
Set rsCounter = Nothing
RetrieveAndIncrementCount = iCount
End Function
%>
|
|
|
|
 |
