<%@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 "PersonEmail", true, "text", "email", "", "", "" tNGs.prepareValidation formValidation ' End trigger %> <% 'start Trigger_ForgotPassword_Email trigger 'remove this line if you want to edit the code by hand Function Trigger_ForgotPassword_Email (ByRef tNG) Dim emailObj: Set emailObj = new tNG_Email emailObj.Init tNG emailObj.setFrom "{KT_defaultSender}" emailObj.setTo "{PersonEmail}" emailObj.setCC "" emailObj.setBCC "" emailObj.setSubject "Forgot password email" 'FromFile method emailObj.setContentFile "includes/mailtemplates/forgot.html" emailObj.setEncoding "ISO-8859-1" emailObj.setFormat "HTML/Text" emailObj.setImportance "Normal" Set Trigger_ForgotPassword_Email = emailObj.Execute() End Function 'end Trigger_ForgotPassword_Email trigger %> <% 'start Trigger_ForgotPasswordCheckEmail trigger 'remove this line if you want to edit the code by hand Function Trigger_ForgotPasswordCheckEmail(ByRef tNG) Set Trigger_ForgotPasswordCheckEmail = Trigger_ForgotPassword_CheckEmail(tNG) End Function 'end Trigger_ForgotPasswordCheckEmail 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 %> <% ' Make an update transaction instance Dim forgotpass_transaction: Set forgotpass_transaction = new tNG_update forgotpass_transaction.init MM_Find_product_STRING tNGs.addTransaction forgotpass_transaction ' Register triggers forgotpass_transaction.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Update1") forgotpass_transaction.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation) forgotpass_transaction.registerTrigger Array("BEFORE", "Trigger_ForgotPasswordCheckEmail", 20) forgotpass_transaction.registerTrigger Array("AFTER", "Trigger_ForgotPassword_Email", 1) forgotpass_transaction.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "{kt_login_redirect}") ' Add columns forgotpass_transaction.setTable "Users" forgotpass_transaction.addColumn "PersonEmail", "STRING_TYPE", "POST", "PersonEmail" forgotpass_transaction.setPrimaryKey "PersonEmail", "STRING_TYPE", "POST", "PersonEmail" %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 PageSections_numRows = PageSections_numRows + Repeat1__numRows %> <% 'Execute all the registered transactions tNGs.executeTransactions %> <% 'Get the transaction recordset Dim rsUsers Dim rsUsers_numRows Set rsUsers = tNGs.getRecordset("Users") rsUsers_numRows = 0 %> MayFlower Hunting Safaris Administration information request <% 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) %>

Administrator information request

This application can send you the information you require via the email address you supplied in the registration info,

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

« previous page

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