[Resolvido] Lembrete de senha

[BrunoHP 0]

Falai tranquilo?

 

Tenho um sisteminha para lembrete de senha sendo que tem que digitar o email cadastrado no BD, bom feito isso é encaminhado um link de segurança para alterar o email o que está acontecendo é que aparece a Tag de HTML.

 

Alguem poderia mostrar aonde estou errando? Vlws!

 

'& "Cadastre nova senha.<a href=""trocasenha.asp?cod="&senha_gerada&"&cim="&user&"> Clique aqui</a>""" & pass & vbCrlf _

 

No email eu recebo assim:

 

Cadastre nova senha. <a

href="trocasenha.asp?cod=k415v7y4xisbck9hicak555iubrd9hdf&cim=321321>

Clique aqui</a>3d186804534370c3c817db0563f0e461

[augustoclaro 2]

Mostre o code que envia o e-mail, e já adiantando, mude do tipo texto para o tipo HTML.

[saloeric 1]

não falta fechar ali no fim o href com umas " ?

 

 

[Vinicius Ianni 189]

Acho que o problema são as aspas:

& "Cadastre nova senha.<a href='trocasenha.asp?cod="&senha_gerada&"&cim="&user&"'> Clique aqui</a>" & pass & vbCrlf _

[BrunoHP 0]

Código

 

<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("cim")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "xxx@blabla.org.br"
sendmail.To = email

Function GerarChave(valores)

Dim chr_Array(35)

       chr_array(0) 	=	"0"
	chr_array(1)	=	"1"
	chr_array(2)	=	"2"
	chr_array(3)	=	"3"
	chr_array(4)	=	"4"
	chr_array(5)	=	"5"
	chr_array(6)	=	"6"
	chr_array(7)	=	"7"
	chr_array(8)	=	"8"
	chr_array(9)	=	"9"
	chr_array(10)	=	"A"
	chr_array(11)	=	"B"
	chr_array(12)	=	"C"
	chr_array(13)	=	"D"
	chr_array(14)	=	"E"
	chr_array(15)	=	"F"
	chr_array(16)	=	"G"
	chr_array(17)	=	"H"
	chr_array(18)	=	"I"
	chr_array(19)	=	"J"
	chr_array(20)	=	"K"
	chr_array(21)	=	"L"
	chr_array(22)	=	"M"
	chr_array(23)	=	"N"
	chr_array(24)	=	"O"
	chr_array(25)	=	"P"
	chr_array(26)	=	"Q"
	chr_array(27)	=	"R"
	chr_array(28)	=	"S"
	chr_array(29)	=	"T"
	chr_array(30)	=	"U"
	chr_array(31)	=	"V"
	chr_array(32)	=	"W"
	chr_array(33)	=	"X"
	chr_array(34)	=	"Y"
	chr_array(35)	=	"Z"


Randomize

do while len(chave) < valores

num = chr_array(Int(35 * Rnd ))

chave = chave + num

loop


GerarChave = chave



End Function

senha_gerada = lcase(GerarChave(32))

set upd = Server.CreateObject("ADODB.Recordset")
sql_upd = "UpDate obreiro set troca_senha = '"&senha_gerada&"' WHERE emailx = '" & email & "'"
set upd = objDC.execute(sql_upd)

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login: " & vbCrlf & vbCrlf _
& "CIM: " & user & vbCrlf _
& vbCrlf & vbCrlf _
& "Cadastre nova senha.<a href='trocasenha.asp?cod="&senha_gerada&"&cim="&user&"'> Clique aqui</a>" & pass & vbCrlf _

'sendmail.Importance = 3
sendmail.Send
%>

</p>
<p class="textoNormalPreto11">A senha foi enviada para o seu e-mail <span class="textoNormalAzulBold11"><%=email%></span></p>

[augustoclaro 2]

adicione estas duas linnhas antes do send:

 

  sendmail.BodyFormat=0
  sendmail.MailFormat=0

[BrunoHP 0]

adicione estas duas linnhas antes do send:

 

  sendmail.BodyFormat=0
  sendmail.MailFormat=0

 

Ae funciono obrigado a todos pela ajuda.

 

Abraços!

[augustoclaro 2]

Que bom que funcionou!