<%@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("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 %>

Learn HTML5, Learn jQuery, Learn CSS, Learn Web Design, Learn User Experience