Jump to content
Fórum Script Brasil
  • 0

Cadastro Com Ativaçao Por Email


iniciante_asp
 Share

Question

Criei uma tabela com os campos: nome, login, senha, email, cidade, estado, cep, endereco, telefone, data, libera, IP, codigo; conforme arquivo cadastar.asp do sistema de cadastro com ativação por email postado neste site. Coloquei o bd na pasta Private e os arquivos restantes na pasta Htdocs. No arquivo conexao.asp não consigo acertar o path.]

alguém poderia me ajudar?

Agradecido e um abraço a todos.

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Obrigado pela resposta, mas já tentei dessa maneira.

O sevidor esta configurado assim:

Htdocs

Logfiles

Private

Os arquivos asp deste sistema estao dentro da pasta cadastro que por sua vez está dentro da pasta Htdocs.

O bd cadastro.mdb está na pasta Private.

O arquivo que chama o bd o arquivo conexao.asp está assim:

<%

Dim string

string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../private/cadastro.mdb")

Sub AbreConexao

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open string

end sub

Sub FechaConexao

Conexao.Close

Set Conexao = Nothing

End Sub

%>

Quando é preenchido o formulario, ele dá erro interno servidor, pois não consigo acertar o Path.

Ficaria muito agradecido se me orientasse, pois se eu entender uma vez, ou melhor funcionar 1 vez, com certeza aprenderei para usar nos proximos sistemas.

Link to comment
Share on other sites

  • 0

Olá,

Consegui, fazer funcionar, acertei o path. Agora para colocar o sistema de esqueci minha senha, é necessário o arquivo verifica.asp, está correto dessa maneira baseado no mesmo sistema de cadastro com chave de ativação por email?

<!--#include file="conexao.asp" -->

<%

Session("Email") = Replace(request("txtemail"),"'","")

Session("Senha") = Replace(request("txtsenha"),"'","")

SQL = "SELECT * FROM USUARIOS"

SQL = SQL & " WHERE "

SQL = SQL & " EMAIL = '"&Session("Email")&"' "

SQL = SQL & " AND "

SQL = SQL & " SENHA = '"&Session("Senha")&"' "

SET RS = Cnn.execute(SQL)

IF RS.EOF THEN

Response.Redirect("default.asp")

ELSE

SESSION("CODIGO") = RS("CODIGO")

Response.Redirect("livre2.asp")

END IF

%>

Além disso, necessito do codigo que depois de logado, quando o cliente ativa seu login pelo email, automaticamente ser enviado a ele outro email de agradecimento por ter-se cadastrado.

Mais outra observação: O script de validação de formulario desse sistema, quando é repetido o login ou email ele não avisa que o login ou email já existe, apenas aparece erro do servidor. Qual codigo poderia ser incluido na validação do formulario? Ou seria necessario fazer uma consulta no bd para ver o registro?

Um abração a todos!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...