Estou tendo problemas em enviar msgs em cdsys, tendo em vista que não consigo setar em modo html, segue o meu código abaixo, peço ajuda dos srs. para a solução :
str_usr = request("usuario")
Dim sql Dim rs Dim Conn
Connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Sites\content\t\h\a\thanuz\bd\depile_cadastro.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.open Connstring
sql = " SELECT * FROM USUARIO"&_ " WHERE usuario = '" & str_usr & "' "
rs.open sql, Conn
if rs.eof then response.write("<script>alert('O usuário digitado, é inválido!');</script>") response.write("<script>location.href='remenber.asp';</script>") response.End() end if
if not rs.bof then if rs("usuario") = str_usr then Dim objEmail Dim strBody
rec_usr = rs("usuario") rec_pas = rs("senha")
strBody = "<html>"&_ "<head></head><body>Recuperação de dados de acesso :<br><br><br>"&_ "Login = '" & rec_usr & "'" &_ "Senha = '" & rec_pas & "'" &_ "<br><br><br></body></html>"
Set objEmail = CreateObject("CDO.Message") objEmail.From = "xxx@xxx.com" objEmail.To = rs("email") objEmail.Subject = "Lembrete de senha" objEmail.TextBody = strBody With objEmail.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "thanuz@brinkster.net" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With objEmail.Send Set objEmail = Nothing end if end if
