Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	Dim m_str_LOGON_USER As String
	Dim m_int_start As Integer
	m_int_start = Request.ServerVariables("LOGON_USER").LastIndexOf("\\")
	m_str_LOGON_USER = Request.ServerVariables("LOGON_USER").Substring(m_int_start + 1)
	FormsAuthentication.RedirectFromLoginPage(m_str_LOGON_USER, False)
End Sub