<% Dim LostPassword__EmailParam LostPassword__EmailParam = "adm@sensocar.com.br" If (Request.Form("EmailAddress") <> "") Then LostPassword__EmailParam = Request.Form("EmailAddress") End If %> <% Dim LostPassword Dim LostPassword_numRows Set LostPassword = Server.CreateObject("ADODB.Recordset") LostPassword.ActiveConnection = MM_connSensocar_STRING LostPassword.Source = "SELECT UserName, UserPassword FROM Users WHERE UserEmail = '" + Replace(LostPassword__EmailParam, "'", "''") + "'" LostPassword.CursorType = 0 LostPassword.CursorLocation = 2 LostPassword.LockType = 1 LostPassword.Open() LostPassword_numRows = 0 %> <% ' CDONTS (Windows NT / Windows 2000 Server) based e-mail (Begin) Dim ConfirmMessage ConfirmMessage = "" IF (NOT LostPassword.EOF) THEN set newMail = Server.CreateObject("CDONTS.NewMail.1") newMail.Send "sensocar@sensocar.com.br", CStr(Request("EmailAddress")), "Informações para acesso ao site da Sensocar", "Nome: " & LostPassword.Fields("UserName").value & vbcrlf & "Senha: " & LostPassword.Fields("UserPassword").value ConfirmMessage = "As informações para acesso ao site da Sensocar foram transmitidas para: " & cStr(Request("EmailAddress")) END IF ' CDONTS based e-mail (End) %> <% ' CDOSYS (Windows XP Pro / Windows 2003 Server) based e-mail (Begin) 'Dim ConfirmMessage 'ConfirmMessage = "" 'IF (NOT LostPassword.EOF) THEN ' set sysMail = Server.CreateObject("CDO.Message") ' sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sensocar.com.br" ' sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" ' sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" ' sysMail.Configuration.Fields.Update ' sysMail.From = "sensocar@sensocar.com.br" ' sysMail.To = CStr(Request("EmailAddress")) ' sysMail.Subject = "Informações para acesso ao site da Sensocar" ' sysMail.TextBody = "UserName: " & LostPassword.Fields("UserName").value & vbCrlf & "Password: " & LostPassword.Fields("UserPassword").value ' sysMail.Send ' ConfirmMessage = "As informações para acesso ao site da Sensocar foram transmitidas para: " & cStr(Request("EmailAddress")) 'END IF ' CDOsys based e-mail (End) %> SENSOCAR - Sistemas Automotivos de Segurança
 
 
Password
 Recovery
   
  If you forgot your password, please type in the field below the same address (e-mail) you used to register is. You will receive a message in this address containing your username and password.
  <%=ConfirmMessage%>
  E-mail
   
<% LostPassword.Close() Set LostPassword = Nothing %>