Automatically login to DNN after registration

Leave a comment

Public Sub AutomaticLogin(ByVal userName As String)
Dim objUserInfo As UserInfo = UserController.GetUserByName(PortalId, userName)
UserController.UserLogin(PortalId, objUserInfo, PortalSettings.PortalName, Request.UserHostAddress, False)
Response.Redirect("/Home.aspx")
End Sub
Public Sub AutomaticLogin(ByVal userName As String)

Dim objUserInfo As UserInfo = UserController.GetUserByName(PortalId, userName)

UserController.UserLogin(PortalId, objUserInfo, PortalSettings.PortalName, Request.UserHostAddress, False)

Response.Redirect("/Home.aspx")

End Sub

Advertisements

iPad for every one

Leave a comment