Imports CharterDotCom.CommonEntities.Library.Enumerations
Imports CharterDotCom.CommonEntities.Library.EntityWebConfig
Imports CharterDotCom.CommonEntities.Library.Common
Imports CharterDotCom.WebSite.Library
Imports CharterDotCom.Common.Util

Partial Class Visitors_Login
    Inherits CharterCMSPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim crypt As New Crypt()

        Dim verified As Boolean
        Dim username As String
        Dim password As String
        Dim payload As String

        Dim selectcusttype As String = Request.Form("selectcusttype")
        Dim custtype As String = Request.Form("custtype")

        If selectcusttype = 1
            'Response.Write("FORM!<br />")
            If custtype = "BIZ"
                Response.Redirect("~/order/Login.aspx?nopop=1")
            Else
                Response.Redirect("https://www.dev-charter.net/login/?referer=myaccount")
            End If
        Else
            'Response.Write("NO FORM!<br />")
        End If

        payload = Request.Form("Response")
        verified = crypt.VerifyAndDecryptPayload(payload)
        username = crypt.Username
        password = crypt.Password

'        For Each s As String In Request.Form.AllKeys
'            Response.Write(s & ": " & Request.Form(s) & "<br />")
'        Next
'
'        Response.Write("verified: " & verified & "<br />")
'        Response.Write("username: " & username & "<br />")
'        Response.Write("password: " & password & "<br />")
    End Sub

End Class