'' asp code Generated by Basic Processor
'' Original Page Name: C:\gmTestBed\FMStocks\src\FMSWeb\ASP\_GetXMLPortfolio.asp

Imports System.Web
NameSpace FMSWeb
Public Partial class __GetXMLPortfolio : Inherits System.Web.UI.Page
   Public objAccount As New FMStocks_Bus.Account
   Dim stream As New System.IO.MemoryStream
   'verify the user is secure
   'if not inSSL() then Response.End()
   'on error resume next
   Public rs As gmRTL.DataLib.SqlClient.Recordset = Nothing
   Public AccountID As Integer = 0
   Public FullName As String = ""
   Public bIsValid As Boolean = False
   Public email As String = ""
   Public password As String = ""
   Sub WriteXML_Recordset(rs As gmRTL.DataLib.SqlClient.Recordset)
   ' UPGRADE_TODO: migrate recordset serialization
   End Sub
   Public Function inSSL() As Integer
      inSSL = IIf(HttpContext.Current.Request.ServerVariables("HTTPS") <> "off", -1, 0)
   End Function
End Class
End Namespace
