Sistema de cadastro para usuarios

marcelonhenhe · Junho 29, 2011

estou tentando fazer um sistema de cadastro de usuarios, mas esta acontecendo o seguinte:

http://www.comerciando.com.br/site/form.asp

alguem sab onde está o erro?

Obr Marcelo

Marrabel · Junho 29, 2011

estou tentando fazer um sistema de cadastro de usuarios, mas esta acontecendo o seguinte:

http://www.comercian...r/site/form.asp

alguem sab onde está o erro?

Obr Marcelo

No form você esta chamando o seu banco de dados, sendo que será a página que vai registrar o cadastro.

<form action="teste.mdb" method="post" name="frm_cad">

No input você esta chamando a função valida_salvar() ao inves de valida_campo()

<input type="button" name="cmd_salvar" value="Salvar" onclick="valida_salvar()"/>

E no nome voce colocou o form_cad ao inves de frm_cad

if (document.form_cad.txt_nome.value == "") {

Voce colocou "name+" ao inves de "name="

<input type="reset" name+"cmd_limpar" value="Limpar"/>

E não fechou a tag <form>

Acho que é só isso.

marcelonhenhe · Junho 29, 2011

Mudei todos os errosmas mesmo assim continua sem funcionar...

mudei meu banco para dados.mdb e o coloquei dentro de uma pasta separada...

como se o link fosse ftp.site.com.br/Internet/site/dados/dados.mdb (ex)

sendo que o site fica todo na pasta Internet, eu tenho que colocar nas minhas pag buscando o banco é ../site/dados/dados.mdb ?

Marrabel · Junho 29, 2011

Mudei todos os errosmas mesmo assim continua sem funcionar...

mudei meu banco para dados.mdb e o coloquei dentro de uma pasta separada...

como se o link fosse ftp.site.com.br/Internet/site/dados/dados.mdb (ex)

sendo que o site fica todo na pasta Internet, eu tenho que colocar nas minhas pag buscando o banco é ../site/dados/dados.mdb ?

Não, no action do form você deve colocar a pagina que irá (no seu exemplo) inserir os dados inseridos no formulario para o banco de dados

Exemplo:

<form action="cadastrar.asp" method="post" name="frm_cad">

E nesta página "cadastrar.asp" por exemplo você põe os comandos INSERT para inserir no banco de dados

Pois no momento que o usuario clicar em "Salvar" ele irá pegar os dados que foram inseridos no formulário e jogar para a página "cadastrar.asp" que fará a inserção e retorna com alguma mensagem ou para outra página.

Espero ter ajudado.

marcelonhenhe · Junho 29, 2011

a pag que irá inserir é a cad.asp

mas mesmo mudando ela no form, nao funcionou.. o codigo da cad.asp é...

<body>
<%
On Error Resume Next
Dim Cn_Banco
Dim Str_nome, Str_Mail, int_Permissao, Srt_SQL
'Indica que a Variavél deve ser uma conexão ADODB para acesso ao banco de dados'
set Cn_Banco = Server.CreateObject("AdoDB.Connection")
'Linha Qual abre acesso ao Banco de Dados'
Srt_SQL = "Provider=Microssoft.Jet.0LEDB.4.0;Password='',Data Source="
Srt_SQL = Srt_SQL + cstr(Server.MapPath("../dados/dados.mdb")) + ";"

Cn_Banco.Open Srt_SQL

'Carrega as informações passadas pelo formulário'
Str_nome = Request.Form("txt_nome")
Srt_mail = Request.Form("txt_mail")
int_Permissao = Request.Form("chk_NEWS")
if trim(int_Permissao) = "" then
int_Permissao = "0"
end if

'Salva o registro no banco de dados'
Srt_SQL = "INSERT INTO Cad_Cliente (cli_nome, cli_email, clipermitirnews) values ("
Srt_SQL = Srt_SQL + "'" + Str_Nome + "','" + srt_mail + "' , '" & int_Permissao & "')"
Cn_Banco.Execute Srt_SQL

If Err.Number <> 0 Then
%>
<script language="javascript">
	alert("Ocorreu um erro ao salvar as informações!");
	history.back();
</script>
<%
Else
%>
<center>Dados Salvos com sucesso.<br/>Obrigado por se cadastrar.</center>
<center> <a href="form.asp">Voltar</a></center>
<%
End if
%>
</body>

Marrabel · Junho 29, 2011

a pag que irá inserir é a cad.asp

mas mesmo mudando ela no form, nao funcionou.. o codigo da cad.asp é...

<body>
<%
On Error Resume Next
Dim Cn_Banco
Dim Str_nome, Str_Mail, int_Permissao, Srt_SQL
'Indica que a Variavél deve ser uma conexão ADODB para acesso ao banco de dados'
set Cn_Banco = Server.CreateObject("AdoDB.Connection")
'Linha Qual abre acesso ao Banco de Dados'
Srt_SQL = "Provider=Microssoft.Jet.0LEDB.4.0;Password='',Data Source="
Srt_SQL = Srt_SQL + cstr(Server.MapPath("../dados/dados.mdb")) + ";"

Cn_Banco.Open Srt_SQL

'Carrega as informações passadas pelo formulário'
Str_nome = Request.Form("txt_nome")
Srt_mail = Request.Form("txt_mail")
int_Permissao = Request.Form("chk_NEWS")
if trim(int_Permissao) = "" then
int_Permissao = "0"
end if

'Salva o registro no banco de dados'
Srt_SQL = "INSERT INTO Cad_Cliente (cli_nome, cli_email, clipermitirnews) values ("
Srt_SQL = Srt_SQL + "'" + Str_Nome + "','" + srt_mail + "' , '" & int_Permissao & "')"
Cn_Banco.Execute Srt_SQL

If Err.Number <> 0 Then
%>
<script language="javascript">
	alert("Ocorreu um erro ao salvar as informações!");
	history.back();
</script>
<%
Else
%>
<center>Dados Salvos com sucesso.<br/>Obrigado por se cadastrar.</center>
<center> <a href="form.asp">Voltar</a></center>
<%
End if
%>
</body>

Tenta fazer assim:

Tire o onclick do input e jogue no form

<form action="cad.asp" method="post" name="frm_cad" onsubmit="valida_campos()">

e não se esqueça de fechar a tag "</form>" depois do "</table">. Talvez ele não esteja encontrando o formulário por este fato.

Espero ter ajudado.

xanburzum · Junho 29, 2011

olha este exemplo

marcelonhenhe · Junho 29, 2011

Tenta fazer assim:

Tire o onclick do input e jogue no form
<form action="cad.asp" method="post" name="frm_cad" onsubmit="valida_campos()">
e não se esqueça de fechar a tag "</form>" depois do "</table">. Talvez ele não esteja encontrando o formulário por este fato.

Espero ter ajudado.

ainda não funcionou, continua com o mesmo erro

Marrabel · Junho 30, 2011

Tenta fazer assim:

Tire o onclick do input e jogue no form
<form action="cad.asp" method="post" name="frm_cad" onsubmit="valida_campos()">
e não se esqueça de fechar a tag "</form>" depois do "</table">. Talvez ele não esteja encontrando o formulário por este fato.

Espero ter ajudado.
ainda não funcionou, continua com o mesmo erro

Você nao fechou a tag <form>

Depois do </table> faça:

</form>

E não se esqueça que para o botão Salvar seja transferido para a página que deseja ele deve ser "submit"

<input type="submit" name="cmd_salvar" value="Salvar"/>

marcelonhenhe · Junho 30, 2011

agora é a pag de cadastro que esta dando erro.

If Err.Number <> 0 Then
%>
<script language="javascript">
	alert("Ocorreu um erro ao salvar as informações!");
	history.back();
</script>
<%
Else
%>
<center>Dados Salvos com sucesso.<br/>Obrigado por se cadastrar.</center>
<center> <a href="form.asp">Voltar</a></center>
<%
End if
%>
</body>
</html>

xanburzum · Junho 30, 2011

poste o número de erro atual e linha do code.

marcelonhenhe · Junho 30, 2011

poste o número de erro atual e linha do code.

http://www.comerciando.com.br/site2/Alterasenha_action_treina.asp

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'abre_conexao'

/site2/Alterasenha_action_treina.asp, line 35

http://www.comerciando.com.br/site2/Atualizar_action_treina.asp

Microsoft VBScript compilation error '800a0400'

Expected statement

/site2/Atualizar_action_treina.asp, line 16

option explicit

^

http://www.comerciando.com.br/site2/Atualizar_form_treina.asp

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'abreconexao'

/site2/Atualizar_form_treina.asp, line 27

http://www.comerciando.com.br/site2/Esqsenha_action_treina.asp

Microsoft VBScript compilation error '800a0400'

Expected statement

/site2/Esqsenha_action_treina.asp, line 9

Option Explicit

^

http://www.comerciando.com.br/site2/Excluir_action_terina.asp

Microsoft VBScript compilation error '800a0400'

Expected statement

/site2/Excluir_action_terina.asp, line 24

Option explicit

^

http://www.comerciando.com.br/site2/Incluir_action_treina.asp

Microsoft VBScript compilation error '800a0400'

Expected statement

/site2/Incluir_action_treina.asp, line 18

Option explicit

^

http://www.comerciando.com.br/site2/Incluir_form_treina.asp

0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<1 || p==(val.length-1)) errors+=’- '+nm+’ must contain an e-mail address.\n’; } else if (test!=’R') { if (isNaN(val)) errors+=’- '+nm+’ must contain a number.\n’; if (test.indexOf('inRange’) != -1) { p=test.indexOf(':’); min=test.substring(8,p); max=test.substring(p+1); if (val

http://www.comerciando.com.br/site2/LoginCli_action_treina.asp

Microsoft VBScript compilation error '800a0400'

Expected statement

/site2/LoginCli_action_treina.asp, line 8

Option Explicit

^

http://www.comerciando.com.br/site2/Logincli_form_triena.asp

case 1 ‘login vazio response.write(“”) case 2 ‘senha vazia response.write(“”) case 3 ‘login inválido response.write(“”) case 4 ‘senha incorreta response.write(“”) case 5'se user jah logado response.write(“”) case 6 ‘ user não esta logado,por isso não tem permissão para entrar em atualização/suporte response.write(“”) end select %>

http://www.comerciando.com.br/site2/Pesquisa_action_treina.asp

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/site2/Pesquisa_action_treina.asp, line 35

response.redirect("pesquisa_form_treina.asp?msgeof=1?)

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

marcelonhenhe · Julho 1, 2011

meu formulario de login esta certo?

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<%
Select case varmsgeof

case 1 'login vazio

response.write("<script>novajan();</script>")

case 2 'senha vazia

response.write("<script>novajan();</script>")

case 3 'login inválido

response.write("<script>novajan();</script>")

case 4 'senha incorreta

response.write("<script>novajan();</script>")

case 5 'se user jah logado

response.write("<script>novajan();</script>")

case 6 ' user não esta logado,por isso não tem permissão para entrar em atualização/suporte

response.write("<script>novajan2();</script>")

end select%>

</body>
</html>

xanburzum · Julho 1, 2011

Isso normalmente significa que você criou uma variável em algum lugar em seu script, mas não defini-lo com uma instrução Dim. Mais comumente, esta abrange as constantes ADO, como adOpenForwardOnly e adLockOptimistic. Isto envolve esquecendo de incluir ADOVBS.INC,Se você não definir essas constantes e você remover Option Explicit

marcelonhenhe · Julho 2, 2011

Isso normalmente significa que você criou uma variável em algum lugar em seu script, mas não defini-lo com uma instrução Dim. Mais comumente, esta abrange as constantes ADO, como adOpenForwardOnly e adLockOptimistic. Isto envolve esquecendo de incluir ADOVBS.INC,Se você não definir essas constantes e você remover Option Explicit

Vou resolver os problemas das paginas um de cada vez... a primeira é a Alterasenha_action_treina

ele esta dando erro na linha do "Set rs=Conexao.Execute(strSQL)" no seguinte codigo

<%
'abre a conexao

Call abreconexao

'executa a instrução SQL

Set rs=Conexao.Execute(strSQL)


'fecha a conexao

Call fechaconexao

Set rs=Nothing


varLinha = 1
%>
<%
Else
%>
varLinha = 2
<%
End IF

%>

o erro é:

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/site2/Alterasenha_action_treina.asp, line 74

Mário Monteiro · Julho 3, 2011

De um reponse.write em strSQL

marcelonhenhe · Julho 4, 2011

De um reponse.write em strSQL

onde coloco o response.write?

<%
IF varSenha = varSenhaAtual AND varSenhaNova = varSenhaConfirma then

strSQL = "UPDATE Login SET TXT.Senha = '" & varSenhaNova & "' "


strSQL = strSQL & "WHERE TXT.Nome = '" & Session("Login") & "'"

%>

<imput...>

<%
'abre a conexao'

Call abreconexao

'executa a instrução SQL'

Set rs=Conexao.Execute(strSQL)


'fecha a conexao'

Call fechaconexao

Set rs=Nothing


varLinha = 1
%>
<%
Else
%>
varLinha = 2
<%
End IF

Mário Monteiro · Julho 4, 2011

antes desta linha

Set rs=Conexao.Execute(strSQL)

marcelonhenhe · Julho 4, 2011

antes desta linha

Set rs=Conexao.Execute(strSQL)

coloquei o seguinte

response.write("StrSQL")
Set rs=Conexao.Execute(strSQL)

e deu o seguinte erro

StrSQL

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/site2/Alterasenha_action_treina.asp, line 78

se usar o codigo assim:

response.write(StrSQL)
Set rs=Conexao.Execute(strSQL)

da o seguinte erro:

UPDATE Login SET TXT.Senha = '' WHERE TXT.Nome = ''

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/site2/Alterasenha_action_treina.asp, line 78

Vinicius Ianni · Julho 4, 2011

Tenta assim:

response.writeStrSQL
'Set rs=Conexao.Execute(strSQL)

Arquivado

Sistema de cadastro para usuarios

Recommended Posts

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelonhenhe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189