<%@ language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // CMS - XS ' // Copyright 2004 Dimac Development/Duplo AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// tUserName = Trim(Request.Form("Username")) tPassword = Trim(Request.Form("Password")) ' --------------------------------------------------------- ' // ' --------------------------------------------------------- If (tUserName <> AdminUserName) OR (tPassword <> AdminPassword) Then ' Session("ValidUser") = "FALSE" ' Response.Redirect("invalid.asp") End If Session("User_ID") = 1 Session("User_Name") = "Admin User" Session("User_Type") = 5 Session("InAdmin") = "TRUE" Session("ValidAdminUser") = "TRUE" Session("DocID") = 0 ' --------------------------------------------------------- response.redirect("../Default.asp") %>