<%@ Language=VBScript %> Case Western Reserve University

Emeriti Faculty

Case Western Reserve University
frame image
frame image

To search for a particular emeriti faculty member in our database,
please use the fields below.

Search by last name:

Search by school:

OR:

To browse by name, select the first letter of the last name of the emeriti faculty member you are searching for below:

<% dim sql, dbConn, dbRS dim fso dim lname,schoolname dim GuestBookDataBase Dim SESSSQL, TimeStart GuestBookDataBase="Emiriti_DB" Set dbConn = Server.CreateObject("ADODB.Connection") Set dbRS = Server.CreateObject("ADODB.Recordset") dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(GuestBookDataBase) lname=Request.Form("lastname") schoolname=Request.Form("schoollist") if lname="" then if schoolname="All schools" then SESSSQL = "SELECT * FROM Emeriti order by LASTNAME,FIRSTNAME;" else SESSSQL = "SELECT * FROM Emeriti where SCHOOLCOLLEGE like '" & schoolname & "'order by LASTNAME,FIRSTNAME;" end if else SESSSQL = "SELECT * FROM Emeriti where LASTNAME like '" & lname & "'order by LASTNAME,FIRSTNAME;" end if dbRS.Open SESSSQL, dbConn, 3, 3 'if dbRS.Supports(adApproxPosition)=true then ' i=dbRS.RecordCount ' response.write("Search Records : " & i) 'end if 'Response.Write "
" 'Response.Write "
" Do while not dbRS.EOF if dbRS ("CV") <> "" then Response.Write "" Response.Write dbRS ("FIRSTNAME") & " " & dbRS ("MI") & " " & dbRS ("LASTNAME") Response.Write "" else Response.Write dbRS ("FIRSTNAME") & " " & dbRS ("MI") & " " & dbRS ("LASTNAME") end if Response.Write "
" Response.Write dbRS ("EMERITUSTITLE") Response.Write "
" Response.Write dbRS ("SCHOOLCOLLEGE") Response.Write "
" Response.Write "" Response.Write dbRS ("EMAIL") Response.Write "" Response.Write "
" Response.Write dbRS ("Notes") Response.Write "
" Response.Write "
" dbRS.MoveNext loop dbConn.close set dbRS = Nothing set dbConn = Nothing %>
University Libraries
Veale Recreation Center