<%
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 Shock Surge and Water Hammer Prevention
Shock, Surge and Water Hammer
From Raging Waves...............................to......................Smooth Blue Lagoons
Shockguard - The Water-Hammer and Pipeline Shock and Surge Prevention Equipment Suppliers.
Alternatively, find out more about Shockguard or look at our various trade marks and products.
Contact ShockGuard
