 |
 |
 |
 |
<%
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 ] |
Media
In these times it is vital
to be informed on current events in Israel in a clear, concise and accurate
manner. This information will enable us to respond with logic, calm
and above all truth to criticism falsely heaped upon Israel.
-
www.honestreporting.com
Protest
biased coverage of Israel in the media. It offers comprehensive
media links for
reporting Israel - from both sides.
- listserv@pankow.inter.net.il
Receive
an Israel Update from the Israel Consulate in New York which
sends a daily e-mail, with the latest news from Israel. You can subscribe
to the free service by sending an e-mail message with one and only one
line saying:
subscribe israeline <your first name here> <your last name
here>
-
http://www.jpost.com/
Find
out about Current events in Israel through the internet edition
of the Jerusalem Post: or the Jerusalem Report -
www.jrep.com
-
http://world.std.com/~camera/
Learn about how Israel is reported in the media (and understand
how the news we read and see often misrepresents the actual events,
by learning about an organization called the Committee for Accuracy
in Middle East Reporting in America.
- http://www.debka.com
Dig "behind the scenes" for
information devoted to representing Israel's point of view.
- http://www.bjeny.org/pdf/5646736545.pdf
Fight the Arab PR and Media War and Make
Israel's Case
- Myths
& Facts Online
A Guide to the Arab-Israeli Conflict
- http://www.memri.org/
Discover what the Arab world is saying. The Middle East Media
and Research Institute, (MEMRI), website. An independent, non-profit
organization providing translations of the Arab media and original analysis
and research on developments in the Middle East.
- www.mfa.gov.il/mfa/go.asp?mfah0iky0
Commemorate
the victims of terror through the Israeli Foreign Ministry website. The
memorial page includes the names of all the victims, with links to personal
memorial pages for each of the victims, including a photograph, the
circumstances of their death and biographical details.
- www.kolisrael.com
Tune in to
Radio, News, Sports and Arts from Israel
- www.mideasttruth.com
Spread the truth about the Middle East
conflict.
- http://www.bjeny.org/301.htm
Discover what really happened in Jenin. Also see Palestinians
agree with Israel - shock horror
(By Mark Steyn, The Daily Telegraph, May 4, 2002)
- A
Middle East Analysis
View this PowerPoint presentation in order to understand how
Israel's image is unfairly
distorted by the world media.
- http://www.nationalreview.com/hanson/hanson050702.asp
Analyze three fallacies upon which modern hatred of Israel is
based. ("Hating Israel," National Review By Victor Davis Hanson)
- www.pmw.org.il
Understand the Palestinian Authority's views on Jews, Israel
and America in their own words translated from their TV, newspapers
and radio.
- MY
TURN
See "Operation Defensive Shield" through the eyes of
an American-born Israeli Reserve Soldier serving with a combat unit
in Bethlehem.
- http://www.myisraelsource.com/
Discover all Israel news, not just the terror. This site gathers
information from several of the world's leading news sources including:
The New York Times, Ha'aretz, The Jerusalem Post,
and The Jewish Telegraphic Agency. The"Links" section
is extensive and useful.
|
|
right |
|
|
