<%@LANGUAGE="VBSCRIPT" %> <% Response.CacheControl = "no-cache" %>
Announcements rss feed img
<% Set objXML = Server.CreateObject("Microsoft.XMLDOM") Set objLst = Server.CreateObject("Microsoft.XMLDOM") Set objAnn = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.Load (Server.MapPath("215_RSS.xml")) If objXML.parseError.errorCode <> 0 Then 'handle the error End If %>
    <% Set objLst = objXML.getElementsByTagName("item") noOfItems = objLst.length For i = 0 To ( noOfItems - 1 ) Set objAnn = objLst.item(i) 'write the XML title followed by description Response.Write("
  • " & objAnn.childNodes(0).text & ": " & objAnn.childNodes(1).text) 'determine current page URL currentPage = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") 'if XML link is not the same URL as current page, don't show a link '(showing the link would create a circular scenario If LCase(objAnn.childNodes(2).text) <> LCase(currentPage) Then Response.Write(" [ Link ]

    • ") Else Response.Write("
    ") End If Next %>

Course Management
Coordinator: Dr. David Whittinghill
Email: davewhit@purdue.edu
Office: Knoy 333
Office Hours: W 3:00 - 5:00

 

Section 002
 Dr. David Whittinghill
Knoy 340
T 9:30 - 11:20

Section 003
 Dr. David Whittinghill
Knoy 340
T 11:30 - 1:20

 

Section 004
 Norman Joseph
Knoy 340
W 9:30 - 11:20

Section 005
 Norman Joseph
Knoy 340
W 11:30 - 1:20

TA Office Hours
KNOY 374:
M: 5:00 - 7:00 PM
 
Lecture Meeting Time & Place: M, W: 8:30 - 9:20 in GRSM 180


For information contact: Dr. David Whittinghill

CGT 215 Fall 2010 <% Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(Server.MapPath("./index.asp")) Response.Write("Last Modified: ") Response.Write(f.DateLastModified) Set f = nothing Set fso = nothing %>