 |
 |
 |
 |
<%
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 ] |
Social
Action
Things you
can do to make a positive difference
 http://www.bjeny.org/287.htm
Send a Letter to an Israeli Soldier
Diaspora Youth Identifies with the Soldiers of the Israel Defense
Forces- http://www.ujc.org/wjewry_home.html
Find Ideas on helping Israel ranging from missions to
education.
-
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.honestreporting.com
Ensure that Israel receives fair media coverage.
We scrutinize the media for anti-Israel bias, and then mobilize
subscribers to complain directly to the news agency concerned.
- http://www.aipac.org/Action1.cfm
Send letters or e mails to the president, senators and your
congressperson asking them to support Israel. You can learn more about
doing this through the national American Israel Political Action
Committee
- http://www.bjeny.org/220.htm
Respond to Anti-Israel media distortions. A listing of many
media outlets and public officials.
- 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.jafi.org.il/daily/vol.asp
Volunteer for Israel Now! Volunteer Opportunities: 2 – 4 week
programs for ages 18 to 65. Physicians, MDA (Magen David Adom),
Maintenance and Supply Services, Kibbutz Volunteers, Work with
Children with Special Needs, Civil Guard Qualifications: ENTHUSIASM
AND LOVE OF ISRAEL! To register please see site information.
- http://www.soaringwords.org/
Help Israeli Children. Nurses, doctors and child life
counselors will share the Soaringwords messages with patients and
their families each day in hospitals throughout Israel.
- www.mia.org.il
Work for the release of Missing Israeli Soldiers. This
comprehensive site from a private organization, The International
Coalition for Missing Israeli Soldiers (ICMIS), dedicated to the
Israeli MIAs from the 1980’s until today. Includes updates,
chronology, photos, vigil information, a petition and more.
- http://info.jpost.com/1999/Supplements/Education/
Study in
Israel. This site contains details and information of many High
School and College long and short term study programs.
- http://www.pledge4israel.com
Participate
in a student initiative trying to foster a firmer bond between
students in the diaspora and the state of Israel. The funds Project
One Percent raises are going directly to terror
victims through the Israel Emergency Solidarity Fund- One Family
(Mishpacha Echad).
- http://www.flowers4israel.org
Send flowers to the families of Israeli terror victims and the
parents of IDF Soldiers for Shavuot. All delivered by local Israeli
florists. Show them we care and attach a personalized note of support.
Please send today! Sponsored by Israel Emergency Solidarity Fund - One
Family
- http://www.beitnyjer.org.il/
Become
directly and personally involved with the people in Jerusalem
through Beit New York-Jerusalem which provides the opportunity to
residents of NY by offering "hands-on" volunteer
opportunities to its participants.
- Join a
Zionist Youth Movement - here is a list of movement websites
covering all denominations.
|
|
right |
|
|
