<%@ Language=VBScript %>

ENGR 019/301 - Ethics in Technology

Class Presentations

Please name your presentations as "Class_nn.ppt" or "Class_nn.htm", where the nn represents the class number of your presentation.
<%ListFolderContents(server.mappath("\studentaccounts\ENGR019Winter2004\ENGR019301Presentations"))%>

GRADING CRITERIA:

Presentation: length of speaking time, enthusiasm, does presenter expand on the information written on their slides? Does presenter know what he/she is talking about?

Technical Description: Is the information presented in such a way that anyone would understand? Did presenter use illustrations, demonstrations, graphs, visual aide to explain technology?

Ethical Issues: There are four aspects—professional, legal, and ethical issues, as well as the stakeholders.
Two points taken off for each missing issue.

Ethical Analysis: There are seven possible views to address—utilitarian, rights, fairness/justice, common good, virtues, Kantian.
One point taken off for each missing view.
If possible actions not addressed, one additional point taken off.

Conclusion: Is it decisive and does it logically follow from the issues and analysis?
<% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") ' Response.Write(path & "
") set folder = fs.GetFolder(path) 'Display the target folder and info. Response.Write("
  • " & folder.Name & " - " & folder.Files.Count & " files, ") if folder.SubFolders.Count > 0 then Response.Write(folder.SubFolders.Count & " directories, ") end if Response.Write(Round(folder.Size / 1024) & " KB total." & "
    • " & vbCrLf) Response.Write("
      " & vbCrLf) 'Display a list of sub folders. for each item in folder.SubFolders ListFolderContents(item.Path) next 'Display a list of files. for each item in folder.Files url = MapURL(item.Path) Response.Write("
    • " & item.Name & " - " & item.Size & " bytes, " & "last modified on " & item.DateLastModified & "." & "
      • " & vbCrLf) next Response.Write("
    " & vbCrLf) end sub function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("../../") ' url = Right(path, Len(path) - Len(rootPath)) url = Right(path, Len(path) - 2) MapURL = Replace(url, "\", "/") end function %>