DISCOVER. CREATE. CHANGE. Set your mind in motion and make a creative statement for diversity for the 2nd Annual TCU Diversity Poster Competition sponsored by Housing and Residence Life. 
Emergency situations in residence halls can be dangerous to the life and property of the residents. Therefore, various precautions are taken to insure that all students know what to do. more... |
If you find a need for maintenance in your room, please do not attempt to make the repairs yourself. Contact your RA, CRA, HD, or PC concerning all maintenance problems, even those that may seem minor. more... 
<% Response.Expires = -1 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://www.calendar.tcu.edu/RSSSyndicator.aspx?type=N&category=11-0%2c13-0%2c1-0" ' ##### max number of displayed items ##### MaxNumberOfItems = 4 ' ##### Main template constants MainTemplateHeader = "" MainTemplateFooter = "" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ' ##### {DATE} will be replaced with item date and time ' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog) ' ##### {CATEGORY} will be replaced with item category ItemTemplate = " {CATEGORY} - {TITLE} "
' ##### Error message that will be displayed if not items etc
ErrorMessage = "Due to technical maintenance, the TCU Calendar is temporarily unavailable."
' ================================================
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = False
xmlDOM.validateOnParse = False
xmlDom.resolveExternals = False
If not xmlDOM.LoadXml(RSSXML) Then
ErrorMessage = ErrorMessage
End If
Set xmlHttp = Nothing ' clear HTTP object
Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
Set xmlDOM = Nothing ' clear XML
RSSItemsCount = RSSItems.Length-1
' writing Header
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If
j = -1
For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
customTitle = Left(RSStitle, (InStr(RSStitle,"(") - 2))
case "link"
RSSlink = child.text
case "description"
RSSdescription = child.text
case "pubdate"
RSSDate = child.text
case "comments"
RSSCommentsLink = child.text
case "category"
Set CategoryItems = RSSItem.getElementsByTagName("category")
RSSCategory = ""
for each categoryitem in CategoryItems
if RSSCategory <> "" Then
RSSCategory = RSSCategory & ", "
End If
RSSCategory = RSSCategory & categoryitem.text
Next
End Select
next
' now check filter
'If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then
j = j + 1
If j < MaxNumberOfItems then
ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",customTitle)
ItemContent = Replace(ItemContent,"{DATE}",RSSDate)
ItemContent = Replace(ItemContent,"{COMMENTSLINK}",RSSCommentsLink)
ItemContent = Replace(ItemContent,"{CATEGORY}",RSSCategory)
Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
ItemContent = ""
End if
'End If
Next
' writing Footer
if RSSItemsCount > 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If
' Response.End ' uncomment this for use in on-the-fly output
%>
more...
| |