<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim facultyrecordset Dim facultyrecordset_numRows Set facultyrecordset = Server.CreateObject("ADODB.Recordset") facultyrecordset.ActiveConnection = MM_bpcconnection_STRING facultyrecordset.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'undergraduate' AND visible = '1' ORDER BY lastname ASC" facultyrecordset.CursorType = 0 facultyrecordset.CursorLocation = 2 facultyrecordset.LockType = 1 facultyrecordset.Open() facultyrecordset_numRows = 0 %> <% Dim facultyrecordset1 Dim facultyrecordset_numRows1 Set facultyrecordset1 = Server.CreateObject("ADODB.Recordset") facultyrecordset1.ActiveConnection = MM_bpcconnection_STRING facultyrecordset1.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'CEPCoop' AND visible = '1' ORDER BY lastname ASC" facultyrecordset1.CursorType = 0 facultyrecordset1.CursorLocation = 2 facultyrecordset1.LockType = 1 facultyrecordset1.Open() facultyrecordset_numRows1 = 0 %> <% Dim facultyrecordset2 Dim facultyrecordset_numRows2 Set facultyrecordset2 = Server.CreateObject("ADODB.Recordset") facultyrecordset2.ActiveConnection = MM_bpcconnection_STRING facultyrecordset2.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'administrative' AND visible = '1' ORDER BY lastname ASC" facultyrecordset2.CursorType = 0 facultyrecordset2.CursorLocation = 2 facultyrecordset2.LockType = 1 facultyrecordset2.Open() facultyrecordset_numRows2 = 0 %> <% Dim facultyrecordset3 Dim facultyrecordset_numRows3 Set facultyrecordset3 = Server.CreateObject("ADODB.Recordset") facultyrecordset3.ActiveConnection = MM_bpcconnection_STRING facultyrecordset3.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'guidance' AND visible = '1' ORDER BY lastname ASC" facultyrecordset3.CursorType = 0 facultyrecordset3.CursorLocation = 2 facultyrecordset3.LockType = 1 facultyrecordset3.Open() facultyrecordset_numRows3 = 0 %> <% Dim facultyrecordset4 Dim facultyrecordset_numRows4 Set facultyrecordset4 = Server.CreateObject("ADODB.Recordset") facultyrecordset4.ActiveConnection = MM_bpcconnection_STRING facultyrecordset4.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'technical' AND visible = '1' ORDER BY lastname ASC" facultyrecordset4.CursorType = 0 facultyrecordset4.CursorLocation = 2 facultyrecordset4.LockType = 1 facultyrecordset4.Open() facultyrecordset_numRows4 = 0 %> <% Dim facultyrecordset5 Dim facultyrecordset_numRows5 Set facultyrecordset5 = Server.CreateObject("ADODB.Recordset") facultyrecordset5.ActiveConnection = MM_bpcconnection_STRING facultyrecordset5.Source = "SELECT * FROM bpc_facultyprofile WHERE work = 'vocational' AND visible = '1' ORDER BY lastname ASC" facultyrecordset5.CursorType = 0 facultyrecordset5.CursorLocation = 2 facultyrecordset5.LockType = 1 facultyrecordset5.Open() facultyrecordset_numRows5 = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 facultyrecordset_numRows = facultyrecordset_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 facultyrecordset1_numRows = facultyrecordset1_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 facultyrecordset2_numRows = facultyrecordset2_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 facultyrecordset3_numRows = facultyrecordset3_numRows + Repeat4__numRows %> Bulacan Polytechnic College
 
   
 
  BPC DIRECTORY OF FACULTY AND STAFF
   
FACULTY
EMAIL ADDRESS
<% While ((Repeat1__numRows <> 0) AND (NOT facultyrecordset.EOF)) %> <%if facultyrecordset.Fields.Item("visible").Value = 1 then%>
"><%=(facultyrecordset.Fields.Item("firstname").Value)%> <%=(facultyrecordset.Fields.Item("middlename").Value)%>. <%=(facultyrecordset.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset.Fields.Item("email").Value)%>
<%end if%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 facultyrecordset.MoveNext() Wend %>
 
TECHNICAL FACULTY
EMAIL ADDRESS
<% While ((Repeat2__numRows <> 0) AND (NOT facultyrecordset4.EOF)) %>
"><%=(facultyrecordset4.Fields.Item("firstname").Value)%> <%=(facultyrecordset4.Fields.Item("middlename").Value)%>. <%=(facultyrecordset4.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset4.Fields.Item("email").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 facultyrecordset4.MoveNext() Wend %>
 
VOCATIONAL FACULTY
EMAIL ADDRESS
<% While ((Repeat2__numRows <> 0) AND (NOT facultyrecordset5.EOF)) %>
"><%=(facultyrecordset5.Fields.Item("firstname").Value)%> <%=(facultyrecordset5.Fields.Item("middlename").Value)%>. <%=(facultyrecordset5.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset5.Fields.Item("email").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 facultyrecordset5.MoveNext() Wend %>
 
CEPCoop FACULTY
EMAIL ADDRESS
<% While ((Repeat2__numRows <> 0) AND (NOT facultyrecordset1.EOF)) %>
"><%=(facultyrecordset1.Fields.Item("firstname").Value)%> <%=(facultyrecordset1.Fields.Item("middlename").Value)%>. <%=(facultyrecordset1.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset1.Fields.Item("email").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 facultyrecordset1.MoveNext() Wend %>
 
ADMINISTRATIVE STAFF
EMAIL ADDRESS
<% While ((Repeat3__numRows <> 0) AND (NOT facultyrecordset2.EOF)) %>
"><%=(facultyrecordset2.Fields.Item("firstname").Value)%> <%=(facultyrecordset2.Fields.Item("middlename").Value)%>. <%=(facultyrecordset2.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset2.Fields.Item("email").Value)%>
<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 facultyrecordset2.MoveNext() Wend %>
 
GUIDANCE COUNSELLOR
EMAIL ADDRESS
<% While ((Repeat4__numRows <> 0) AND (NOT facultyrecordset3.EOF)) %>
"><%=(facultyrecordset3.Fields.Item("firstname").Value)%> <%=(facultyrecordset3.Fields.Item("middlename").Value)%>. <%=(facultyrecordset3.Fields.Item("lastname").Value)%>
 <%=(facultyrecordset3.Fields.Item("email").Value)%>
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 facultyrecordset3.MoveNext() Wend %>
 
   
Copyright © 2004
Web Development Division,
Provincial Information Technology Office - PITO,
Provincial Government of Bulacan.
All rights reserved.
<% facultyrecordset.Close() Set facultyrecordset = Nothing %> <% facultyrecordset1.Close() Set facultyrecordset = Nothing %> <% facultyrecordset2.Close() Set facultyrecordset = Nothing %> <% facultyrecordset3.Close() Set facultyrecordset = Nothing %>