<% Dim ismobile Function is_mobile() Dim Regex, match Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad|Android|BlackBerry|iPhone|iPod|Palm|Symbian)" .IgnoreCase = True .Global = True End With match = Regex.test(Request.ServerVariables("HTTP_USER_AGENT")) If match then ismobile=2 Else ismobile=1 End If End Function %> <% reqCatID = request.QueryString("catid") prodid = request.QueryString("prodid") prodTitle = retrieveItemFromID("product", prodid, "title") %> <% Select Case reqCatID Case "1" %> <% Case "2" %> <% Case "3" %> <% Case "4" %> <% Case "5" %> <% Case "6" %> <% Case "7" %> <% Case "8" %> <% Case "9" %> <% Case "10" %> <% Case "11" %> <% Case "12" %> <% Case "13" %> <% Case "14" %> <% Case "15" %> <% Case "16" %> <% Case "17" %> <% Case "18" %> <% Case "19" %> <% Case "20" %> <% Case "21" %> <% Case "22" %> <% Case "23" %> <% Case "24" %> <% Case "25" %> <% Case "26" %> <% Case "27" %> <% Case "28" %> <% Case "29" %> <% Case "30" %> <% Case "31" %> <% Case "32" %> <% Case "33" %> <% Case "34" %> <% Case "35" %> <% Case "36" %> <% Case "37" %> <% Case "38" %> <% Case "39" %> <% Case "40" %> <% Case "41" %> <% Case "42" %> <% Case "43" %> <% Case "44" %> <% Case "45" %> <% Case "46" %> <% Case "47" %> <% Case "48" %> <% Case "49" %> <% Case "50" %> <% Case "51" %> <% Case "52" %> <% Case "53" %> <% Case "54" %> <% Case "55" %> <% Case "56" %> <% Case "57" %> <% Case "58" %> <% Case "59" %> <% Case "60" %> <% Case "61" %> <% Case "62" %> <% Case "63" %> <% Case "64" %> <% Case "65" %> <% Case "66" %> <% Case "67" %> <% Case "68" %> <% Case "69" %> <% Case "70" %> <% Case "71" %> <% Case "72" %> <% Case "73" %> <% Case "74" %> <% Case "75" %> <% Case Else End Select %> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.Querystring %> <%= pageTitle %> - <%call dispCatTitle(reqCatID, null)%> - Masterflex Technical Hoses LTD <% is_mobile() If ismobile = 2 Then Response.Write("") Else Response.Write("") End If %>

Search Products By

Contact Information

  • Masterflex Technical Hoses Limited
  • Units G & H
  • Prince of Wales Business Park
  • Vulcan Street
  • Oldham
  • OL1 4ER
<% If ismobile = 2 Then %> <% Else %> <% End If %>