<% ChangeView = "" ChangeView = request.querystring("ChangeView") 'Check querystring in case someone updates the string from Current or Next If ChangeView <> "Current" and ChangeView <> "Next" then ChangeView = "Current" End if session("ChangeView") = ChangeView 'Initialize and open a connection to the database server set conn=Server.CreateObject("ADODB.Connection") ' conn.Open "Driver={sql server};Database=ScalaDB;Server=pccpdb02;UID=aspReadOnlyUser;PWD=pccW&bRO2015;" conn.Open "Driver={sql server};Database=ScalaDB;Server=pccpdb03;UID=SQL_SVC_ScalaDBaspROuser;PWD=frozenLobster2917;" set rs = Server.CreateObject("ADODB.recordset") %>

<% if SortBy = "" then SortBy = "[Subject], Course, CRN" end if session("SortBy") = SortBy If ChangeView = "" then ' read the term field (current or next) for the title selected as well as for toggle (change) rs.Open "SELECT TermDescription, tblSZRSCDX_Term from ClassListTerm", conn do until rs.EOF If rs.fields(1).Value = "Current" then TermView = rs.fields(1).value TermTitle = rs.fields(0).value session("TermView") = TermView View = "vOnlineClassesCurrent" else ChangeTitle = rs.fields(0).value session("ChangeTitle") = TermView end if rs.MoveNext loop rs.close else If ChangeView = "Current" then View = "vOnlineClassesCurrent" TermView = "Current" else View = "vOnlineClassesNext" TermView = "Next" end if ' read the term title for selected as well as for toggle (change) rs.Open "SELECT TermDescription, tblSZRSCDX_Term from ClassListTerm", conn do until rs.EOF If rs.fields(1) = TermView then TermTitle = rs.fields(0).value else ChangeTitle = rs.fields(0).value end if rs.MoveNext loop rs.Close end if session("View") = View select case SortBy Case "[Subject], Course, CRN" ScrollTo = "" ScrollTo1 = "" 'Retrieve the recordset for the ScrollTo Menu rs.Open "SELECT distinct upper(left(Subject,3)) as initial from " & View & " order by initial", conn Dim InitialCount InitialCount = 0 do until rs.EOF InitialCount = InitialCount + 1 thisInitial = rs.fields(0).value If InitialCount > 24 then ScrollTo1 = ScrollTo1 & "" & thisInitial & "" & " " & " " else ScrollTo = ScrollTo & "" & thisInitial & "" & " " & " " end if rs.MoveNext loop rs.close session("ScrollTo") = ScrollTo session("ScrollTo1") = ScrollTo1 session("InitialCount") = InitialCount SortBy = "[Subject], Course, CRN" HeaderLine ="Jump To: " & ScrollTo & " 
" & ScrollTo1 & "" HeaderLine = HeaderLine & vbcrlf '& "SubjectCourseCRNCourse TitleCourse Start DateInstructor" Case "Subject" SortBy = "[Subject], Course, CRN" HeaderLine = vbcrlf & "SubjectCourseSectionCRNCourse TitleCourse Start DateInstructor Name" End Select rs.Open "SELECT [Subject], Course, [Section], CRN, [Course Title], [Course Start Date], Instructor FROM " & View & " order by " & SortBy & "", conn session("Select") = "SELECT [Subject], Course, [Section], CRN, [Course Title], [Course Start Date], Instructor FROM " & View & " order by " & SortBy response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.Write "" & vbcrlf response.write HeaderLine & vbcrlf session("HeaderLine") = HeaderLine index1 = AAA index2 = AAA do until rs.EOF index1 = left(ucase(rs.fields(0).value),3) if SortBy = "[Subject], Course, CRN" then if index1 > index2 then response.write "" & vbcrlf HeaderLine = vbcrlf & "" response.write HeaderLine & vbcrlf index2 = index1 end if end if response.write "" for i = 0 to 6 Response.Write("") next response.write "" & vbcrlf rs.MoveNext loop response.write "

PCC Online Class List
" & TermTitle & "
The following list of classes may not reflect the most current schedule. Please confirm class availability using the online class search. When searching, select ""PCC Online Campus"" under Campus to view the online classes.
" & index1 & "
Subject	Course	Section	CRN	Course Title	Course Start Date	Instructor
" & rs.fields(i).value & "

" rs.close conn.close %>