Peguei aqui no forum um código de envio de senha para quem se esqueceu da mesma. Porém no tópico não tem nenhuma fincalização que se possa entender. Eu tentei de tudo e só da erro de página não pode ser exibida. Veja como esta o codigo.
<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.