<% Dim classSet Dim setProgram classSet="f" If Request.QueryString("c").count > 0 then classSet=Request.QueryString("c") End If If Request.QueryString("qtr").count > 0 then quarterTest=Request.QueryString("qtr") End If if classSet="s" then setProgram="SSP" elseif classSet="t" then setProgram="FSP" else setProgram="FSP" classSet="f" end if Set rsc = CreateObject("ADODB.Recordset") sqlSelect = "SELECT Program, CurrentDisplayedQuarter, FroshEnrollDate," sqlSelect = sqlSelect & " SophEnrollDate FROM tblWebDates WHERE Program='" &setProgram& "';" rsc.Open sqlSelect, cnnLogin Dim classAbrv Dim currentQuarter Dim quarterSet Dim quarterName Dim yearName if rsc.EOF then currentQuarter="fa99" else currentQuarter=lcase(rsc("CurrentDisplayedQuarter")) end if quarterSet=lcase(currentQuarter) if len(quarterTest) = 4 then qSet = left(quarterTest, 2) ySet = right(quarterTest, 2) if qset="fa" or qset="wi" or qset="sp" then if isnumeric(ySet) then quarterSet=quarterTest end if end if end if qtrSet = left(quarterSet,2) yearName="20" & right(quarterSet,2) Dim classCode Dim className Dim classColor Dim isTSP classCode="87" className="Freshman" classColor="fspcourse" classHigh="dbluehigh" isTSP="=0" If classSet= "s" then classCode="192" className="Senior" classColor="sspcourse" classHigh="olivehigh" isTSP="=TSP" ' if right(quarterSet,2)< "06" then ' quarterSet=currentQuarter ' qtrSet=left(currentQuarter,2) ' yearName="20" & right(currentQuarter,2) ' end if ' if quarterSet= "WI06" then ' quarterSet=currentQuarter ' qtrSet=left(currentQuarter,2) ' yearName="20" & right(currentQuarter,2) ' end if ' if quarterSet= "SP06" then ' quarterSet=currentQuarter ' qtrSet=left(currentQuarter,2) ' yearName="20" & right(currentQuarter,2) ' end if End if If classSet= "t" then classCode="87" className="Transfer Student" classColor="tspcourse" classHigh="goldhigh" isTSP="<>0" End if if qtrSet= "fa" then quarterName="Fall" elseif qtrSet= "wi" then quarterName="Winter" else quarterName="Spring" end if 'if rsd("Div") = "BS" then 'departname = "Division of " & rsd("Department") ' elseif isNull(rsd("Pgm")) and rsd("Div") <> "Coll" and rsd("Div") <> "SIO" and rsd("Div") <> "IR/PS" and rsd("Div") <> "SOM" then ' departname = "Department of " & rsd("Department") ' else ' departname = rsd("Department") ' end if Set rss = CreateObject("ADODB.Recordset") sqlSelect = "SELECT d.Department, d.Div, d.Pgm, s.SubjCode, s.SectionStatusCode, i1.LastName," sqlSelect = sqlSelect & " i1.FirstName, s.Qtr, s.Number, s.SeminarTitle, s.SectID," sqlSelect = sqlSelect & " s.FullDay, s.StartTime, s.EndTime, s.InstrDates," sqlSelect = sqlSelect & " s.Bldg, s.Room, s.SeminarPrereq, s.SeminarDescription, s.Cancelled," sqlSelect = sqlSelect & " s.ApprbyCEP, s.Publish, s.PublishComments, s.PublishCommentsColor, s.TSP," sqlSelect = sqlSelect & " s.Comments, i2.LastName as LastName2, i2.FirstName as FirstName2, i1.Email," sqlSelect = sqlSelect & " i1.FacultyWebsite, i2.Email as Email2, i2.FacultyWebsite as FacultyWebsite2" sqlSelect = sqlSelect & " FROM (tblDivision AS d RIGHT JOIN (tblInstructorInformation AS i1" sqlSelect = sqlSelect & " INNER JOIN tblSeminarInformation AS s ON i1.PID = s.PID)" sqlSelect = sqlSelect & " ON d.[" &classCode& " Code] = s.SubjCode)" sqlSelect = sqlSelect & " LEFT JOIN tblInstructorInformation AS i2 ON s.PID2 = i2.PID" sqlSelect = sqlSelect & " WHERE s.Qtr='" &quarterSet& "' AND s.Number=" &classCode& " AND s.Publish<>0 and s.TSP" &isTSP sqlSelect = sqlSelect & " ORDER BY d.Department, s.SeminarTitle, s.SubjCode, s.SectionStatusCode;" rss.Open sqlSelect, cnnLogin, 1 Set rsd = CreateObject("ADODB.Recordset") sqlSelect = "SELECT DISTINCT d.Department, d.Div, d.Pgm" sqlSelect = sqlSelect & " FROM tblDivision AS d" sqlSelect = sqlSelect & " RIGHT JOIN tblSeminarInformation AS s" sqlSelect = sqlSelect & " ON d.[" &classCode& " Code] = s.SubjCode " sqlSelect = sqlSelect & " WHERE s.Number=" &classCode& " AND s.Qtr='" &quarterSet& "' AND s.Publish<>0 and s.TSP" &isTSP sqlSelect = sqlSelect & " ORDER BY d.Department" rsd.Open sqlSelect, cnnLogin, 1 dn = rsd.RecordCount dn1 = Round((dn+.5)/2) dn2 = dn-dn1 %>

Skip navigation links

Navigation

Search

Undergraduate Education

Senior Seminar Program

Beginning Fall 2006, UCSD began offering one-unit Senior Seminars. The seminars are taught by faculty in their fields of expertise and explore topics of intellectual importance while participating in critical discussion with a small group of peers and faculty. Enrollment is limited to allow students close contact with the instructor. Grading will be P/NP and valued at one unit of course credit. Students may complete up to four Senior Seminars with the stipulation that none of the Seminars are repeated. If students are interested in taking more than one Senior Seminar being offered by the same department, check with the Student Affairs office of that department for guidelines on how many Senior Seminars may be taken within that department.

Announcement from the Senior Vice Chancellor Academic Affairs

Quarterly Seminar Course Listings

What do you get out of a Senior Seminar?

Small, informal classes (20-student limit);
An opportunity to strengthen relationships with faculty members;
An opportunity to earn 1 unit of credit on a P/NP basis. You may enroll in several different seminars during your academic career.

What is expected of you in a Senior Seminar?

Attendance is an important factor in your learning due to the reduced workload of a 1-unit course;
Senior Seminars may require readings, projects, short papers, or quizzes;
It is anticipated that 1-2 hours of work per week can be expected outside of the seminar;
Senior Seminars meet for 8 to 10 hours during the quarter (most seminars meet once a week).

Read the Senior Seminar Program press release [doc] [pdf]

For issues regarding this page,
please contact the webmaster

Official Web site of the University of California, San Diego
University of California, San Diego, 9500 Gilman Dr., La Jolla, CA 92093
(858) 534-2230
Copyright ©2007 Regents of the University of California. All rights reserved.

Terms and Conditions of Use