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.
