Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ivan.Teles

Lembrando senha

Por , em ASP Clássico

Recommended Posts

Ivan.Teles    23

Ivan.Teles
Postado

Utilizei esse código:

 

<!--#include file="Connections/conecta.asp" -->

<%

Dim lembrar__MMColParam

lembrar__MMColParam = "1"

If (Request.Form("email") <> "") Then

lembrar__MMColParam = Request.Form("email")

End If

%>

<%

if(Request.form("email") <> "") then lembrar__MMColParam = Request.form("email")

%>

<%

Dim lembrar

Dim lembrar_numRows

 

Set lembrar = Server.CreateObject("ADODB.Recordset")

lembrar.ActiveConnection = MM_conecta_STRING

lembrar.Source = "SELECT * FROM login WHERE email = '" + Replace(lembrar__MMColParam, "'", "''") + "'"

lembrar.CursorType = 0

lembrar.CursorLocation = 2

lembrar.LockType = 1

lembrar.Open()

 

lembrar_numRows = 0

%>

<%

lembrar.Close()

Set lembrar = Nothing

%>

<%

 

Dim var_to, EnviarMail, MsgBody

 

var_to = lembrar.Fields.Item("email").Value

 

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to

EnviarMail.From = "suporte@patimon.com.br"

EnviarMail.Subject = "Lembrete de Senha"

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body>" _

& "Olá (lembrar.Fields.Item("nome").Value),<p> o seu nome de usuário é <b>(lembrar.Fields.Item("id").Value)</b> e sua senha é: <b>(lembrar.Fields.Item("senha").Value)</b>" _& "</body>" _ //essa é a linha 45

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

 

Set EnviarMail = Nothing

 

Response.redirect "lembrar_resp.asp"

 

%>.

 

 

mas me resulta o seguinte erro:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/visanet/lembrar_senha.asp, line 45, column 29

& "Olá (lembrar.Fields.Item("nome").Value),<p> o seu nome de usuário é <b>(lembrar.Fields.Item("id").Value)</b> e sua senha é: <b>(lembrar.Fields.Item("senha").Value)</b>" _

----------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Tenta assim:"Olá" & lembrar.Fields.Item("nome").Value & ",<p> o seu nome de usuário é <b>" & lembrar.Fields.Item("id").Value & "</b> e sua senha é: <b>" & lembrar.Fields.Item("senha").Value & "</b>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

explorer deu o seguinte erro agora:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário

/visanet/lembrar_senha.asp, line 33.

 

a linha 33 é:

 

var_to = lembrar.Fields.Item("email").Value

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce destruiu o recordset antespoe istolembrar.Close()Set lembrar = Nothingno fim antes de redirecionar a pagina

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

mudei o fechamento para baixo mas me gerou este erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xd3c Thread 0xe9c DBC 0x10862d4 Jet' do Registro.

/visanet/lembrar_senha.asp, line 16

 

linha 1 a 16

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conecta.asp" -->

<%

Dim lembrar__MMColParam

lembrar__MMColParam = "1"

If (Request.QueryString("email") <> "") Then

lembrar__MMColParam = Request.QueryString("email")

End If

%>

<%

Dim lembrar

Dim lembrar_numRows

 

Set lembrar = Server.CreateObject("ADODB.Recordset")

lembrar.ActiveConnection = MM_conecta_STRING

lembrar.Source = "SELECT * FROM login WHERE email = '" + Replace(lembrar__MMColParam, "'", "''") + "'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o caminho do db esta correto??

Compartilhar este post

Link para o post
Compartilhar em outros sites

micox    2

micox
Postado

você colocou assim:& "<body>" _& "Olá (lembrar.Fields.Item("nome").Value),<p> o seu nome de usuário é <b>(lembrar.Fields.Item("id").Value)</b> e sua senha é: <b>(lembrar.Fields.Item("senha").Value)</b>" _& "</body>" _ //essa é a linha 45& "</html>"O correto para esta linha segundo o VB será:& "<body>" _& "Olá (lembrar.Fields.Item("nome").Value),<p> o seu nome de usuário é <b>(lembrar.Fields.Item("id").Value)</b> e sua senha é: <b>(lembrar.Fields.Item("senha").Value)</b>" _& "</body>" _ //essa é a linha 45& "</html>"Tenta isso que eu coloquei depois posta ae.Ah. Se achou complicado e não deu certo, tenta colocar tudo na mesma linha então:& "<body>" & "Olá (lembrar.Fields.Item("nome").Value),<p> o seu nome de usuário é <b>(lembrar.Fields.Item("id").Value)</b> e sua senha é: <b>(lembrar.Fields.Item("senha").Value)</b>" & "</body>" & "</html>"Perceba que está sem os 'underline' (_) que fazem a quebra de linha no vb

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Mas o erro esta nesta linha lembrar.

Source = "SELECT * FROM login WHERE email = '" + Replace(lembrar__MMColParam, "'", "''") + "'"

 

 

este erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xd3c Thread 0xe9c DBC 0x10862d4 Jet' do Registro.

/visanet/lembrar_senha.asp, line 16

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

explorer, agora funcionou, mas queria que você me disse olhando o código completo. como redirecionar se ele não encontrar email para uma pagina que nsem são seja a lembrar_ok.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conecta.asp" -->

<%

Dim lembrar__MMColParam

lembrar__MMColParam = "1"

If (Request.QueryString("email") <> "") Then

lembrar__MMColParam = Request.QueryString("email")

End If

%>

<%

Dim lembrar

Dim lembrar_numRows

 

Set lembrar = Server.CreateObject("ADODB.Recordset")

lembrar.ActiveConnection = MM_conecta_STRING

lembrar.Source = "SELECT * FROM login WHERE email = '" & Replace(lembrar__MMColParam, "'", "''") & "'"

lembrar.CursorType = 0

lembrar.CursorLocation = 2

lembrar.LockType = 1

lembrar.Open()

 

lembrar_numRows = 0

%>

<%

 

Dim var_to, EnviarMail, MsgBody

 

var_to = lembrar.Fields.Item("email").Value

 

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to

EnviarMail.From = "suporte@patimon.com.br"

EnviarMail.Subject = "Lembrete de Senha"

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body>" _

& "Olá " & lembrar.Fields.Item("nome").Value & ",<p> o seu nome de usuário é <b>" & lembrar.Fields.Item("id").Value & "</b> e sua senha é: <b>" & lembrar.Fields.Item("senha").Value & "</b>" _

& "</body>" _

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

 

Set EnviarMail = Nothing

 

Response.redirect "lembrar_ok.asp"

 

%>

<%

lembrar.Close()

Set lembrar = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito