 |
 |
 |
 |
<%
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
%>
|
right |
|
|
