<%@LANGUAGE="VBSCRIPT"%> <% 'Make a transaction dispatcher instance Dim tNGs: Set tNGs = new tNG_dispatcher tNGs.Init "" %> <% 'Start log out user Set logout = new tNG_Logout logout.setLogoutType "link" logout.Execute 'End log out user %> <% ' Start trigger Dim formValidation: Set formValidation = new tNG_FormValidation formValidation.Init formValidation.addField "kt_login_user", true, "text", "", "", "", "" formValidation.addField "kt_login_password", true, "text", "", "", "", "" tNGs.prepareValidation formValidation ' End trigger %> <% Dim PageSections__Var PageSections__Var = "Site Map" If (Request.QueryString("SectionName") <> "") Then PageSections__Var = Request.QueryString("SectionName") End If %> <% Dim PageSections Dim PageSections_cmd Dim PageSections_numRows Set PageSections_cmd = Server.CreateObject ("ADODB.Command") PageSections_cmd.ActiveConnection = MM_Pages_STRING PageSections_cmd.CommandText = "SELECT SectionID, SectionSort, SectionName FROM PagesNames WHERE SectionName NOT LIKE ? ORDER BY SectionSort ASC" PageSections_cmd.Prepared = true PageSections_cmd.Parameters.Append PageSections_cmd.CreateParameter("param1", 200, 1, 255, PageSections__Var) ' adVarChar Set PageSections = PageSections_cmd.Execute PageSections_numRows = 0 %> <% Dim Page__MMColParam Page__MMColParam = "Home page" If (Request.QueryString("Page") <> "") Then Page__MMColParam = Request.QueryString("Page") End If %> <% Dim Page Dim Page_cmd Dim Page_numRows Set Page_cmd = Server.CreateObject ("ADODB.Command") Page_cmd.ActiveConnection = MM_Pages_STRING Page_cmd.CommandText = "SELECT PageID, PageSectionID, PageStatus, PageRank, PageName, PageTitle, PageHead, PageImage, PageDoc, PageDesc, PageDesc1, PageDesc2, PageDesc3 FROM WebPages WHERE PageName = ? ORDER BY PageRank ASC" Page_cmd.Prepared = true Page_cmd.Parameters.Append Page_cmd.CreateParameter("param1", 200, 1, 255, Page__MMColParam) ' adVarChar Set Page = Page_cmd.Execute Page_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 PageSections_numRows = PageSections_numRows + Repeat1__numRows %> <% 'Make a login transaction instance Dim loginTransaction: Set loginTransaction = new tNG_login loginTransaction.init MM_Find_product_STRING tNGs.addTransaction loginTransaction 'Register triggers loginTransaction.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "kt_login1") loginTransaction.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation) loginTransaction.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "{kt_login_redirect}") ' Add columns loginTransaction.addColumn "kt_login_user", "STRING_TYPE", "POST", "kt_login_user", "" loginTransaction.addColumn "kt_login_password", "STRING_TYPE", "POST", "kt_login_password", "" loginTransaction.addColumn "kt_login_rememberme", "CHECKBOX_1_0_TYPE", "POST", "kt_login_rememberme", "0" 'End of login transaction instance %> <% 'Execute all the registered transactions tNGs.executeTransactions %><% 'Get the transaction recordset Dim rscustom Dim rscustom_numRows Set rscustom = tNGs.getRecordset("custom") rscustom_numRows = 0 %> MayFlower Hunting Safaris Administration <% Response.Write tNGs.displayValidationRules()%>

<% While ((Repeat1__numRows <> 0) AND (NOT PageSections.EOF)) %> &PageID=<%=(PageSections.Fields.Item("SectionID").Value)%>" title=""><%=(PageSections.Fields.Item("SectionName").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 PageSections.MoveNext() Wend %> Client login

<% ' Show If User is Logged In (region1) Set isLoggedIn = new tNG_UserLoggedIn isLoggedIn.Init MM_Find_product_STRING ' Grand Levels: Level isLoggedIn.addLevel "Admin" If isLoggedIn.Execute() Then %>

<%= Session("kt_PersonName") %>, you are logged in..

If you are done updating the website.. - logout here »

Go to the Administrator's home page of the website.. - click here »

<% End If ' End Show If User Is Logged In (region1) %>

Please note:

This facility is only available for the website administrator and registered clients!

Login

Please note: This facility is only available for the website administrator and registered clients!

<% Response.Write tNGs.getLoginMsg() %> <% Response.Write tNGs.getErrorMsg() %>

« previous page

<% PageSections.Close() Set PageSections = Nothing %> <% Page.Close() Set Page = Nothing %>