%
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
%>
Click on the SurgeGuard to find out more about it.

Alternatively, LDi's ShockView software can provide an analysis of the system to determine how slowly the valve should be closed or the pump started up to prevent the shock wave forming.
