How to use ExtLogin control?

Dec 2, 2009 at 6:07 PM

Hi,

I am not able to use ExtLogin control.

Actualy, when login_LoginClicked  event executes code which sets custom Principal to Thread.CurrentPrincipal, its not redirecting to requested page.

Protected Sub login_LoginClicked(ByVal sender As Object, ByVal e As ExtExtenders.LoginEventArgs) Handles login.LoginClicked

        Dim Username As String = e.username
        Dim Password As String = e.password

        

Dim currentdomain.SetPrincipalPolicy(PrincipalPolicy.NoPrincipal)

 

<font size="2" color="#0000ff"><font size="2" color="#0000ff">

Thread.CurrentPrincipal =

</font></font>
<font size="2" color="#0000ff">

 

</font>

currentdomain As AppDomain = Thread.GetDomainDim oldprincipal As IPrincipal = Thread.CurrentPrincipalMe

 

Try <font size="2">

 

</font>

If Not TypeOf oldprincipal Is BusinessPrincipal Then

		currentdomain.SetThreadPrincipal(Me)
	End If 
Catch 
 '
<font size="2"></font>
End Try 
mIdentity = BusinessIdentity.LoadIdentity(username, password)
<font size="2"></font>
Response.Redirect("Default.aspx?")
End sub

 Please suggest or give me a working example.