Hi Michael,
Sure, I followed the tutorial in http://www.adefwebserver.com/DotNetNukeHELP/NavigateURL/
I entered a key in my CheckItem module as "Inventory" and then at the DNN Login ascx page (Desktop Modules/authentication modules/DNN/Login), after the enter button is click, I wrote smth like this:
Response.Redirect(Globals.NavigateURL(PortalSettings.ActiveTab.TabID, "Inventory", "mid=" & Cstr(ModuleID)))
Thereafter, the CheckItem module cannot be accessed. and after the login button has been clicked, it is beenn directed to a blank page. Am I doing this the right way? Please advise. Thanks!
Details of the codes:
Private Sub cmdLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdLogin.ClickIf (UseCaptcha And ctlCaptcha.IsValid) OrElse (Not UseCaptcha) Then
Dim loginStatus As UserLoginStatus = UserLoginStatus.LOGIN_FAILUREDim objUser As UserInfo = UserController.ValidateUser(PortalId, txtUsername.Text, txtPassword.Text, "DNN", txtVerification.Text, PortalSettings.PortalName, IPAddress, loginStatus)Dim authenticated As Boolean = Null.NullBooleanDim message As String = Null.NullStringIf loginStatus = UserLoginStatus.LOGIN_USERNOTAPPROVED Then
'Check if its the first time logging in to a verified site
If PortalSettings.UserRegistration = PortalRegistrationType.VerifiedRegistration Then
If Not rowVerification1.Visible Then
'Display Verification Rows so User can enter verification code
rowVerification1.Visible =
True
rowVerification2.Visible =
True
message =
"EnterCode"
Else
If txtVerification.Text <> "" Then
message =
"InvalidCode"
Else
message =
"EnterCode"
End If
End If
Else
message =
"UserNotAuthorized"
End If
Else
authenticated = (loginStatus <> UserLoginStatus.LOGIN_FAILURE)
End If
'Raise UserAuthenticated Event
eventArgs.Authenticated = authenticated
eventArgs.Message = message
OnUserAuthenticated(eventArgs)
Dim eventArgs As UserAuthenticatedEventArgs = New UserAuthenticatedEventArgs(objUser, txtUsername.Text, loginStatus, "DNN")Response.Redirect(Globals.NavigateURL(PortalSettings.ActiveTab.TabID, "queryinventory", "mid=" & CStr(ModuleId)))