<%@LANGUAGE="VBSCRIPT"%> <% Dim RecordCounter RecordCounter = 0 %> <% Dim rspeople Dim rspeople_numRows Set rspeople = Server.CreateObject("ADODB.Recordset") rspeople.ActiveConnection = MM_mitconn_STRING rspeople.Source = "SELECT ID, firstname, lastname, fax, telephone, email, typeuser FROM tblUsers WHERE typeuser LIKE '1' ORDER BY ID ASC" rspeople.CursorType = 0 rspeople.CursorLocation = 2 rspeople.LockType = 1 rspeople.Open() rspeople_numRows = 0 %> <% Dim rspeople3 Dim rspeople3_numRows Set rspeople3 = Server.CreateObject("ADODB.Recordset") rspeople3.ActiveConnection = MM_mitconn_STRING rspeople3.Source = "SELECT ID, firstname, lastname, fax, telephone, email, typeuser FROM tblUsers WHERE typeuser LIKE '3' ORDER BY ID ASC" rspeople3.CursorType = 0 rspeople3.CursorLocation = 2 rspeople3.LockType = 1 rspeople3.Open() rspeople3_numRows = 0 %> <% Dim rspeople5 Dim rspeople5_numRows Set rspeople5 = Server.CreateObject("ADODB.Recordset") rspeople5.ActiveConnection = MM_mitconn_STRING rspeople5.Source = "SELECT ID, firstname, lastname, fax, telephone, email, typeuser FROM tblUsers WHERE typeuser LIKE '5' ORDER BY ID ASC" rspeople5.CursorType = 0 rspeople5.CursorLocation = 2 rspeople5.LockType = 1 rspeople5.Open() rspeople5_numRows = 0 %> <% Dim rspeople7 Dim rspeople7_numRows Set rspeople7 = Server.CreateObject("ADODB.Recordset") rspeople7.ActiveConnection = MM_mitconn_STRING rspeople7.Source = "SELECT ID, firstname, lastname, fax, telephone, email, typeuser FROM tblUsers WHERE typeuser LIKE '7' ORDER BY ID ASC" rspeople7.CursorType = 0 rspeople7.CursorLocation = 2 rspeople7.LockType = 1 rspeople7.Open() rspeople7_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rspeople3_numRows = rspeople3_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rspeople_numRows = rspeople_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rspeople5_numRows = rspeople5_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rspeople7_numRows = rspeople7_numRows + Repeat4__numRows %>
People

FACULTY

<% While ((Repeat1__numRows <> 0) AND (NOT rspeople.EOF)) %> >
_small.jpg" width="50" height="63" border="1">

Dr. <%=(rspeople.Fields.Item("firstname").Value)%> <%=(rspeople.Fields.Item("lastname").Value)%>

 ">email link>">website link
  Phone: <%=(rspeople.Fields.Item("telephone").Value)%>
Fax: <%=(rspeople.Fields.Item("fax").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rspeople.MoveNext() Wend %>

RESEARCH ASSISTANTS

<% While ((Repeat2__numRows <> 0) AND (NOT rspeople3.EOF)) %> >
_small.jpg" width="50" height="63" border="1">

<%=(rspeople3.Fields.Item("firstname").Value)%> <%=(rspeople3.Fields.Item("lastname").Value)%>

 ">email link>">website link
  Phone: <%=(rspeople3.Fields.Item("telephone").Value)%>
Fax: <%=(rspeople3.Fields.Item("fax").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rspeople3.MoveNext() Wend %>

PREVIOUS FACULTY AND STAFF

<% While ((Repeat3__numRows <> 0) AND (NOT rspeople5.EOF)) %> >
_small.jpg" width="50" height="63" border="1">

Dr. <%=(rspeople5.Fields.Item("firstname").Value)%> <%=(rspeople5.Fields.Item("lastname").Value)%>

 ">email link>">website link
  Phone: <%=(rspeople5.Fields.Item("telephone").Value)%>
Fax: <%=(rspeople5.Fields.Item("fax").Value)%>
<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rspeople5.MoveNext() Wend %>

PREVIOUS STUDENTS

<% While ((Repeat4__numRows <> 0) AND (NOT rspeople7.EOF)) %> >
_small.jpg" width="50" height="63" border="1">

<%=(rspeople7.Fields.Item("firstname").Value)%> <%=(rspeople7.Fields.Item("lastname").Value)%>

 ">email link>">website link
  Phone: <%=(rspeople7.Fields.Item("telephone").Value)%>
Fax: <%=(rspeople7.Fields.Item("fax").Value)%>
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rspeople7.MoveNext() Wend %>

<% rspeople.Close() Set rspeople = Nothing %> <% rspeople3.Close() Set rspeople3 = Nothing %> <% rspeople5.Close() Set rspeople5 = Nothing %> <% rspeople7.Close() Set rspeople7 = Nothing %>