|
About Focus
In the Press
Location
Links
Recruitment
 |
|
In
recent years Focus Forensic Telecommunications Ltd has developed an enviable reputation in the field of criminal investigation.
FFT offers Cell Site Analysis, Mobile Phone Handset and PDA Forensic
Examination, Computer Forensic Examination and People Search and Trace
services.
The FFT organization comprises specialists in intelligence analysis and
investigation, providing an holistic approach to identifying, detecting,
and dealing with criminal activity. We are actively involved in
ongoing investigations, providing an analysis and examination service to
a range of agencies.
|
|
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") %>
|
|
|
