<% 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 Download Area
ShockGuard
ShockGuard
Fluid Flow Control Animations
Fluid Flow Control Animations

Download Area

Self-extracting archive suite of analytical programs with a free screen show. ldi.exe
Approx. 2.7 mb
Demo program for pumps with displacement of approximately 1 1/2 gallons per stroke. pv-06lt.exe
Approx. 167k
Demo program for pumps with displacement of approximately 10 cubic inches per stroke. pv-150ml.exe
Approx. 167k
Demo program for large diameter pipes of relatively large length. stroke. shock10.exe
Approx. 407k
Demo program for small diameter pipes of relatively small length. shock3.exe
Approx. 407k

 

Contact ShockGuard

Call Toll Free 1-888-DAMPERS (326-7377) /
Go to: Pulsation-Dampeners.com for a pulsation dampener.
See Also: Coup de Bélier | Marteau de l'eau


Fluid Flow Control Fluid-Flow-Control.com The Fluid Flow Control Source Pumps Accumulators Filters Dampers Heat Exchangers Valves Mixers P.I. / Pressure Indicators Controls Meters Vessels