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 IsNot Nothing
        'If selectcusttype = 1
            If custtype = "BIZ"
                Response.Redirect("~/order/Login.aspx?nopop=1")
            Else
                ' Dev URL
                'Response.Redirect("https://www.dev-charter.net/login/?referer=myaccount")

                ' Prod URL
                'Response.Redirect("http://www.prd-aws.charter.net/login/?referer=myaccount")

                ' EngProd URL
                Response.Redirect("http://www.engprod-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