Professor Emeritus of Philosophy

B.S. Holy Cross College; M.A. Boston University; PhD Boston University

Selected Publications


<%@ Language = VBScript %> <% Dim LibID, strsql, Rs, Added, r LibID = request.querystring("id") 'Request links based upon faculty member strsql = "SELECT tblbib.cite_id, tblbib.title, tblbib.jtitle, tblbib.publisher, tblbib.volume, tblbib.issue, tblbib.pages, tblbib.year, tblbib.[author(s)], tblbib.pubtype, authors.auth_id, authors.last_name, authors.first_name, tblbib.editor, tblbib.url " &_ "FROM tblbib INNER JOIN (authors INNER JOIN tbllink ON authors.auth_id = tbllink.author) ON tblbib.cite_id = tbllink.cite " &_ "WHERE (((authors.auth_id)=" & LibID & ")) " &_ "ORDER BY tblbib.year DESC, tblbib.pubtype;" set Rs=Server.CreateObject("ADODB.Recordset") Rs.Open strsql, objConn, 3, 3 totrows=-1:totcols=0 'if the faculty member has no publications If Rs.EOF then response.write("There currently are no publications in the database for this faculty member.
") Else rsarray = Rs.getrows totrows = Ubound(rsarray,2) totcols = Ubound(rsarray,1) Rs.close Set Rs = nothing %> <% ReDim BookArray(0) ReDim ArticleArray(0) ReDim ChapterArray(0) ReDim ReviewArray(0) ReDim ConfArray(0) ReDim EncyArray(0) ReDim DissArray(0) ReDim LitArray(0) For r=0 to totrows Dim txtbook Select Case trim(rsarray(9,r)) Case "Book" txtbook = "

" & rsarray(8,r) & ". " & rsarray(1,r) & ". " If IsNull(rsarray (13,r)) OR ((rsarray(13,r)) = "" ) Then txtbook = txtbook & rsarray(3,r) & ", " & rsarray(7,r) & ". FindIt@ALibrary


" Else txtbook = txtbook & rsarray(13,r) & ". " & rsarray(3,r) & ", " & rsarray(7,r) & ". FindIt@ALibrary


" End If BookArray(UBound(BookArray)) = txtbook ReDim Preserve BookArray(UBound(BookArray) + 1) Case "Book Chapter" txtbook = "

" & rsarray(8,r) & ". "" & rsarray(2,r)& "." " & rsarray(1,r) & ". " If IsNull(rsarray(13,r)) OR ((rsarray(13,r)) = "" ) Then txtbook = txtbook & rsarray(3,r) & ", " & rsarray(7,r)& ". " & rsarray(6,r) & ". FindIt@ALibrary


" Else txtbook = txtbook & rsarray(13,r) & ". " & rsarray(3,r) & ", " & rsarray(7,r)& ". " & rsarray(6,r) & ". FindIt@ALibrary


" End If ChapterArray(UBound(ChapterArray)) = txtbook ReDim Preserve ChapterArray(UBound(ChapterArray) + 1) Case "Conference Proceeding" txtbook = "

" & rsarray(8,r) & ". "" & rsarray(2,r)& "." " & rsarray(1,r) & ". " If IsNull(rsarray(13,r)) OR ((rsarray(13,r)) = "" ) Then txtbook = txtbook & rsarray(3,r) & ", " & rsarray(7,r)& ". " & rsarray(6,r) & ".


" Else txtbook = txtbook & rsarray(13,r) & ". " & rsarray(3,r) & ", " & rsarray(7,r)& ". " & rsarray(6,r) & ".


" End If ConfArray(UBound(ConfArray)) = txtbook ReDim Preserve ConfArray(UBound(ConfArray) + 1) Case "Encyclopedia Entry" txtbook = "

" & rsarray(8,r) & ". "" & rsarray(2,r)& "." " & rsarray(1,r) & ". " & rsarray(3,r) & ". FindIt@ALibrary


" EncyArray(UBound(EncyArray)) = txtbook ReDim Preserve EncyArray(UBound(EncyArray) + 1) Case "Article" 'If there is a URL format with it, else format without it If InStr(rsarray(14,r),"http") Then txtbook = "

" & rsarray(8,r) & ". "" & rsarray(2,r) & "." " & rsarray(1,r) & " " & rsarray(4,r) Else txtbook = "

" & rsarray(8,r)& ". "" & rsarray(2,r)& "." " & rsarray(1,r) & " " & rsarray(4,r) End If 'Check for an issue If IsNull(rsarray(5,r)) Or ((rsarray(5,r)) = "") Then txtbook = txtbook & "(" & rsarray(7,r) & ")" Else txtbook = txtbook & "." & rsarray(5,r)& " (" & rsarray(7,r)& ")" End If 'Add the pages txtbook = txtbook & ":" & rsarray(6,r) & ". " 'Add the resolver link findit = "FindIt@Dowling


" txtbook = txtbook & findit ArticleArray(UBound(ArticleArray)) = txtbook ReDim Preserve ArticleArray(UBound(ArticleArray) + 1) Case "Book Review" If InStr(rsarray(14,r),"http") Then txtbook = "

" & rsarray(8,r) & "."" & rsarray(2,r) & "." " & rsarray(1,r) & " " & rsarray(4,r) Else txtbook = "

" & rsarray(8,r)& ". "" & rsarray(2,r)& "." " & rsarray(1,r) & " " & rsarray(4,r) End If If IsNull(rsarray(5,r)) Or ((rsarray(5,r)) = "") Then txtbook = txtbook & "(" & rsarray(7,r) & ")" Else txtbook = txtbook & "." & rsarray(5,r)& " (" & rsarray(7,r)& ")" End If txtbook = txtbook & ":" & rsarray(6,r) & ". " findit = "FindIt@Dowling


" txtbook = txtbook & findit ReviewArray(UBound(ReviewArray)) = txtbook ReDim Preserve ReviewArray(UBound(ReviewArray) + 1) Case "Dissertation" txtbook="

" & rsarray(8,r) & ". " & rsarray(1,r) & ". Diss. " & rsarray(3,r) & ", " & rsarray(7,r) & ".

" DissArray(Ubound(DissArray)) = txtbook ReDim Preserve DissArray(Ubound(DissArray) + 1) Case "Literature" txtbook = "

" & rsarray(8,r)& ". "" & rsarray(2,r)& "." " & rsarray(1,r) & " " & rsarray(4,r) If IsNull(rsarray(5,r)) Or ((rsarray(5,r)) = "") Then txtbook = txtbook & "(" & rsarray(7,r) & ")" Else txtbook = txtbook & "." & rsarray(5,r)& " (" & rsarray(7,r)& ")" End If txtbook = txtbook & ":" & rsarray(6,r) & ". " findit = "FindIt@Dowling


" txtbook = txtbook & findit LitArray(UBound(LitArray)) = txtbook ReDim Preserve LitArray(UBound(LitArray) + 1) End Select Next objConn.Close set objConn = Nothing If BookArray(0) = "" Then Response.write "" Else Response.write ("

Books

") For each item in BookArray Response.write item Next End If If ChapterArray(0) = "" Then Response.write "" Else Response.write ("

Book Chapters

") For each item in ChapterArray Response.write item Next End If If EncyArray(0) = "" Then Response.write "" Else Response.write("

Encyclopedia Entry

") For each item in EncyArray Response.write item Next End If If ArticleArray(0) = "" Then Response.write "" Else Response.Write ("

Articles

") For each item in ArticleArray Response.write item Next End If If LitArray(0) = "" Then Response.write "" Else Response.write ("

Literature

") For each item in LitArray Response.write item Next End If If ReviewArray(0) = "" Then Response.write "" Else Response.write ("

Book Reviews

") For each item in ReviewArray Response.write item Next End If If ConfArray(0) = "" Then Response.write "" Else Response.write ("

Conference Proceedings

") For each item in ConfArray Response.write item Next End If If DissArray(0) = "" Then Response.write "" Else Response.write ("

Dissertation

") For each item in DissArray Response.write item Next End If End If %>

Do you have information to add? Then please contact Diane Holliday.

Last Modified on April 02, 2013, at 01:54 PM by dh


Questions - We Need Your Help!

Contribute Content

About Us

Dowling College Library Created Resources

Dowling College Photos

Historic Oakdale

Listening Tour of South Shore History

Long Island Genealogy Web Links

Map of Long Island Estates and Cultural Institutions 1860 - 1930

Map of Vanderbilt Estates in the Gilded Age

Podcasts at Dowling College Library

Related Links

AmericanTowns: Oakdale, NY

Explore the South Shore

Historic Houses Blog

Historic Long Island

Historic Newspapers

Long Island Oddities

Oakdale, NY

Local Museums and Historical Societies

Disclaimer

Dowling College Library Homepage

Whats New

Bulletin Board

PmWiki

SideBar