<% Dim EsqUsuSql, EsqUsuRs EsqUsuSql = "select * from tab_Usuarios where User_Codigo=1" set EsqUsuRs = server.createobject("adodb.recordset") EsqUsuRs.open EsqUsuSql, objconexao Dim FrmEemail Dim FrmEusuario FrmEemail=request.form("frmemail") FrmEusuario=request.form("frmusuario") %>

Sistema de Gerenciamento de Conteúdo	Balaminut Gestão do Conhecimento www.balaminut.com.br

Acesso ao Sistema

<% If FrmEemail<>"" then if FrmEemail=EsqUsuRs("User_Email") then Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.balaminut.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From="suporte@balaminut.com.br" objCDOSYSMail.To=Trim(EsqusuRs("User_Email")) objCDOSYSMail.Bcc="suporte@balaminut.com.br" objCDOSYSMail.Subject="Acesso ao Sistema do site "&EsqUsuRs("User_Razao") objCDOSYSMail.HtmlBody =""& EsqUsuRs("User_Razao") & ", " & chr(13) & "Conforme sua solicitação, seguem abaixo seu nome de usuário e senha para acesso ao Sistema:" & " " & chr(13) & "Usuário: "& EsqUsuRs("User_Usuario") & " " & chr(13) & "Senha: " & EsqUsuRs("User_Senha") & " " & chr(13) & "Atenciosamente Balaminut - Gestão do Conhecimento Fone 19 - 2105 1000 www.balaminut.com.br" objCDOSYSMail.fields.update objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write"Sua senha foi enviada para o e-mail cadastrado. " else response.write"Dados Inválidos. " end if else if FrmEUsuario=EsqUsuRs("User_Usuario") then Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.balaminut.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From="suporte@balaminut.com.br" objCDOSYSMail.To=Trim(EsqusuRs("User_Email")) objCDOSYSMail.Bcc="suporte@balaminut.com.br" objCDOSYSMail.Subject="Acesso ao Sistema do site "&EsqUsuRs("User_Razao") objCDOSYSMail.HtmlBody =""& EsqUsuRs("User_Razao") & ", " & chr(13) & "Conforme sua solicitação, seguem abaixo seu nome de usuário e senha para acesso ao Sistema:" & " " & chr(13) & "Usuário: "& EsqUsuRs("User_Usuario") & " " & chr(13) & "Senha: " & EsqUsuRs("User_Senha") & " " & chr(13) & "Atenciosamente Balaminut - Gestão do Conhecimento Fone 19 - 2105 1000 www.balaminut.com.br" objCDOSYSMail.fields.update objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write"Sua senha foi enviada para o e-mail cadastrado. " else response.write"Dados Inválidos. " end if end if %>

<% EsqUsuRs.close set EsqUsuRs = nothing %>