<%
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 & ""
Subject = "" & nomesrv & " Forum Password"
mssg = "Recebeu este email porque pediu para ser lembrado da sua password"
mssg = mssg & "No fórum do portal http://www." & domain & "" & 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 & "Desculpe mas os dados que introduziu não existem." & vbCrLf & vbCrLf
mssg = mssg & "Por favor registe-se outra vez em http://www." & domain & "/foruns/register.asp" & vbCrLf
Else
mssg = mssg & " A sua password é :- " & rs("M_Password") & vbCrLf
End if
mssg = mssg & "Obrigado por usar o fórum " & nomesrv & " "
Mailer.BodyText = mssg
if Mailer.SendMail then
Response.Write " "
else Response.Write "Ocorreu um erro, contacte " & emailsrv & ". O erro foi "& Mailer.Response
end if
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
Confirmação de
Password
Um email foi enviado para si neste
momento!
<%
Else
%>
Confirmação de Password