Detecting Mobile Browsers

As discussed in our last meeting, web applications can be built to handle both PC browsers and mobile browsers. To do so, the application needs to detect if the browser is a mobile device and redirect the application to a page designed to display UI adequate for the smaller mobile browser. Detecting the browser is done using the following code sample, and it's typically placed in the Page_Load() of the login.aspx or default.aspx


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If Not IsPostBack Then
If Request.Browser.IsMobileDevice = True Then
Response.Redirect("mobile/login.aspx")
End If
End If

Catch ex As Exception
ProcessEx(ex)
End Try

End Sub

Comments

Mark Harr said…
I want to know what your ProcessEx() does.
August 03, 2006 11:10 PM
Sam Nasr said…
ProcessEx() is used as a central location for logging all Exceptions. In this particular instance, I simply write the error to a log file and then display the error to the user using a specific .ASPX page. Listed below is the code used for this scenario.

Public Shared Sub ProcessEx(ByVal Ex As Exception)

Dim strMsg As String
strMsg = " Error=" & Ex.Message & ControlChars.CrLf
strMsg &= " Method=" & System.Reflection.MethodInfo.GetCurrentMethod.Name & ControlChars.CrLf
strMsg &= " Stack Trace=" & Ex.StackTrace & ControlChars.CrLf
WriteEntry(strMsg)

Dim cls As New clsOpMgmt
cls.ShowError(strMsg)

End Sub
August 14, 2006 4:05 PM
Mark Harr said…
Thanks. Now what does clsOpMgmt do?
August 19, 2006 3:28 PM
Sam Nasr said…
clsOpMgmt is a class composed of functions used for handling errors. Some of the methods include WriteEntry() which writes to a log file, SendEmail() used for sending automated emails when certain erros occur, and ShowError() which is used to display an error or exception in a user friendly manner.
August 21, 2006 12:24 PM
Unknown said…
You could also use a service like handsetdetection.com
September 03, 2008 9:42 PM
Post a Comment

Popular posts from this blog

Working with double quotes (") in VB.Net

String manipulation in VB2005 is fairly simple. However, things can get a little tricky with the double quote character. How do you look for it in a string? How can you insert into a string? How do you remove it from a string? These are questions that may lead to confusion if you don't know what you're looking for. Ironically enough, in VB the double quote can also be used as an escape character when searching for it in a string. For example: Dim strTest As String strTest = """123""" 'Displays "123" (double quotes appear in the final result) strTest = """""123""" 'Displays ""123" (double quotes appear in the final result) strTest = "test\""test" 'Displays test\"test strTest = "test""test" 'Displays test"test In cases where you want to insert a double quote character, simply reference it unicode character designation, ch
Read more

Using VB Script to display part of an IP address

Q: How can I use VB Script to display the first 3 octets in a TCP/IP address? A: Since IP addresses are not fixed length, you will have to count the number of separators before you can extract the octets. With that said, listed below is the sample VB Script code. strIP = inputbox("Enter an IP Address for testing to extract the first 3 Octets:") intLastDecimal = 1 For intCounter = 1 to 3 intLastDecimal = InStr(intLastDecimal, strIP, ".") + 1 Next iNewLength = intLastDecimal-2 strNewIP = Left(strIP, iNewLength ) MsgBox "strNewIP=" & strNewIP To run this code, simply copy and paste it into a flat file and name it with a .VBS extension. For more resources on VB Scripting, please visit the following links: http://msdn2.microsoft.com/en-us/library/3ca8tfek.aspx http://msdn2.microsoft.com/en-us/library/ms974570.aspx http://www.w3schools.com/vbscript/vbscript_ref_functions.asp
Read more

Sep '19 Announcements

Listed below are announcements of developer events local and regional to the Cleveland area.  In addtion there are links to job openings and videos of past presentations. Local Events: Oct 1: ONSQL-Cleveland ( https://www.meetup.com/Ohio-North-SQL-Server-User-Group-Cleveland/ ) Oct 16: Hudson Software Craftsmanship Group ( https://www.meetup.com/Hudson-Software-Craftsmanship-Meetup/ ) Oct 24: Cleveland C#/VB.Net User Group ( https://www.meetup.com/Cleveland-C-VB-Net-User-Group/ ) Regional Events: Oct 1: ONSQL-Cleveland ( https://www.meetup.com/Ohio-North-SQL-Server-User-Group-Cleveland/ ) Oct 16: Hudson Software Craftsmanship Group ( https://www.meetup.com/Hudson-Software-Craftsmanship-Meetup/ ) Oct 24: Cleveland C#/VB.Net User Group ( https://www.meetup.com/Cleveland-C-VB-Net-User-Group/ ) Job Openings: TekSystems:  https://www.teksystems.com/it-jobs Inedo:  https://inedo.com/company/career-culture Video: Please subscribe to  https://www.youtube.com/channel/UCU4ffaIzhsvMr_cCt9kjQMw  t
Read more