<% Dim IPersonnel, oConn, rsStaff Set IPersonnel = new clsPersonnel Set oConn = IPersonnel.Connection Set rsStaff = oConn.Execute("Select * From vwStaff ORDER BY LastName, FirstName") %> <% function LastMod() Dim strFileName Dim dtmLastModified Dim dtmLastModifiedDate Dim dtmLastModifiedTime strFileName = Request.ServerVariables("SCRIPT_NAME") strFileName = Replace(strFileName, "/", "\") strFileName = Server.MapPath(strFileName) Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystemObject.GetFile(strFileName) dtmLastModified = objFile.DateLastModified Set objFile = Nothing Set objFileSystemObject = Nothing dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1) dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3) LastMod = dtmLastModifiedDate & " " & dtmLastModifiedTime end function %> UIUC Agricultural Engineering | Faculty and Staff
 
UIUC Department of Agricultural Engineering
William H. Peterson
 Professor Emeritus

360A Agricultural Engineering Sciences Building
1304 W. Pennsylvania Avenue
Urbana, IL 61801
Ph: (217) 333-0511
Fax:(217) 244-0323
E-mail:whpeters@uiuc.edu