Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Esqueci Minha Senha. Tentei Fazer O Codigo Mas Esta Dando


Caio Rebello

Pergunta

Fala galera,

To me matando aqui para conseguir configurar um script de esqueci minha senha, não consigo nem a pau configurar ele.

Peguei na internet ele pronto, porém fiz algumas adaptações, mas ele nem consegue se conectar ao banco de dados. Sempre da erro de página não pode ser exibida.

Olha página do formulario

<html>
<head>
<title>Esqueci Minha Senha</title>

<script language=JavaScript1.2>
function valida(){
var email = document.formcontato.email.value;

if ( email == '' ){
    alert('Campo email em branco.'); 
    document.formcontato.email.focus();
    return false;    }

formcontato.envia.disabled=true;
return true;
}
</SCRIPT>

     <TABLE align=center width="296">
       <TR>
         <TD class=TD width="274"><p align="center">
         
           <FORM action=teste.asp id=formcontato method=GET name=enviar>
             <font face="Verdana" size="1">E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 
           name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> 
           <BR></font></FORM></TD></TR>
</TABLE>

<p><font color="#FFFFFF" size="1" face="Verdana">1</font></p>
</body>

</html>
A página do Codigo.
<%
Option Explicit
Dim ConnectString, conn, objMessage, objConfig, strBody, login, email, Enviar, rs, pasta
pasta = "D:\hshome\jrspassa\pasta\pasta\pasta.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta&";"

Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

email = request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"'")

If rs.EOF = True Then
  Response.Write "Email inválido!"
Else
Set objConfig = Server.CreateObject("CDO.Configuration")
objConfig.Fields.Item(sch & "sendusing") = 2 
objConfig.Fields.Item(sch & "smtpauthenticate") = 1
objConfig.Fields.Item(sch & "smtpserver") ) = "mail.provedor.com.br"
objConfig.Fields.Item(sch & "smtpserverport") = 25
objConfig.Fields.Item(sch & "smtpconnectiontimeout") = 120
objConfig.Fields.Item(sch & "sendusername") = "email@provedor.com.br"
objConfig.Fields.Item(sch & "sendpassword") ) = "senha"
objConfig.Fields.Update

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
objMessage.From = "email@provedor.com.br" 
objMessage.To = rs("email")
objMessage.Subject = "teste de email"

htmlText = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")

objMessage.HTMLBody = htmlText 
On Error Resume Next
objMessage.Send 
Set objMessage = Nothing 
Set objConfig = Nothing
response.write ("Email Enviado com Sucesso") 

End If

rs.close
set rs = nothing

conn.close
set conn = nothing
%>

Alguém me ajuda.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Nossa. Essa dai era nova pra mim. Mas não sabemos de tudo né. Vivendo e aprendendo...

Agora deu certo... Havia diversos erros de digitação no codigo, por isso que não ia :unsure:

E também o caminho pro Banco de dados não tava legal. Então mudei para

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

Eu vo da uma configurada legal no código e depois se voces quiserem colocar no site esse script...

É legal ter um script configurado com o CDOSYS prontinho com usuário e senha.

ABS E VLW mesmo

Link para o comentário
Compartilhar em outros sites

  • 0

realmente é bom sempre uso duas funções multicomponentes

6 comps de email e 6 de upload...

já quanto a erros de digitação no codigo, quer ver problema...kkkk

peguei uma vez um blog que foi escrito em japonês, alem de não funcionar não da pra editar porque ficavam os quadrados da conversão do idioma... kkk um lixo..

Link para o comentário
Compartilhar em outros sites

  • 0

Bareta,

Se já ta dificil no Inglês imagine no Japonês??? :blink: :blink:

Eu fiz o código lá, se voces quiserem colocar no site script brasil....

Coloquei no rapidshare, o endereço é:

http://rapidshare.com/files/57094220/esque..._senha.zip.html

Abs a Todos.

PS: Alias, eu tive que refazer todos os códigos do cdosys porque sei la o que aconteceu com o meu hospedeiro (Eu hospedo no Ig empresas), e todos os scritps do cdo davam erro de conexão com o servidor...

Alias, já vi muita gente tendo problemas com isso, até com o Locaweb.

Editado por Caio Rebello
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...