About Focus
In the Press
Location
Links
Recruitment
 |
|
Excellence in investigation and intelligence through training and
support services
Focus on our abilities:
Telecommunication Investigation & Cell Site Analysis
Mobile Handset and
PDA Forensic Examination
Computer Forensic Examination
Training
|
|
For more information
please click below
to contact us
| |
<%
If DateDiff("h", Application(Request.ServerVariables("PATH_INFO")&"rss"), Now()) >= 1 _
Or Request.QueryString("force") <> "" Then
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
RSSItemsCount=12
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
Dim feed(6)
feed(1) = "http://www.theregister.co.uk/security/headlines.rss"
feed(2) = "http://news.millersmiles.co.uk/msnews.xml"
feed(3) = "http://www.theregister.co.uk/telecoms/headlines.rss"
feed(4) = "http://www.theregister.co.uk/mobile/headlines.rss"
feed(5) = "http://www.theregister.co.uk/internet/headlines.rss"
feed(6) = "http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/technology/rss.xml"
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(intHighestNumber * Rnd) + 1
End Function
objXML.Load(feed(RandomNumber(6)))
If objXML.parseError.errorCode <> 0 Then
Response.Write "" & vbCrLf
Response.Write "Error: " & objXML.parseError.reason
Response.Write "Line: " & objXML.parseError.line & vbCrLf
Response.Write "Text: " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "" & vbCrLf
End If
Set channelinfolist = objXML.getElementsByTagName("channel")
set channelinfo= channelinfolist.item(0)
for each child in channelinfo.childNodes
Select case lcase(child.nodeName)
case "title"
channeltitle = child.text
case "link"
channellink = child.text
case "description"
channeldescription = child.text
case "copyright"
channelcopyright = child.text
case "lastBuildDate"
channeldate = child.text
End Select
next
strHTML=strHTML&"
Industry News"
strHTML=strHTML&"
" & channeltitle
strHTML=strHTML&""
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For i = 0 To RSSItemsCount
Set RSSItem = objItemList.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
RSSlink = child.text
case "description"
RSSdescription = child.text
End Select
next
strHTML = strHTML & "" & vbCrLf
strHTML = strHTML & ""
strHTML = strHTML & "" & RSStitle
strHTML = strHTML & "
" & vbCrLf
strHTML = strHTML & " " & vbCrLf
next
Application.Lock
Application(Request.ServerVariables("PATH_INFO")&"content") = strHTML
Application(Request.ServerVariables("PATH_INFO")&"rss") = Now()
Application.UnLock
End If
%>
<%= Application(Request.ServerVariables("PATH_INFO")&"content") %>
|
|
|
