 |
 |
 |
 |
<%
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 ] |
General
Israel Related Links
- www.goisrael.com
Israel Ministry of Tourism. This site provides regularly updated
information specifically geared towards tourists. This service is perfect
for people planning trips to Israel or
parents with children on Israel programs. Information is given about
how the current political climate will or will not affect a tourist’s
stay in Israel. The site also gives information about various sites
and can be used to book your trip.
-
www.idf.il
The official site of the IDF provides updated news about
the army and soldiers of Israel as well as IDF services, missing soldiers,
and other subjects relevant to the IDF. IDF Special Forces site
http://www.isayeret.com
-
www.israelinsider.com
Daily updated news about Israel including links to numerous
newspapers and editorial content. A particularly good feature is the
flash maps and graphs which provide information about the make-up of
the Knesset, Israel’s borders, disputed territories, and more.
-
www.knesset.gov.il
The Knesset: Israeli Parliament. Information about the government,
the political system in Israel and individual Members of Knesset (MKs)
as well of texts of various laws and other features. The site also has
links to other government sites (president, judiciary, etc…) and the
means to contact MKs.
-
www.israel-mfa.gov.il
Israeli Government official web-site: The Ministry of Foreign
Affairs - Daily news updates from the Foreign Affairs ministry. This
site includes “Facts about Israel” which gives a complete history of
the Land and State of Israel, information on technology, population,
economy, culture, religion and more.
- www.newyork.israel.org
Consulate General of New York
-
www.israelemb.org
Israeli Embassy in Washington DC
-
www.mia.org.il
The International Coalition for Missing Israeli Soldiers (ICMIS).
A comprehensive site from a private organization dedicated to the Israeli
MIAs from the 1980’s until today. Includes updates, chronology, photos,
vigil information, a petition and more.
- http://www.jajz-ed.org.il/100/maps/index.html
Maps of the Arab Israel conflict
- www.israelimages.com
Photographs and images of Israel
- http://www.bjeny.org/Mylittlecountry.pps
A PowerPoint with Hebrew text on how nice and unique Israel is
- www.jnf.org
The
Jewish National Fund site contains ideas on how to respond to the
crisis, Israel Education, Donation opportunities and many other
useful items.
- http://www.aliyah.org/
Dreaming of living in Israel? Need answers? Looking for the best
way to explore the possibilities? The Israel Aliyah Center can help!
- http://www.tourism.gov.il/TourHeb/virtual%20tour/index.html
Embark on a Virtual Tour of Israel - great photos, lots to see,
360-degree views.
|
|
right |
|
|
