Public Function GetBrowser() As String
Dim result as String 
Dim bc As System.Web.HttpBrowserCapabilities
bc = System.Web.HttpContext.Current.Request.Browser 
result = bc.Type & " " & bc.Browser & " " & bc.Version 
return result
End Function

Public Function GetServerVariables() As String
Dim sReturn as String
sReturn = ""  
For i as int32=0 to System.Web.HttpContext.Current.Request.ServerVariables.Count-1
sReturn=System.Web.HttpContext.Current.Request.ServerVariables.Keys(i).ToString & ": " & System.Web.HttpContext.Current.Request.ServerVariables.Item(i).ToString() & " - " 
Next i 
Return sReturn 
End Function 

=Code.GetBrowser()

=Code.GetServerVariables()

                        <CodeGroup
                                class="UnionCodeGroup"
                                version="1"
                                PermissionSetName="Execution"
                                Name="Report_Expressions_Default_Permissions"
                                Description="This code group grants default permissions for code in report expressions and Code element. ">
                            <IMembershipCondition
                                    class="StrongNameMembershipCondition"
                                    version="1"
                                    PublicKeyBlob="0024000004800000940000000602000000240000525341310004000001000100512C8E872E28569E733BCB123794DAB55111A0570B3B3D4DE3794153DEA5EFB7C3FEA9F2D8236CFF320C4FD0EAD5F677880BF6C181F296C751C5F6E65B04D3834C02F792FEE0FE452915D44AFE74A0C27E0D8E4B8D04EC52A8E281E01FF47E7D694E6C7275A09AFCBFD8CC82705A06B20FD6EF61EBBA6873E29C8C0F2CAEDDA2"
                            />
                        </CodeGroup>