<%@language="vbscript" codepage="1252"%> <crossmidia> <% dim usr, mail, Mailer, rs, sql usr = request.form("nuser") mail = request.form("email") lixo = array("'","="," or "," and ","\","/",">","<","%") for i=0 to ubound(lixo) usr = replace(usr,lixo(i),"") mail = replace(mail,lixo(i),"") next if usr <> empty and mail <> empty then sql = "SELECT * FROM usuarios_comuns WHERE usuario='"&usr&"' AND email='"&mail&"'" call AbreCon set rs=conexao.execute(sql) if rs.eof then response.Redirect("rec_senha.asp?erro=1") else set Mailer = server.CreateObject("persits.mailsender") Mailer.isHTML = true Mailer.Host = "localhost" Mailer.From = "webmaster@crossmidia.inf.br" Mailer.MailFrom = "webmaster@crossmidia.inf.br" Mailer.FromName = "Webmaster - Crossmidia" Mailer.AddAddress ""&mail&"" Mailer.Subject = "Dados de acesso - Crossmidia" Mailer.Body = "
" Mailer.Body = Mailer.Body & "

Crossmidia

" Mailer.Body = Mailer.Body & "

Olá, você solicitou seus dados de acesso para a área de assinantes do site Crossmidia. Agora são "&formatdatetime((now),4)&".

" Mailer.Body = Mailer.Body & "

Seguem abaixo seus dados de acesso:

" Mailer.Body = Mailer.Body & "" Mailer.Body = Mailer.Body & "

Clique aqui para acessar o site

" Mailer.Body = Mailer.Body & "
Esta mensagem foi enviada devido a uma solicitação feita no site de notícias Crossmidia, e interessa somente ao seu destinatário. Se você não é o titular desta conta ou não solicitou tal informação, pedimos que ignore estes dados e entre em contato conosco imediatamente: crossmidia@crossmidia.com
" Mailer.Send If Err <> 0 Then Response.Write "Erro encontrado: " & Err.Description else response.Redirect "rec_senha.asp?status=mailOK" End If Set Mailer = Nothing end if end if %>

Área de assinantes

<% statusMsg = request.QueryString("status") if statusMsg = "mailOK" then response.write "

E-mail enviado

" response.write "

Verifique seu e-mail para recuperar sua senha.

" else response.write "

Recuperar senha

" dim msg msg = request.querystring("erro") if msg = 1 then response.write "

Seu nome de usuário não coincide com o e-mail cadastrado. Tente novamente

" else response.write "

Entre com seu e-mail e nome de usuário abaixo - devem ser iguais ao seu cadastro

" end if %>
Usuário   |   E-mail   |  
<%end if%>