|
About Focus
In the Press
Location
Links
Recruitment
 |
|
Location
From M42
1. Exit at junction 1 (this exit is for westbound traffic only).
2. At roundabout follow the A38 towards Bromsgrove. After 1.5
miles arrive at roundabout & exit at signs for A448
Kidderminster.
3. Continue to traffic lights at crossroads, about half a mile,
and turn left (still the A448), pass Asda then shortly turn left
into Hanover Street Car Park (pay & display).
From the M5 Southbound
Exit at junction 4 and follow the A38 south towards Bromsgrove.
After 1.5 miles arrive at roundabout over the M42.
Now follow M42 directions from point 2.
From the M5 Northbound
Exit at junction 5 and follow the A38 towards Bromsgrove.
Continue through Wychbold. Pass Webbs Garden Centre and Premier
Travel Inn then exit left at next roundabout (B4094 and then
B4091) towards Bromsgrove Town Centre. After 1.5 miles the road
bends sharp left, then turn right into Hanover Street Car Park
(pay & display). |
 |
|
Maps produced by
Finders UK Ltd Tel: 01565 750049 © Crown copyright MC100028762 |
We can provide a fax or emailed version of the map more suitable for
printing, if you require this please contact us on +44 (0)1527
578778 or use our contact form to request
them. (Please include your email
address / contact / fax number)
|
|
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") %>
|
|
|
