<% dim objRs, objCon, dtToday ' open the database set objCon= Server.CreateObject("ADODB.Connection") objCon.Open strCon cat = Request.QueryString("cat") if cat = "" then cat = "all" End If 'Write a select box Sub DropDown(tbl, valField, selVal, Field) set rsDrop = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT " & valField & ", " & Field & " FROM " & tbl & _ " ORDER BY " & field rsDrop.Open strSQL, objCon Response.Write "" do until rsDrop.EOF Response.Write "" & vbcrlf rsDrop.MoveNext loop rsDrop.Close set rsDrop=nothing end sub ' Format the ouput Function FormatStr(String) on Error resume next String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "

") String = Replace(String, CHR(10), "
") FormatStr = String End Function function dNum(n) if n >= 10 then dNum = cstr(n) Else dNum = "0" & cstr(n) End If End Function 'SQL Formatted Date Function SQLDate(dt) SQLDate = cdbl(dt) ' Year(dt) & "-" & DNum(Month(dt)) & "-" & Dnum(Day(dt)) & " " & dnum(hour(dt)) & ":" & dnum(Minute(dt)) End Function ' Get the previous sundays date Function DtPrevSunday(ByVal dt) Do While WeekDay(dt) > vbSunday dt = DateAdd("d", -1, dt) Loop DtPrevSunday = dt End Function 'Todays Date dtToday = Date() Dim dtCurViewMonth ' First day of the currently viewed month Dim dtCurViewDay ' Current day of the currently viewed month Dim frmDate ' Date submitted by form ' if the GO button was used, build the date from the month and year If InStr(1, Request.Form, "subGO", 1) > 0 then if Request.Form("CURDATE_month") = "" then tmpMonth = month(now()) else tmpMonth = Request.Form("CURDATE_month") End If if Request.Form("CURDATE_year") = "" then tmpyear = year(now()) else tmpyear = Request.Form("CURDATE_year") End If tmpDate = "1 " & tmpMonth & " 1999" mnth = Month(tmpDate) frmDate = DateSerial(tmpyear, mnth, 1) Else frmDate = Request.Form("CURDATE") end if if Request("view_date") <> "" then frmDate= DateSerial(year(Request("view_date")), month(Request("view_date")), 1) end if ' if posted from the form ' if prev button was hit on the form If InStr(1, Request.Form, "subPrev", 1) > 0 Then dtCurViewMonth = DateAdd("m", -1, frmDate) ' if next button was hit on the form ElseIf InStr(1, Request.Form, "subNext", 1) > 0 Then dtCurViewMonth = DateAdd("m", 1, frmDate) ' anyother time Else ' date add in text box If InStr(1, Request.Form, "subGO", 1) > 0 then dtCurViewMonth = frmDate Else if Request("view_date") <> "" then dtCurviewMonth = frmDate else dtCurViewMonth = DateSerial(Year(dtToday), Month(dtToday), 1) End If End If End If Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount strSQL ="SELECT diary.id, diary.dte, diary.text_field, Diary_Categorys.Category, Diary_Categorys.Colour, Diary_Categorys.BgColour" & _ " FROM Diary_Categorys RIGHT JOIN diary ON Diary_Categorys.Cat_ID = diary.Category " & _ " WHERE month(diary.dte)= " & month(dtCurViewMonth) & " and year(diary.dte) = " & year(dtCurViewMonth) if cat <> "all" then strSQL = strSQL & " AND Diary_Categorys.Cat_ID = " & cat End If strSQL = strSQL & " order by diary.dte" set objRs = objCon.Execute (StrSql) intCount= 0 ' populate array with days of month tmpDay = "" do until objRs.EOF if day(objRs("dte")) = tmpDay then lnk = "" &_ objRs("text_field") & "" dictDte(intCount-1, 1) = dictDte(intCount-1, 1) & "
" & lnk tmpDay = day(objRs("dte")) objRs.Movenext Else if Day(objRs("dte")) = intCount + 1 then lnk = "" &_ objRs("text_field") & "" dictDte(intCount, 1) = lnk tmpDay = day(objRs("dte")) objRs.Movenext intCount = intCount + 1 Else dictDte(intCount, 1) = " " intCount = intCount + 1 End If dictDte(intCount, 2) = intCount + 1 End if loop %> Jawahar Navodaya Vidyalaya Kottayam,Kerala

Jawahar Navodaya Vidyalaya (Under Department of School Education and Literacy,Ministry of HRD,Government of India) Vadavathoor P.O., Kottayam Dist, Pin:686 010, Kerala.Ph.No:0481 2578402 , Email:jnvkottayam@yahoo.co.in

Providing good quality model education to the talented children predominantly from the rural areas with no regard to their socio economic conditions.

 

 

VIDYALAYA CALENDER

CLICK ON THE ITEM TO VIEW THE DETAILS

 

 

Today | Admin Select an Event Category
<% For iDay = vbSunday To vbSaturday %> <%Next %> <% dtCurViewDay = DtPrevSunday(dtCurViewMonth) For iWeek = 0 To 5 Response.Write "" & vbCrLf For iDay = vbSunday To vbSaturday sBGCOLOR = "cell" If Month(dtCurViewDay) = Month(dtCurViewMonth) Then If dtCurViewDay = dtToday Then sBGCOLOR = "cellToday" else sBGCOLOR = "cell" End If Response.Write "" & vbCrLf dtCurViewDay = DateAdd("d", 1, dtCurViewDay) Next Response.Write "" & vbCrLf Next %>
<%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%>
<%=WeekDayName(iDay)%>
" If Month(dtCurViewDay) = Month(dtCurViewMonth) Then if Session("DiaryAdmin") then Response.Write "" Response.Write Day(dtCurViewDay) & "
" Else Response.Write Day(dtCurViewDay) & "
" End If Response.Write formatStr(dictDte(Day(dtCurViewDay)- 1, 1)) & "
" End If Response.Write "
Designed By Unnikrishnan P P,JNV,Kottayam
<% on error resume next objRs.close objCon.Close set objrs = nothing set objCon=nothing %>