%
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.