movil archivos - Soulsmakers

SABER SI UN DISPOSITIVO ES MOVIL

Hola a todos. Bueno aqui os traigo un poco de codigo para saber si el dispositivo que esta conectado a nuestra web es un movil o no.

El codigo que aqui pongo esta en la siguiente URL por si quereis ver el ejemplo en vuestros moviles. Con clic AQUI te manda a la URL y si no este es el enlace.

http://soulsmakers.com/Ejemplos/EsMovil.aspx (Recuerda respetar las mayusculas y las minusculas)

si bien el codigo es sencillo.

hago un copy paste tal cual esta.

 Dim style = "None"
       If Request.Browser.IsMobileDevice = True Then
           style = "Suift"
       End If
       Me.Response.Write("<div id=" & style & ">Navegador:" & Request.Browser.Browser & "</div></br>")
       Me.Response.Write("<div id=" & style & ">EsMovil:" & Request.Browser.IsMobileDevice & "</div></br>")
       Me.Response.Write("<div id=" & style & ">Modelo:" & Request.Browser.MobileDeviceModel & "</div></br>")
       Me.Response.Write("<div id=" & style & ">Plataforma:" & Request.Browser.Platform & "</div></br>")
       Me.Response.Write("<div id=" & style & ">User Agent:" & Request.UserAgent & "</div></br>")

Dim style = "None"

If Request.Browser.IsMobileDevice = True Then

style = "Suift"

End If

Me.Response.Write("<div id=" & style & ">Navegador:" & Request.Browser.Browser & "</div></br>")

Me.Response.Write("<div id=" & style & ">EsMovil:" & Request.Browser.IsMobileDevice & "</div></br>")

Me.Response.Write("<div id=" & style & ">Modelo:" & Request.Browser.MobileDeviceModel & "</div></br>")

Me.Response.Write("<div id=" & style & ">Plataforma:" & Request.Browser.Platform & "</div></br>")

Me.Response.Write("<div id=" & style & ">User Agent:" & Request.UserAgent & "</div></br>")

Quiero aclarar que suift es un style (estilo) dentro del form, de tal manera que si es movil incremento el tamaño de letra.

en mi caso el resultado es el siguiente