<%@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()%>
Home Page
609.298.8838   New Jersey's Septic Experts since 1983.
Commercial Services & Products   Residentail Services & Products   Septic System Frequently Asked Questions
About Us Client Access
Services Contact Us
Client Access
sescor sescor
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() %>
" size="32" /> <%=(tNGs.displayFieldError("tblUsers", "email"))%>

 
About Us • Services • Client Access • Contact Us
Commercial • Residential • Septic System FAQs • Site Map • Home
© State Environmental Services, Inc.