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.
Pergunta
Caio Rebello
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
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.