 |
 |
 |
 |
<%
Dim rsProgsDepts
Dim rsProgsDepts_numRows
if request.querystring("OrderBy") = "ProgramsDepartment_Program" then
sqlOrderby = " ORDER BY ProgramsDepartment_Program, Departments_Department "
else
sqlOrderby = " ORDER BY Departments_Department, ProgramsDepartment_Program "
end if
sqlStr = " SELECT Programs_ID, Departments_Name, Departments_WebPage, Programs_Name, Programs_Ldesc, ProgramsDepartment_Program, Departments_Department FROM Depatments, Programs, ProgramsDepartment WHERE ProgramsDepartment_Program = Programs_Name and Departments_Department = Departments_Name "
Set rsProgsDepts = Server.CreateObject("ADODB.Recordset")
rsProgsDepts.ActiveConnection = MM_BJEContent_STRING
rsProgsDepts.Source = sqlStr & sqlOrderby
'rsProgsDepts.Source = "SELECT Departments_Name, Departments_WebPage, Programs_Name, Programs_Ldesc, ProgramsDepartment_Program, Departments_Department FROM Depatments, Programs, ProgramsDepartment WHERE ProgramsDepartment_Program = Programs_Name and Departments_Department = Departments_Name "
'rsProgsDepts.Source = "SELECT ProgramsDepartment_Program, Departments_Department, Programs_Ldesc FROM ProgramsDepartment, Programs WHERE Programs_Name = ProgramsDepartment_Program ORDER BY Departments_Department, ProgramsDepartment_Program"
rsProgsDepts.CursorType = 0
rsProgsDepts.CursorLocation = 2
rsProgsDepts.LockType = 1
rsProgsDepts.Open()
rsProgsDepts_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsProgsDepts_total
Dim rsProgsDepts_first
Dim rsProgsDepts_last
' set the record count
rsProgsDepts_total = rsProgsDepts.RecordCount
' set the number of rows displayed on this page
If (rsProgsDepts_numRows < 0) Then
rsProgsDepts_numRows = rsProgsDepts_total
Elseif (rsProgsDepts_numRows = 0) Then
rsProgsDepts_numRows = 1
End If
' set the first and last displayed record
rsProgsDepts_first = 1
rsProgsDepts_last = rsProgsDepts_first + rsProgsDepts_numRows - 1
' if we have the correct record count, check the other stats
If (rsProgsDepts_total <> -1) Then
If (rsProgsDepts_first > rsProgsDepts_total) Then
rsProgsDepts_first = rsProgsDepts_total
End If
If (rsProgsDepts_last > rsProgsDepts_total) Then
rsProgsDepts_last = rsProgsDepts_total
End If
If (rsProgsDepts_numRows > rsProgsDepts_total) Then
rsProgsDepts_numRows = rsProgsDepts_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsProgsDepts_total = -1) Then
' count the total records by iterating through the recordset
rsProgsDepts_total=0
While (Not rsProgsDepts.EOF)
rsProgsDepts_total = rsProgsDepts_total + 1
rsProgsDepts.MoveNext
Wend
' reset the cursor to the beginning
If (rsProgsDepts.CursorType > 0) Then
rsProgsDepts.MoveFirst
Else
rsProgsDepts.Requery
End If
' set the number of rows displayed on this page
If (rsProgsDepts_numRows < 0 Or rsProgsDepts_numRows > rsProgsDepts_total) Then
rsProgsDepts_numRows = rsProgsDepts_total
End If
' set the first and last displayed record
rsProgsDepts_first = 1
rsProgsDepts_last = rsProgsDepts_first + rsProgsDepts_numRows - 1
If (rsProgsDepts_first > rsProgsDepts_total) Then
rsProgsDepts_first = rsProgsDepts_total
End If
If (rsProgsDepts_last > rsProgsDepts_total) Then
rsProgsDepts_last = rsProgsDepts_total
End If
End If
%>
<%
fontOpen=""
fontClose=""
rsProgsDepts.movefirst
if setwidth = "sm" then
width = " width='150' "
else
width = ""
end if
'width = ""
menuStr=""
thisDept = (rsProgsDepts.Fields.Item("Departments_Department").Value)
lastDept = "fluffy"
for i = 1 to (rsProgsDepts_total)
thisDept = (rsProgsDepts.Fields.Item("Departments_Department").Value)
if thisDept <> lastDept then
menuStr = menuStr & ""
menuStr = menuStr & ""
if request.querystring("dept") = thisDept then
menuStr = menuStr & " "
else
menuStr = menuStr & " "
end if
menuStr = menuStr & " | "
menuStr = menuStr & "" & fontOpen & (rsProgsDepts.Fields.Item("Departments_Department").Value) & fontClose & " | "
menuStr = menuStr & " "
end if
if request.querystring("dept") = thisDept then
menuStr = menuStr & ""
menuStr = menuStr & "| | "
menuStr = menuStr & " | "
menuStr = menuStr & "" & fontOpen & (rsProgsDepts.Fields.Item("ProgramsDepartment_Program").Value) & fontClose & " | "
menuStr = menuStr & " "
end if
lastDept = (rsProgsDepts.Fields.Item("Departments_Department").Value)
rsProgsDepts.movenext
next
menuStr = menuStr & " "
%>
<%
if writeMenu = true then response.write menuStr
rsProgsDepts.movefirst
%>
<%
rsProgsDepts.Close()
Set rsProgsDepts = Nothing
%>
|
left |
<%=FormatDateTime(Date(), 1)%> |
| |
|
|
|
<%
Dim rsContacts__MMColParam
rsContacts__MMColParam = "0"
If (Request.QueryString("Programs_ID") <> "") Then
rsContacts__MMColParam = Request.QueryString("Programs_ID")
End If
%>
<%
Dim rsContacts
Dim rsContacts_numRows
Set rsContacts = Server.CreateObject("ADODB.Recordset")
rsContacts.ActiveConnection = MM_BJEContent_STRING
rsContacts.Source = "SELECT Person_info_lname, Person_info_fname, Person_info_sal, Person_info_Wphone, Person_info_Ext, Person_info_Wfax, Person_info_Wf_ext, Person_info_Wemail, Programs_ID FROM Person_info, Programs WHERE (Person_info_ID = Programs_Contact1 or Person_info_ID = Programs_Contact2) AND Programs_ID = " + Replace(rsContacts__MMColParam, "'", "''") + ""
rsContacts.CursorType = 0
rsContacts.CursorLocation = 2
rsContacts.LockType = 1
rsContacts.Open()
rsContacts_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsContacts_total
Dim rsContacts_first
Dim rsContacts_last
' set the record count
rsContacts_total = rsContacts.RecordCount
' set the number of rows displayed on this page
If (rsContacts_numRows < 0) Then
rsContacts_numRows = rsContacts_total
Elseif (rsContacts_numRows = 0) Then
rsContacts_numRows = 1
End If
' set the first and last displayed record
rsContacts_first = 1
rsContacts_last = rsContacts_first + rsContacts_numRows - 1
' if we have the correct record count, check the other stats
If (rsContacts_total <> -1) Then
If (rsContacts_first > rsContacts_total) Then
rsContacts_first = rsContacts_total
End If
If (rsContacts_last > rsContacts_total) Then
rsContacts_last = rsContacts_total
End If
If (rsContacts_numRows > rsContacts_total) Then
rsContacts_numRows = rsContacts_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsContacts_total = -1) Then
' count the total records by iterating through the recordset
rsContacts_total=0
While (Not rsContacts.EOF)
rsContacts_total = rsContacts_total + 1
rsContacts.MoveNext
Wend
' reset the cursor to the beginning
If (rsContacts.CursorType > 0) Then
rsContacts.MoveFirst
Else
rsContacts.Requery
End If
' set the number of rows displayed on this page
If (rsContacts_numRows < 0 Or rsContacts_numRows > rsContacts_total) Then
rsContacts_numRows = rsContacts_total
End If
' set the first and last displayed record
rsContacts_first = 1
rsContacts_last = rsContacts_first + rsContacts_numRows - 1
If (rsContacts_first > rsContacts_total) Then
rsContacts_first = rsContacts_total
End If
If (rsContacts_last > rsContacts_total) Then
rsContacts_last = rsContacts_total
End If
End If
%>
<%
if not rsContacts.eof and not rsContacts.bof then
ContStr = " Contact:"
rsContacts.movefirst
for i = 1 to rsContacts_total
ContStr = ContStr & "
"
if (rsContacts.Fields.Item("Person_info_sal").Value) > "" then ContStr = ContStr & (rsContacts.Fields.Item("Person_info_sal").Value) & " "
ContStr = ContStr & (rsContacts.Fields.Item("Person_info_lname").Value) & ", "
ContStr = ContStr & (rsContacts.Fields.Item("Person_info_fname").Value) & " - " & (rsContacts.Fields.Item("Person_info_Wemail").Value) & ""
ContStr = ContStr & ", " & (rsContacts.Fields.Item("Person_info_Wphone").Value)
if (rsContacts.Fields.Item("Person_info_Ext").Value) > "" then ContStr = ContStr & " Ext. " & (rsContacts.Fields.Item("Person_info_Ext").Value)
rsContacts.movenext
next
ContStr = ContStr & " "
end if
%>
<%=ContStr%>
<%
rsContacts.Close()
Set rsContacts = Nothing
%>
Israel
Action Agenda
|
|
[ IAA
Home ][ Speakers ][ Education
][ Media ][ Shop ][ Social
Action ][ Links ]
|
Education Sites and Material
- http://www.bjeny.org/143.htm#israel
Order Israel Curricula, maps, and videos
from the Board of
Jewish Education of Greater New York's Education
Resource Center.
- www.jajz-ed.org.il/jerusalem/activities.html
Learn
everything
you want to know about Jerusalem including: Activities for youth and
teens, Sermon ideas, Timeline,
A lengthy bibliography for further research, Numerous web links, FAQs
about the kotel, maps, places in Jerusalem, and more! This site is in English, Hebrew, Russian and German.
- http://www.jecc.org
Introduce A mini-response curriculum from the Curriculum Resources
Department of the Jewish Education Center of Cleveland (JECC)
to your school in order to help teachers better respond to the varied
emotions emerging from the current situation in Israel.
- http://www.jewishagency.org.il/ed/index.htm
Learn all about Israel with your family. There are all sorts
of resources, including maps of Israel, historical
information, and ideas for Israel activism and learning at
the Jewish Agency for Israel
- http://www.jajz-ed.org.il/100/maps/index.html
Use maps
to put the middle east conundrum in to perspective.
- www.aish.com/jewishissues/middleeast/The_-Occupied_Territories-_A_Primer.asp
Understand
the Power of words: "Occupied" or "disputed"
territories?
The difference is enormous. Here's everything you need to
know.
- http://www.bjeny.org/300.htm
5 Things
Teachers Need to Do in order to explain and teach Israel in these
important times.
- http://www.bjeny.org/pdf/iaa/crash_course_real_facts.pdf
Test your knowledge on the real facts of the Middle East.
Including the UN record on Israel and the Arabs, Arab and Jewish
refugees, Nationhood and Jerusalem and Israel facts and stats.
- http://www.jajz-ed.org.il/dept/news/ambassador.html
Use
"The Ambassador" course to empower you in the facts of the conflict, the tools to understand Palestinian propaganda/media bias and the means to advocate Israel.
- http://www.yourpage.org/teachers.html
Download
great ideas to make Israel lesson plans exciting and
meaningful.
- http://www.archpark.org.il/
Visit the Jerusalem Archaeological Park which contains
state-of-the-art technology portraying virtual reconstructions of Jerusalem
during its long history.
- http://www.jajz-ed.org.il/shlichim/jzionistsem/zionisimpage1.html#sem
Bring Israelis in to your school. The "Achai VeRe'ai"
programs are staffed by college-age experienced informal educators who
have undergone professional training in all methods of informal education including art, music, film, drama and games.
For programs in the greater New York area there is a partnership
between the Jewish Agency and the BJE of NY. For further information please contact
Gila Rockman at (212) 339-6008, Email: gilar@jazo.org.il
- http://www.myisraelsource.com/helplet/activities.html
Prepare your Israel classes with ease by utilizing numerous
lesson plan outlines thoughtfully arranged by age, topic, etc...
|
|
right |
|
|
