Dim s As String = ""
With Request.Browser
s &= "Browser Capabilities" & vbCrLf & "< br>"
s &= "Type = " & .Type & vbCrLf & "< br>"
s &= "Name = " & .Browser & vbCrLf & "< br>"
s &= "Version = " & .Version & vbCrLf & "< br>"
s &= "Major Version = " & .MajorVersion & vbCrLf & "< br>"
s &= "Minor Version = " & .MinorVersion & vbCrLf & "< br>"
s &= "Platform = " & .Platform & vbCrLf & "< br>"
s &= "Is Beta = " & .Beta & vbCrLf & "< br>"
s &= "Is Crawler = " & .Crawler & vbCrLf & "< br>"
s &= "Is AOL = " & .AOL & vbCrLf & "< br>"
s &= "Is Win16 = " & .Win16 & vbCrLf & "< br>"
s &= "Is Win32 = " & .Win32 & vbCrLf & "< br>"
s &= "Supports Frames = " & .Frames & vbCrLf & "< br>"
s &= "Supports Tables = " & .Tables & vbCrLf & "< br>"
s &= "Supports Cookies = " & .Cookies & vbCrLf & "< br>"
s &= "Supports VBScript = " & .VBScript & vbCrLf & "< br>"
s &= "Supports JavaScript = " & .JavaScript & vbCrLf & "< br>"
s &= "Supports Java Applets = " & .JavaApplets & vbCrLf & "< br>"
s &= "Supports ActiveX Controls = " & .ActiveXControls & vbCrLf & "< br>"
End With
Response.Write(s)
Thursday, April 30, 2009
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment