1. <html>
  2. <head>
  3. <link rel=stylesheet type='text/css' href='MyStyle.css'>
  4. <title>Assignment Twelve</title>
  5. </head>
  6.  
  7. <!--#include file="MyInfo.asp" -->
  8.  
  9. <body>
  10. <h2>Dan Neumann's Task 3</h2>
  11. <%
  12.  
  13. ' Fetch user input from previous page
  14. SelectedSemester = Request.Form("Semester")
  15. ShowDiscipline = Request.Form("ShowDiscipline")
  16. ShowRank = Request.Form("ShowRank")
  17. ShowCID = Request.Form("ShowCID")
  18. ShowMeeting = Request.Form("ShowMeeting")
  19.  
  20. ' Open connection to back-end SQL Server database
  21. Set conn=Server.CreateObject("ADODB.Connection")
  22. conn.CommandTimeout=15
  23. conn.ConnectionTimeout=15
  24. conn.Open BackEnd
  25.  
  26.  
  27. ' Open recordset
  28. sql="SELECT TOP (100) PERCENT F.FirstName + ' ' + F.LastName AS Name, F.FID, F.Dept, F.Rank, C.Course, C.CID, C.MeetingTime FROM dbo.tblFaculty AS F INNER JOIN dbo.tblCourse AS C ON F.FID = C.Instructor WHERE (C.Semester = '" & SelectedSemester & "') ORDER BY F.LastName, F.FirstName, F.FID, C.CID"
  29.  
  30. Set rst=Server.CreateObject("ADODB.Recordset")
  31. rst.Open sql, conn
  32.  
  33. ' Display data (as table/grid)
  34. Response.Write("<h3>Faculty</h3>")
  35.  
  36. Response.Write("<table border=1>")
  37. Response.Write("<tr>")
  38. Response.Write("<th align='left'>Name</th>")
  39. Response.Write("<th align='center'>FID</th>")
  40. If ShowDiscipline = "Yes" Then Response.Write("<th align='center'>Discipline</th>") End If
  41. If ShowRank = "Yes" Then Response.Write("<th align='left'>Rank</th>") End If
  42. Response.Write("<th align='left'>Course</th>")
  43. If ShowCID = "Yes" Then Response.Write("<th align='left'>CID</th>") End If
  44. If ShowMeeting = "Yes" Then Response.Write("<th align='left'>Meeting</th>") End If
  45. Response.Write("</tr>")
  46.  
  47. LastFID = 0
  48.  
  49. Do Until rst.EOF
  50.    Response.Write("<tr>")
  51.    If LastFID = rst("FID") Then
  52.    		Response.Write("<td align='left'></td>") 'Name
  53.    		Response.Write("<td align='center'></td>") 'FID
  54.    		If ShowDiscipline = "Yes" Then Response.Write("<td align='center'></td>") End If 'Dept
  55.    		If ShowRank = "Yes" Then Response.Write("<td align='left'></td>") End If ' Rank
  56.    Else
  57.    		Response.Write("<td align='left'>" & rst("Name") & "</td>")
  58.    		Response.Write("<td align='center'>" & rst("FID") & "</td>")
  59.    		If ShowDiscipline = "Yes" Then Response.Write("<td align='center'>" & rst("Dept") & "</td>") End If
  60.    		If ShowRank = "Yes" Then Response.Write("<td align='left'>" & rst("Rank") & "</td>") End If
  61.    End If
  62.    LastFID = rst("FID")
  63.    Response.Write("<td align='left'>" & rst("Course") & "</td>")
  64.    If ShowCID = "Yes" Then  Response.Write("<td align='center'>" & rst("CID") & "</td>") End If
  65.    If ShowMeeting = "Yes" Then  Response.Write("<td align='left'>" & rst("MeetingTime") & "</td>") End If
  66.    Response.Write("</tr>")
  67.    rst.MoveNext
  68. Loop
  69.  
  70. Response.Write("</table>")
  71.  
  72.  
  73. ' Close recordset
  74. rst.Close
  75. Set rst=Nothing
  76.  
  77.  
  78. ' Close database connection
  79. conn.Close
  80. Set conn=Nothing
  81. %>
  82. </body>
  83. </html>