<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> Pensacola State College - District Syllabus
<% 'coursesyllabi.asp ' Gets the syllabus information for a course from the IDSS database ' J Ward ' October, 2006 ' ' This is a complete rewrite of the syllabus application originally written by ' J Rejda & J Ward in November, 2002. ' ' REVISION HISTORY ' November 16, 2006 Jeff Ward Modified the output section for Required and Supplemental Materials ' to filter on required vs. supplemental type (see comments below) 'Get the course number and current term from the querystring ' There are a couple of different ways to get this. We could get the term via a querystring, but this would ' require modifying other applications each term. It's easier to just read an included text file for the term. courseNumber = request.querystring("cnum") term = request.querystring("term") %> <% 'Set up a connection object Dim Connect Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=SQLOLEDB;Data Source='WEBSQL\SQLWEB';Initial Catalog='Online IDSS';User ID=webreader;Password=webreader;" 'Get the TermID recordset and set up the term string dim rsTermID set rsTermID = Server.CreateObject("ADODB.Recordset") set rsTermID = Connect.Execute(" pr_Get_Term_ID '" & term & "'") 'termID = request.querystring("term") termID = rsTermID("ID") select case right(term,1) case "1" termString = "Fall " case "2" termString = "Spring " case "3" termString = "Summer " end select termString = termString & left(term,4) 'Get the course data recordset dim rsCourse set rsCourse = Server.CreateObject("ADODB.Recordset") set rsCourse = Connect.Execute(" pr_Get_Term_Course_Data '" & courseNumber & "', " & termID) 'If the course doesn't exist then set the exist flag to false if rsCourse.EOF then existFlag = "FALSE" else existFlag = "TRUE" courseID = rsCourse("ID") end if if existFlag then 'Get the prerequisites recordset dim rsPrereq set rsPrereq = Server.CreateObject("ADODB.Recordset") set rsPrereq = Connect.Execute(" pr_Get_Term_Prerequisites " & courseID & ", " & termID) 'Get the comments recordset dim rsComment set rsComment = Server.CreateObject("ADODB.Recordset") set rsComment = Connect.Execute(" pr_Get_Term_Comments " & courseID & ", " & termID) 'Get the corequisites recordset dim rsCoreq set rsCoreq = Server.CreateObject("ADODB.Recordset") set rsCoreq = Connect.Execute(" pr_Get_Term_Corequisites " & courseID & ", " & termID) end if if existFlag then 'Get the syllabus data recordset dim rsSyllabus set rsSyllabus = Server.CreateObject("ADODB.Recordset") set rsSyllabus = Connect.Execute(" pr_Get_Term_Syllabus " & courseID & ", " & termID) 'if the syllabus doesn't exist then set the existFlag to false if rsSyllabus.EOF then existFlag = "FALSE" end if 'Get the textbooks recordset dim rsBooks set rsBooks = Server.CreateObject("ADODB.Recordset") set rsBooks = Connect.Execute(" pr_Get_Term_Textbooks " & courseID & ", " & termID) 'Get the supplies recordset dim rsSupplies set rsSupplies = Server.CreateObject("ADODB.Recordset") set rsSupplies = Connect.Execute(" pr_Get_Term_Supplies " & courseID & ", " & termID) end if if existFlag then %>

District Syllabus
<%=UCASE(courseNumber)%>
<%=rsCourse("Long_Title")%>


