Faces of Fuller

The story of Fuller Theological Seminary is best told through the students, alumni/ae, and faculty who make up our seminary community. A few of them, below, share their perspectives.

<% Call DisplayFullerFaces(5) %>

<% Call DisplayFullerFaces(4) %>

<% Call DisplayFullerFaces(3) %>

<% Call DisplayFullerFaces(2) %>

<% Call DisplayFullerFaces(1) %>

<% Sub DisplayFullerFaces(sGroupCodeID) Dim connSiteDB Dim rsTable Dim sSQL Dim iNumberOfStudents Dim iStudentCounter Dim bAddEndRow Dim constr Set connSiteDB = Server.CreateObject("ADODB.Connection") Set rsTable= Server.CreateObject("ADODB.Recordset") iNumberOfStudents = 0 iStudentCounter = 0 %> <% constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/fpdb/facesoffuller.mdb") connSiteDB.Open constr sSQL = "SELECT * FROM faces_profiles WHERE GroupCodeID = '" & sGroupCodeID & "' order by title asc" 'Response.Write sSQL rsTable.Open sSQL, connSiteDB, 1, 2 If (rsTable.EOF And rsTable.BOF) Then 'Response.Write sSQL ' Response.Write "

None in DB for Group " & sGroupCodeID Exit Sub End if rsTable.MoveFirst %> <%Do If iStudentCounter = 0 Then %> <% End if If iStudentCounter = 6 Then iStudentCounter = 0 %> <% End if iStudentCounter = iStudentCounter + 1 %>

" ALIGN="middle" BORDER="0" height="100">

"> <%=rsTable("Title")%>
<%=rsTable("SmallQuote")%> <% rsTable.MoveNext Loop While Not rsTable.EOF %> <% rsTable.Close Set rsTable = Nothing connSiteDB.Close Set connSiteDB = Nothing End Sub %>