Explore thousands of reviewed Web sites aligned to the New Hampshire Curriculum Standards. » Start surfing!
PBS Activity Search
Search for free online video, lesson plans, online interactives, web links, and book listings by topic and grade level. » Start searching!
Wildlife Journal Junior
Learn more about New Hampshire wildlife with this web site for grades 4-8. » Go Wild!
NatureWorks
Learn more about the natural world with this companion site to the instructional television series NatureWorks. The site features profiles of over 200 animals. » Explore!
Outlook on Money in the Classroom
This site has video, lesson plans, classroom activities, and web resources to help students learn how to manage their money. » Be Accountable!
NH Supreme Court
Learn more about how the NH Supreme Court works at this site featuring streaming video from a videoconference with the justices of the NH Supreme Court and NH students. >> Learn More !
Mock Election
Learn how your school or class can participate in the Mock Election. The next elction will be the NH Primary.
» Be Involved
Reading Rainbow Contest
Read the winning stories from the 13th Annual Reading Rainbow Young Writers and Illustrators Contest and find out how to enter the 14th Annual Contest. » Enjoy!
MacDowell Colony
Find out about the history of the MacDowell Colony and learn more about some of the artists that found inspiration in the Peterborough, New Hampshire artist's colony. » Discover!
NH K-6 History Curriculum
Developed by the New Hampshire Historical Society, this curriculum features lesson ideas, activities, and an overview of New Hampshire history. » Learn more
Online Learning
OPEN NH offers online courses facilitated by NH educators.
>> Learn More!
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_PROTRACK_itvdb_STRING
MM_PROTRACK_itvdb_STRING = "dsn=ITVDB;uid=webuserp;pwd=nhptv123;"
%>
<%
Dim nowVariable
Dim hourMan
Dim minuteMan
Dim secondMan
Dim startTime
Dim endTime
Dim listLength
listLength = 48
nowVariable = Now()
hourMan = Hour(nowVariable)
minuteMan = Minute(nowVariable)
secondMan = Second(nowVariable)
If (hourMan >= 18) Then
nowVariable = DateAdd("d", 1, Now())
Else
hourMan = .75
End If
startTime = DateAdd("s", - secondMan, (DateAdd("n", - minuteMan , (DateAdd("h", - hourMan ,nowVariable)))))
endTime = DateAdd("H", listLength, startTime)
Dim dateTopPageDisp
dateTopPageDisp = WeekDayName(WeekDay(nowVariable)) & ", " & MonthName(Month(nowVariable)) & " " & Day(nowVariable)
Function dateDisp(this)
Dim dateTopFunc
dateTopFunc = WeekDayName(WeekDay(this)) & ", " & MonthName(Month(this)) & " " & Day(this)
Response.Write(dateTopFunc)
End Function
Function displayTime(this) 'CONVERT TIME OUTPUT FOR DISPLAY
Dim datHourTemp
Dim datMinuteTemp
Dim datPrepDisplay
Dim datFinalDisplay
Dim datTimeChaser
datPrepDisplay = FormatDateTime(this, 4 )
datHourTemp = Hour(datPrepDisplay)
datMinuteTemp = Minute(datPrepDisplay)
If (datMinuteTemp < 10) Then
datMinuteTemp = "0" & datMinuteTemp
End If
If (datHourTemp >= 12) Then
datTimeChaser = "pm"
If (datHourTemp > 12) Then
datHourTemp = datHourTemp - 12
End If
Else
datTimeChaser = "am"
If (datHourTemp = 0) Then
datHourTemp = datHourTemp + 12
End If
End If
datFinalDisplay = datHourTemp & ":" & datMinuteTemp & " " & datTimeChaser
Response.Write(datFinalDisplay)
End Function
Function nunRemoval(this) 'SKIP EPISODE DISPLAY IF = "NONE" AND RETURN THE LOWERCASE EPISODE TITLE
Dim nunCheck
nunCheck = Trim(this)
If (nunCheck = "NONE") Then
nunCheck = ""
End If
Response.Write(LCase(nunCheck))
End Function
%>
<%
Dim kidsprogSet
Dim kidsprogSet_cmd
Dim kidsprogSet_numRows
Set kidsprogSet_cmd = Server.CreateObject ("ADODB.Command")
kidsprogSet_cmd.ActiveConnection = MM_PROTRACK_itvdb_STRING
'kidsprogSet_cmd.CommandText = "SELECT DISTINCT ai_air_strt_inst, ser_title, pg_title, vsn_serial, vsn_caption, vsn_ac3, vsn_package_type, ser_pgm_type FROM quad_tab INNER JOIN airx ON vsn_serial = ai_vsn_id WHERE ser_pgm_type = 'CH' ORDER BY ai_air_strt_inst ASC"
kidsprogSet_cmd.CommandText = "SELECT DISTINCT ai_air_strt_inst, ser_title, pg_title, vsn_serial, vsn_caption, vsn_ac3, vsn_package_type, ser_pgm_type FROM quad_tab INNER JOIN airx ON vsn_serial = ai_vsn_id WHERE ai_air_strt_inst >= '" & startTime & "' AND ai_air_strt_inst <= '" & endTime & "' AND ai_virt_chnl = 'NHPTVHD' AND ser_pgm_type = 'CH' ORDER BY ai_air_strt_inst ASC"
kidsprogSet_cmd.Prepared = true
Set kidsprogSet = kidsprogSet_cmd.Execute
kidsprogSet_numRows = 0
%>
<%
Dim dayChangeCheck1
Dim dayChangeCheck2
'Determine date display
Dim compareTemp1
Function compareDate1(this)
compareTemp1 = WeekDay(this)
dayChangeCheck1 = compareTemp1
End Function
Dim compareTemp2
Function compareDate2(this)
compareTemp2 = WeekDay(this)
dayChangeCheck2 = compareTemp2
End Function
compareDate1(nowVariable)
%>
<%=dateTopPageDisp%>
<%
Dim kidsprogSetpeat__numRows
Dim kidsprogSetpeat__index
kidsprogSetpeat__numRows = 5
kidsprogSetpeat__index = 0
kidsprogSet_numRows = kidsprogSet_numRows + kidsprogSetpeat__numRows
While ((kidsprogSetpeat__numRows <> 0) AND (NOT kidsprogSet.EOF))
%>
<%
compareDate2(kidsprogSet.Fields.Item("ai_air_strt_inst").Value)
If (dayChangeCheck1 <> dayChangeCheck2) Then ' DETERMINE DAY DISPLAY ON DATE CHANGE
%>
