ASP pages appear Blank (RESOLVED)

<%@ CodePage=1252 %> <% 'Include Common Files @1-C42A9701 %> <!-- #INCLUDE VIRTUAL="/Common.asp"--> <!-- #INCLUDE VIRTUAL="/Cache.asp" --> <!-- #INCLUDE VIRTUAL="/Template.asp" --> <!-- #INCLUDE VIRTUAL="/Sorter.asp" --> <!-- #INCLUDE VIRTUAL="/Navigator.asp" --> <% 'End Include Common Files  'Initialize Page @1-151E705B ' Variables Dim PathToRoot, ScriptPath, TemplateFilePath Dim FileName Dim Redirect Dim IsService Dim Tpl, HTMLTemplate Dim TemplateFileName Dim ComponentName Dim PathToCurrentPage Dim Attributes  ' Events Dim CCSEvents Dim CCSEventResult  ' Page controls Dim Login Dim ChildControls  Response.ContentType = CCSContentType IsService = False Redirect = "" TemplateFileName = "enter2.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./" FileName = "enter2.asp" PathToRoot = "./" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) TemplateFilePath = ScriptPath 'End Initialize Page  'Initialize Objects @1-9FD27A81 BindEvents "Page" CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeInitialize", Nothing)  Set Attributes = New clsAttributes Attributes("pathToRoot") = PathToRoot  ' Controls Set Login = new clsRecordLogin  ' Events %> <!-- #INCLUDE VIRTUAL="enter2_events.asp" --> <% BindEvents Empty  CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects  'Execute Components @1-6AA0DE03 Login.Operation 'End Execute Components  'Go to destination page @1-6D35F4FD If NOT ( Redirect = "" ) Then     UnloadPage     Response.Redirect Redirect End If 'End Go to destination page  'Initialize HTML Template @1-2E9DB4BC CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing) Set HTMLTemplate = new clsTemplate Set HTMLTemplate.Cache = TemplatesRepository HTMLTemplate.LoadTemplate TemplateFilePath & TemplateFileName HTMLTemplate.SetVar "@CCS_PathToRoot", PathToRoot Set Tpl = HTMLTemplate.Block("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing) 'End Initialize HTML Template  'Show Page @1-BD271846 Attributes.Show HTMLTemplate, "page:" Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _     Array(Login)) ChildControls.Show Dim MainHTML HTMLTemplate.Parse "main", False If IsEmpty(MainHTML) Then MainHTML = HTMLTemplate.GetHTML("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeOutput", Nothing) If CCSEventResult Then Response.Write MainHTML 'End Show Page  'Unload Page @1-CB210C62 UnloadPage Set Tpl = Nothing Set HTMLTemplate = Nothing 'End Unload Page  'UnloadPage Sub @1-72CE9F3B Sub UnloadPage()     CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)     Set CCSEvents = Nothing     Set Attributes = Nothing     Set Login = Nothing End Sub 'End UnloadPage Sub  Class clsRecordLogin 'Login Class @2-D3C99874  'Login Variables @2-64915D8B      ' Public variables     Public ComponentName     Public HTMLFormAction     Public PressedButton     Public Errors     Public FormSubmitted     Public EditMode     Public Visible     Public Recordset     Public TemplateBlock     Public Attributes      Public CCSEvents     Private CCSEventResult      Public InsertAllowed     Public UpdateAllowed     Public DeleteAllowed     Public ReadAllowed     Public DataSource     Public Command     Public ValidatingControls     Public Controls      ' Class variables     Dim Button_DoLogin     Dim login     Dim password     Dim autoLogin 'End Login Variables  'Login Class_Initialize Event @2-43394883     Private Sub Class_Initialize()          Visible = True         Set Errors = New clsErrors         Set CCSEvents = CreateObject("Scripting.Dictionary")         Set Attributes = New clsAttributes         InsertAllowed = False         UpdateAllowed = False         DeleteAllowed = False         ReadAllowed = True         Dim Method         Dim OperationMode         OperationMode = Split(CCGetFromGet("ccsForm", Empty), ":")         If UBound(OperationMode) > -1 Then              FormSubmitted = (OperationMode(0) = "Login")         End If         If UBound(OperationMode) > 0 Then              EditMode = (OperationMode(1) = "Edit")         End If         ComponentName = "Login"         Method = IIf(FormSubmitted, ccsPost, ccsGet)         Set Button_DoLogin = CCCreateButton("Button_DoLogin", Method)         Set login = CCCreateControl(ccsTextBox, "login", Empty, ccsText, Empty, CCGetRequestParam("login", Method))         login.Required = True         Set password = CCCreateControl(ccsTextBox, "password", Empty, ccsText, Empty, CCGetRequestParam("password", Method))         password.Required = True         Set autoLogin = CCCreateControl(ccsCheckBox, "autoLogin", Empty, ccsBoolean, DefaultBooleanFormat, CCGetRequestParam("autoLogin", Method))         Set ValidatingControls = new clsControls         ValidatingControls.addControls Array(login, password, autoLogin)     End Sub 'End Login Class_Initialize Event  'Login Class_Terminate Event @2-0C5D276C     Private Sub Class_Terminate()         Set Errors = Nothing         Set Attributes = Nothing     End Sub 'End Login Class_Terminate Event  'Login Validate Method @2-B9D513CF     Function Validate()         Dim Validation         ValidatingControls.Validate         CCSEventResult = CCRaiseEvent(CCSEvents, "OnValidate", Me)         Validate = ValidatingControls.isValid() And (Errors.Count = 0)     End Function 'End Login Validate Method  'Login Operation Method @2-3EDC8AC1     Sub Operation()         If NOT ( Visible AND FormSubmitted ) Then Exit Sub          If FormSubmitted Then             PressedButton = "Button_DoLogin"             If Button_DoLogin.Pressed Then                 PressedButton = "Button_DoLogin"             End If         End If         Redirect = FileName & ""         If Validate() Then             If PressedButton = "Button_DoLogin" Then                 If NOT Button_DoLogin.OnClick() Then                     Redirect = ""                 Else                     Redirect = "memberpage.asp?" & CCGetQueryString("QueryString", Array("ccsForm"))                                                  End If             End If         Else             Redirect = ""         End If     End Sub 'End Login Operation Method  'Login Show Method @2-EBF3B32F     Sub Show(Tpl)          If NOT Visible Then Exit Sub          EditMode = False         HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "Login" & IIf(EditMode, ":Edit", ""))         Set TemplateBlock = Tpl.Block("Record " & ComponentName)         If TemplateBlock is Nothing Then Exit Sub         TemplateBlock.Variable("HTMLFormName") = ComponentName         TemplateBlock.Variable("HTMLFormEnctype") ="application/x-www-form-urlencoded"         Set Controls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _             Array(login, password, autoLogin, Button_DoLogin))         If Not FormSubmitted Then         End If         If FormSubmitted Then             Errors.AddErrors login.Errors             Errors.AddErrors password.Errors             Errors.AddErrors autoLogin.Errors             With TemplateBlock.Block("Error")                 .Variable("Error") = Errors.ToString()                 .Parse False             End With         End If         TemplateBlock.Variable("Action") = IIF(CCSUseAmps, Replace(HTMLFormAction, "&", CCSAmps), HTMLFormAction)          CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)         If Visible Then              Attributes.Show TemplateBlock, "Login" & ":"             Controls.Show         End If     End Sub 'End Login Show Method  End Class 'End Login Class @2-A61BA892   %>