|
|
Announcements
|
 |
<%
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("353_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: Professor Ronald J. Glotzbach
|
Email: rjglotzbach@purdue.edu
Office: Knoy 319
Office Hours: |
TA:
|
|
For information contact: Professor R.J. Glotzbach
| CGT 35300 Fall 2018 |
<%
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
%>
|
|
|
| |