<%@ Language=VBScript %> Case Western Reserve University
This is a Safety Alert from Case Western Reserve University
Z - RAVE TEST Message
CWRU Alert - THIS IS A TEST of the Case Western Reserve University emergency notification systems. This is only a TEST.
This is a TEST of the Case Western Reserve University emergency notification system. This is only a test. Review emergency procedures at http://police.case.edu/emergency.html This is only a test.

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 str,substr str = Request.ServerVariables("QUERY_STRING") substr = mid(str,4,4) %> <% 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) SESSSQL = "SELECT * FROM Emeriti where LASTNAME like '" & substr & "%'" 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