%@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 "tedwardson@state-environmental.com"
emailObj.setSubject "State Environmental Services Client Access Password Reminder"
'WriteContent method
emailObj.setContentFile "../includes/mailtemplates/forgot.html"
emailObj.setEncoding "UTF-8"
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_sescorusers_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, "index.asp")
' Add columns
forgotpass_transaction.setTable "tblUsers"
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 rstblUsers
Dim rstblUsers_numRows
Set rstblUsers = tNGs.getRecordset("tblUsers")
rstblUsers_numRows = 0
%>
State Environmental Services
<% Response.Write tNGs.displayValidationRules()%>
If you've forgotten your login id or password, enter your email address below, and we'll email your account login information to you.
<%
Response.Write tNGs.getErrorMsg()
%>