Credit Hours: <%=rsCourse("Credit_Hours")%>
Contact Hours: <%=rsCourse("Student_Contact_Hours_Per_Week")%> <%=TRIM(rsSyllabus("Contact_Hours_Note"))%>
Laboratory Fee: <% if rsCourse("Default_Lab_Fee") = "0" then response.write "None." else response.write "$" & rsCourse("Default_Lab_Fee") end if %>
Prerequisites: <% if rsPrereq.EOF then response.write "There are no prerequisites for this course." else do while not rsPrereq.EOF 'response.write rsPrereq("ScoreText") & " " response.write "" & rsPrereq("Number") & " " & rsPrereq("Title") & " " & rsPrereq("Min_Grade") & " " & rsPrereq("Flag") & " " & "
" rsPrereq.MoveNext loop end if %>
Corequisites: <% if rsCoreq.EOF then response.write "There are no corequisites for this course." else do while not rsCoreq.EOF response.write "" & rsCoreq("Number") & " " & rsCoreq("Title") & "" & " " & rsCoreq("Flag") & " " & "
" rsCoreq.MoveNext loop end if %>
Comments: <% if rsComment.EOF then response.write "" else do while not rsComment.EOF response.write "" & rsComment("Comment") & "
" rsComment.MoveNext loop end if %>
Catalog Description: 
<%=rsSyllabus("Catalog_Description")%>
Required Materials: <% rsBooks.Filter = " Type = 'Required' " if rsBooks.EOF then 'response.write "     There are no required books for this course.

" else response.write "Books:
" response.write "
    " do while not rsBooks.EOF response.write "
  • " & rsBooks("Author") & ". " & rsBooks("Title") & ", " & rsBooks("Edition") & " ed., " & rsBooks("Publisher") & ", " & rsBooks("Publication_Year") & ". ISBN: " & rsBooks("ISBN") & "
    • " rsBooks.MoveNext loop response.write "
" end if rsSupplies.Filter = " Type = 'Required' " if rsSupplies.EOF then 'response.write "     There are no required supplies for this course." else response.write "Supplies:
" response.write "
    " do while not rsSupplies.EOF response.write "
  • " & rsSupplies("Description") & "
    • " rsSupplies.MoveNext loop response.write "
" end if %>
Supplemental Materials: <% rsBooks.Filter = " Type = 'Supplemental' " if rsBooks.EOF then 'response.write "     There are no supplemental books for this course.

" else response.write "Books:
" response.write "
    " do while not rsBooks.EOF response.write "
  • " & rsBooks("Author") & ". " & rsBooks("Title") & ", " & rsBooks("Edition") & " ed., " & rsBooks("Publisher") & ", " & rsBooks("Publication_Year") & ". ISBN: " & rsBooks("ISBN") & "
    • " rsBooks.MoveNext loop response.write "
" end if rsSupplies.Filter = " Type = 'Supplemental' " if rsSupplies.EOF then 'response.write "     There are no supplemental supplies for this course." else response.write "Supplies:
" response.write "
    " do while not rsSupplies.EOF response.write "
  • " & rsSupplies("Description") & "
    • " rsSupplies.MoveNext loop response.write "
" end if %> <% if isnull(rsSyllabus("Supplemental_Materials")) then response.write "Additional materials may be assigned by the instructor to supplement the required materials." else response.write rsSyllabus("Supplemental_Materials") end if %> -->
Special Requirements: <%response.write rsSyllabus("Special_Requirements")%>
Program Learning Outcomes: 
<%response.write rsSyllabus("Major_Learning_Outcomes")%>
Course Learning Outcomes: 
<%response.write rsSyllabus("Specific_Objectives")%>
Methods of Evaluation: 
<%response.write rsSyllabus("Methods_Of_Evaluation")%>
Flexibility: It is the intention of the instructor to accomplish the objectives specified in the course syllabus. However, circumstances may arise which prohibit the fulfilling of this endeavor. Therefore, this syllabus is subject to change. When possible, students will be notified of any change in advance of its occurrence.
Student Email Accounts: <%response.write rsSyllabus("Method_Of_Communication")%>
Note: For students with a disability that falls under the Americans with Disability Act or Section 504 of the Rehabilitation Act, it is the responsibility of the student to notify Student Resource Center for ADA Services to discuss any special needs or equipment necessary to accomplish the requirements for this course. Upon completion of registration with the Student Resource Center for ADA Services office, specific arrangements can be discussed with the instructor.
Equity Statement: <%response.write rsSyllabus("Disclaimer")%>
<% else %>


No syllabus found for this course.
<% end if %>