K-State - FAQ

Home
Departments
People
Opportunity
Announcements
Resources
  Books
  Video Presentations
Contact
Click here to download PDF version of our FAQ
<% 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 %>