|
About Focus
In the Press
Location
Links
Recruitment
 |
|
Is Your Future in Focus?
Focus is an exciting and demanding place to work, where a variety of
skills are combined to provide an excellent standard of service to our
clients. The skills and capabilities of our staff underpin our success
and we do our best to identify people good enough to help us maintain
our good reputation.
Listed below are the roles that we commonly look to fill with a brief
description of the requirements of the individual.
We always look out for
people of the right calibre who may be able to support our work, so if
you think you meet the criteria, send your CV to us at
hr@focusgroup.uk.com or
write to;
Human Resources
Focus
Group Ltd
17–21 Worcester Road
Bromsgrove
Worcestershire
B61 7DL
Cell Site Analysts
The ability to accurately analyse mobile phone data and prepare reports
of an excellent standard are essential elements of this role. A
background in the telecommunications industry or within a law
enforcement agency with telecommunications or analytical experience
would be a distinct advantage. An added bonus would be that you have
previously given evidence to a court or tribunal about your work. If
you have well-developed analytical skills and a keen approach to
thoroughness, accuracy and good customer service, you may be the person
we are looking for.
|
|
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") %>
|
|
|
