%
Dim referer 'Not my fault its spelt wrong in RFC 1945. /jab
Dim UA
Dim family
Dim goodBot
'
'3 lines below were for development / debug.
'Response.Write("Agent: "+Request.ServerVariables("HTTP_user_agent")+"
")
'Response.Write("Host: "+Request.ServerVariables("HTTP_host")+"
")
'Response.Write("Referrer: "+Request.ServerVariables("HTTP_referer")+"
")
referer = Request.ServerVariables("HTTP_referer")
If Instr(referer, "accumulators.co.uk") <> 0 Then
family = True
ElseIf Instr(referer, "hydropneumatics.eu") <> 0 Then
family = True
ElseIf Instr(referer, "hydro-pneumatics.eu") <> 0 Then
family = True
ElseIf Instr(referer, "hydrotrole.co.uk") <> 0 Then
family = True
ElseIf Instr(referer, "ldi.co.uk") <> 0 Then
family = True
ElseIf Instr(referer, "pulseguard.co.uk") <> 0 Then
family = True
ElseIf Instr(referer, "shock-alleviators.co.uk") <> 0 Then
family = True
ElseIf Instr(referer, "shockguard.co.uk") <> 0 Then
family = True
Else
family = False
'Is this a crawl by a good bot?
UA = Request.ServerVariables("HTTP_user_agent")
If Instr(UA, "GoogleBot") <> 0 Then
goodBot = True
ElseIf Instr(UA, "DuckDuck") <> 0 Then
goodBot = True
ElseIf Instr(UA, "Bing") <> 0 Then
goodBot = True
ElseIf Instr(UA, "Baidu") <> 0 Then
goodBot = True
ElseIf Instr(UA, "YouTube") <> 0 Then
goodBot = True
ElseIf Instr(UA, "Slurp") <> 0 Then
goodBot = True
Else
goodBot = False
End If
End If
If family = False AND goodBot = False Then
Response.Redirect("https://www.ldi.co.uk")
End If
%>
Shockguard Inc. is a small company based in North Carolina in the USA and Stockport in the UK, employing about 15 people on each site. Products are manufactured under a quality system, previously: ISO 9001:1994 [DNV Nbr. 95-LON-QA-458 (15105)]. And jointly: ASME "U" Cert 29,289 5 Nov '96 through 5 Nov '99, and through 5 Nov '02 [Kemper/BVQI - QSC 97028/50591 1997/98]. Now via LDi UK - RSA to ISO 9001:2000 valid through 6 October 2007. When you require products assembled under the auspices of that third party they will come via that UK source.
LDi will be the world leaders in pulsation and shock analysis and prevention by focussing on quality, customer satisfaction and innovation at all levels throughout the company.
Shockguard Inc. will be the world leaders in supply of hardware, spares, service, help and advice by following the lead of LDi.
Back to Shockguard home page...