Sniff for WAP

Is this the correct way to sniff for WAP devices (cell phones, pdas, etc)?

Code:

---

If (Instr(1,Lcase(Request.ServerVariables("HTTP_ACCEPT")),"wap") <> 0) Then

---

Thanks,