Jump to content
Fórum Script Brasil
  • 0

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


Caio Rebello
 Share

Question

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 protected]"
objConfig.Fields.Item(sch & "sendpassword") ) = "senha"
objConfig.Fields.Update

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
objMessage.From = "[email protected]" 
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 to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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.

Edited by Caio Rebello
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...