K-State - FAQ

Resources

The Center for the Understanding of Origins is an interdisciplinary Center at Kansas State University established in the year 2004. The center aims to foster bold and scholarly interdisciplinary research addressing issues of origins, especially the origin of the physical Universe, of the Earth, of Life, of intelligence, and of language.

The Center comprises permanent faculty from the departments of Biology, English, Entomology, History, Geology, Philosophy, and Physics. The Center's faculty are involved in developing general education courses and honors seminars for undergraduates, and a graduate certificate program in the study of origins. The Center sponsors both academic and public speakers, with the aim of transforming the discussion of important origins subjects such as evolution from one of hostile arguments between "experts" and "special interests" to informed debate among citizens.

The Center’s faculty conduct research on the theme of Origins from the perspectives of both humanists and scientists. The Center faculty teach courses of topical interest to a wide sector of K-State’s student body and foster interdisciplinary work across the University through colloquia and seminars. The faculty also engage in public outreach by speaking before non-academic audiences and provide training for K-12 teachers.

 

<% set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\origins.mdb") & ";" set rs=Server.CreateObject("ADODB.recordset") rs.Open "Select * FROM Event order by ID desc", conn response.write("
Events
") do until rs.EOF currentdate = date checkdate = rs.fields("Date") if rs.fields("EndDate") <> "" then checkdate = rs.fields("endDate") end if if(datevalue(date) <= datevalue(checkdate)) then response.write("
") if(rs.fields("link") <> "") then response.write("" & rs.fields("Event") & "
") else response.write("" & rs.fields("Event") & "
") end if response.write(rs.fields("location") & "
") response.write(rs.fields("Date") & " " & rs.fields("Time")) if rs.fields("EndDate") <> "" then response.write ("-" & rs.fields("EndDate") & " " & rs.fields("EndTime") & "
") end if response.write("
") end if rs.movenext loop response.write("
") Conn.Close Set Conn = Nothing %>

<% set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\origins.mdb") & ";" dim display, ct 'CHANGE THIS NUMBER IF YOU WANT TO CHANGE THE NUMBER OF ANNOUNCEMENTS THAT DISPLAY display=4 ct=0 set rs=Server.CreateObject("ADODB.recordset") rs.Open "Select * FROM Announcement order by ID desc", conn response.write("
Announcements
") do until rs.EOF or ct = display ct= ct + 1 response.write("
") if(rs.fields("link") <> "") then response.write("" & rs.fields("Announcement") & "
") else response.write("" & rs.fields("Announcement") & "
") end if response.write("
") rs.movenext loop response.write("
") Conn.Close Set Conn = Nothing %>