Public Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As _ System.EventArgs) Dim sUserID As String Dim sPassword As String Dim sAuthCookie As String
'External user, take the values from the Login form sUserid = system.Convert.ToString(Me.txtUserID.Value) sPassword = system.Convert.ToString(Me.txtPassword.Value)
adoRS = oBetaUser.LoginEx(sUserID, sPassword)
If adoRS.recordcount = 1 Then 'login success - get a session adoRS = osSession.GetNewSession _ (adoRS("BetaSiteID").Value.ToString().ToInt32())
If Not adoRS Is Nothing Then If adoRS.Recordcount ＞ 0 Then adoRS.movefirst()
'Set the authentication cookie using the SID sAuthCookie = adoRS("SID").Value.ToString()
'use ASP+ authentication to authenticate the user, If Instr(CookieAuthentication.GetRedirectUrl _ (sAuthCookie, True), "default.aspx") ＞ 0 Then CookieAuthentication.SetAuthCookie(sAuthCookie, True) Response.Redirect(system.Convert.ToString( _ oSiteUser.GlobalPath) & "Home.aspx") Else CookieAuthentication.RedirectFromLoginPage( _ sAuthCookie, True) End If Else 'login failed Response.Redirect("LoginFailed.aspx") End If Else 'login failed Response.Redirect("LoginFailed.aspx") End If Else 'login failed Response.Redirect("LoginFailed.aspx") End If End Sub
