<%
if Request.QueryString("mode") = "doit" then
email = request.form("email")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
Mailer.RemoteHost = "" & mailsrv & ""
Mailer.AddRecipient "","" & email & ""
Mailer.FromName = "Forum" & nomesrv & ""
Mailer.FromAddress = "" & emailsrv & ""
Mailer.Subject= "A sua password do " & nomesrv & ""
mssg = "Você recebeu este mail porque requisitou no site " & nomesrv & " que lhe fosse enviada a password do seu registo"
mssg = mssg & " " & vbCrLf & vbCrLf
strSql = "Select M_name, M_Password, M_Email from members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"
set rs = my_conn.Execute (StrSql)
if rs.EOF or rs.BOF then
mssg = mssg & "Detalhes desconhecidos." & vbCrLf & vbCrLf
mssg = mssg & "Registe-se novamente na página http://www." & domain & "/forum/register.asp" & vbCrLf
Else
mssg = mssg & " A sua password é :- " & rs("M_Password") & vbCrLf
End if
mssg = mssg & "Obrigado por utilizar o " & nomesrv & ""
Mailer.BodyText = mssg
if Mailer.SendMail then
Response.Write " "
else Response.Write "Aconteceu um erro no envio, informe " & emailsrv & ". O erro foi "& Mailer.Response
end if
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
Relembrar password
Deverá estar a receber um email a qualquer momento!
<%
Else
%>
Relembrar password