<% email = Trim(Request("email")) if Request("acao") = "enviar" then if inStr(email, "@") < 1 then query = "SELECT * FROM fornecedores WHERE empresa='" & email & "'" objreg.open query if objreg.Eof then aviso = "Empresa não cadastrada." else url = "forn_mail.asp?id=" & objreg("id") response.Redirect(url) end if else query = "SELECT * FROM fornecedores WHERE mail='" & email & "'" objreg.open query if objreg.EOF then aviso = "E-mail não encontrado." else senha = objreg("senha") nome = objreg("nome") email = objreg("mail") if nome <> "" then nome = email end if Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.supervalesupermercados.com.br"'"200.165.57.20" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cliente" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "client3" objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "cliente@supervale.com" objCDOSYSMail.To = "cliente@supervale.com"'"recepcao@supervale.com" 'objCDOSYSMail.BCc = "carneiro@domynio.com.br" objCDOSYSMail.Subject = "RECUPERAÇÃO DE SENHA SUPER VALE" corpo = corpo & "" corpo = corpo & "" corpo = corpo & "" corpo = corpo & "" corpo = corpo & "RECUPERAÇÃO DE SENHA SUPER VALE" corpo = corpo & "" corpo = corpo & "" corpo = corpo & "" corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & " " corpo = corpo & "
RECUPERAÇÃO DE SENHA SUPER VALE
Olá " & nome & ", sua senha para acessar o site do
SUPER VALE SUPERMERCADOS é: " & senha & "
" corpo = corpo & "" corpo = corpo & "" objCDOSYSMail.HtmlBody = corpo objCDOSYSMail.fields.update 'on error resume next 'objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing aviso = "Sua senha foi enviada para: " & email End if End if End if %> .: SUPERVALE SUPERMERCADOS :.
Agende

Esqueci senha
 
<% =aviso %>
 

Entre com seu e-mail de cadastro.
Se for sua primeira vez entre com o nome da empresa que representa: