%
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
%>
Small |
![]() |
SuG-100Lt-46Br-4" 600# 316 | |
SuG-150-44Br-4" 300# 316 | |
SuG-200-44Br-6" 300# 316 | |
Medium |
|
SuG-250-44Br-8" 300# 316 | |
SuG-450-42Br-10" 300# 316 | |
SuG-750-40Br-12" 300# 316 | |
Large |
|
SuG-1000-24Br-16" 150# 316 | |
SuG-2000-18Br-20" 150# 316 | |
SuG-3000-18Br-20" 150# |