<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init ""
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
formValidation.addField "email", 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 "{email}"
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
%>
<%
' Make an update transaction instance
Dim forgotpass_transaction: Set forgotpass_transaction = new tNG_update
forgotpass_transaction.init MM_sescorsql_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 "email", "STRING_TYPE", "POST", "email"
forgotpass_transaction.setPrimaryKey "email", "STRING_TYPE", "POST", "email"
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rsusers
Dim rsusers_numRows
Set rsusers = tNGs.getRecordset("users")
rsusers_numRows = 0
%>
Forgot Password Page
<% Response.Write tNGs.displayValidationRules()%>
<%
Response.Write tNGs.getErrorMsg()
%>