<% 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

Freshman Seminar Program

Beginning in Winter 2003, UCSD began offering one-unit Freshman 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 priority is given to freshmen and most Freshman Seminars have an enrollment limit of 20 students, therefore early registration is encouraged. Students may complete up to four Freshman Seminars with the stipulation that none of the Seminars are repeated. If students are interested in taking more than one Freshman Seminar being offered by the same department, check with the Student Affairs office of that department for guidelines on how many Freshman Seminars may be taken within that department.

Quarterly Seminar Course Listings

What do you get out of a Freshman Seminar?

Small, informal classes (20-student limit) that are made up of other freshmen and a few sophomores;
An opportunity to explore ideas with faculty members on many subjects of mutual interest;
An opportunity to earn 1 unit of credit on a P/NP basis. You may enroll in several different seminars during your academic career;
Freshman Seminars meet for 8 to 10 hours during the quarter (most seminars meet once a week).

What is expected of you in a Freshman Seminar?

Attendance is an important factor in your learning due to the reduced workload of a 1-unit course;
Sharing ideas is an important academic skill that can only be acquired through practice;
Freshman Seminars may require readings, projects, short papers, or quizzes. Students have told us that 1-2 hours of work per week can be expected outside of the seminar.

First-year Freshmen with advanced-standing please (click here) for important registration instructions.

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

Check out what students have said about the Freshman Seminar Program: Student Comments

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