<% Dim user_agent, mobile_browser, Regex, match, mobile_agents, mobile_ua, i, size user_agent = Request.ServerVariables("HTTP_USER_AGENT") mobile_browser = 0 Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm)" .IgnoreCase = True .Global = True End With match = Regex.Test(user_agent) If match Then mobile_browser = mobile_browser+1 If InStr(Request.ServerVariables("HTTP_ACCEPT"), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then mobile_browser = mobile_browser+1 end If mobile_agents = Array("w3c ", "acs-", "alav", "alca", "amoi", "audi", "avan", "benq", "bird", "blac", "blaz", "brew", "cell", "cldc", "cmd-", "dang", "doco", "eric", "hipt", "htc", "iph", "inno", "ipaq", "java", "jigs", "kddi", "keji", "leno", "lg-c", "lg-d", "lg-g", "lge-", "maui", "maxo", "midp", "mits", "mmef", "mobi", "mot-", "moto", "mwbp", "nec-", "newt", "noki", "oper", "palm", "pana", "pant", "phil", "play", "port", "prox", "qwap", "sage", "sams", "sany", "sch-", "sec-", "send", "seri", "sgh-", "shar", "sie-", "siem", "smal", "smar", "sony", "sph-", "symb", "t-mo", "teli", "tim-", "tosh", "tsm-", "upg1", "upsi", "vk-v", "voda", "wap-", "wapa", "wapi", "wapp", "wapr", "webc", "winw", "winw", "xda", "xda-") size = Ubound(mobile_agents) mobile_ua = LCase(Left(user_agent, 4)) For i=0 To size If mobile_agents(i) = mobile_ua Then mobile_browser = mobile_browser+1 Exit For End If Next If mobile_browser=1 Then Response.Redirect("http://producut.co.za/Mobi/contact.asp") End If %> Contact Producut | Superior Metal Lubricating Solutions
producut
Home About Products MQL Overview Case Studies Gallery Contact Us

Specialised Lubricants and Custom Built Machines for Automatic Application of Lubricants

Home About Products MQL Overview Case Studies Gallery Contact Us Sitemap

Site Navigation:

Contact Producut For All Your Metal Lubricating Solutions

Office Details:

Tel:

012 804 ...Click to view

Fax:

086 527 9727

Email:

reception@producut.co.za

Office Hours:

Monday - Friday

07:30 - 13:00

13:30 - 17:00

Physical Address:

Postal Address:

487 Jasmyn Aven

Silverton

Pretoria

P.O. Box 2309

Silverton

0127


Send Us An Enquiry:

Our Online Store Listing Is Live!


Just a short note to let you know that your online listing is live on the 2018 Suppliers Directory page
Categories: Oils & Lubricants And Metalworking

 

 

Contact Details:

Accounts / Admin:

012 804 ...Click to view

reception@producut.co.za

Technical / Sales:

083 234 ...Click to view





sales@producut.co.za