<%@ Page Language="vb" AutoEventWireup="false" Inherits="BaseClasses.Web.UI.GenericPage" %> <%@ Register Tagprefix="BaseClasses" Namespace="BaseClasses.Web.UI.WebControls" Assembly="BaseClasses" %> <%@ Import NameSpace="BaseClasses.Configuration" %>

<% If ((Me.Request.ServerVariables("SERVER_PORT") = 80) AndAlso _ CStr(LCase(ApplicationSettings.Current.GetAppSetting(ApplicationSettings.ConfigurationKey.WebServer))).StartsWith("https:") _ ) Then 'Dim strSecureURL As String = _ ' "https://" & _ ' Request.ServerVariables("SERVER_NAME") & _ ' ApplicationSettings.Current.DefaultPageUrl(Me.bcSystem.ROLE_USER.Chars(0)) 'Response.Redirect(strSecureURL) Else 'Response.Redirect(ApplicationSettings.Current.DefaultPageUrl(Me.bcSystem.ROLE_USER.Chars(0))) BaseClasses.Web.UI.BasePage.RedirectToDefaultPage(Me.Request, Me.Response) End If %>