%
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
%>
SysView is a complete software suite consisting of the PulseView pulsation analysis rolex replica system, the ShockView water-hammer and pump start-up surge analysis system, and the Liquidamics interactive on-screen hypershow.
The minimum system requried to run SysView is
Due to the highly processor intensive nature of the program, we recommend using a computer with at least a 486DX2-66 processor. The ANSI.SYS display driver is suppplied with all versions of DOS and must be installed when the system boots up.