Jump to content
Fórum Script Brasil
  • 0

Erro De Cadastro Pq ?


[ FeLiP_e ]
 Share

Question

I ae gente

ow pessoal to com uma duvida do cassete aki ..

pow ve bem eu to com a pagina de cadastro certinha [[ é de teste ]]

-=-=-=-=-=-==-=--

<body>

<FORM NAME="cadastro" METHOD="POST" ACTION="envia.asp?acao=insere"

onsubmit="return(checkForm(this))">

<p>nome</p>

<p><input type="text" name="nome" size="20"><br>

ende.<br>

<input type="text" name="endereco" size="20"><br>

cidade<br>

<input type="text" name="cidade" size="20"><br>

estado<br>

<input type="text" name="estado" size="20"><br>

username<br>

<input type="text" name="username" size="20"><br>

senha<br>

<input type="text" name="senha" size="20"></p>

<p><input type="submit" value="Enviar" name="Enviar"><input type="reset" value="Redefinir" name="B2"></p>

</form>

</body>

-=-=-=-=-=-=-=-=-=-=-=-=-=-

certo até ai

???

intão ai vem a outra pagina de confirmação .. a envia.ASP

a página fala que " voce foi cadastrado com sucesso " mas quando vejo o bd num tem nd saKa ....... por favor me ajudem a verificar meu erro .

a proposito o nome do bd é senha .. a a pasta e usuários

-=-=-=-=-=-=-=-=-=-=-=-

<%

Option Explicit

Dim acao, rs, caminho, sql, conn

Dim vNome, vEndereco, vCidade, vEstado, vUsername, vSenha

'Identifica o que deve ser feito

acao = Request("acao")

If acao = "insere" Then 'Se um cadastro foi realizado

vNome = Request("nome")

vEndereco = Request("endereco")

vCidade = Request("cidade")

vEstado = Request("estado")

vUsername = Request("username")

vSenha = Request("senha")

'Aqui, se necessário você pode validar novamente os campos

'Cria a instrução SQL para inserir os dados no banco

sql = "INSERT INTO usuario (nome, endereco, cidade, " & _

"estado, username, senha) VALUES ('" & vNome & "','" & _

vEndereco & "','" & vCidade & "','" & vEstado & "','" & _

vUsername & "','" & vSenha "');"

'Se tudo OK, então insere no banco

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

caminho = "DBQ=" & Server.MapPath("usuario.mdb")

conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & caminho

Set rs = conn.Execute(sql)

'Fechando conexão

conn.Close

Else 'Não foi o formulário que chamou esta página

Response.Redirect "cadastro.htm"

End If

%>

<head>

<script language="javascript">

<!--

function checkForm(form)

{

if( form.username.value == "" ) {

alert("Você precisa preencher o campo Username");

form.username.focus();

return(false);

}

if( form.senha.value == "" ) {

alert("Você precisa preencher o campo Senha");

form.senha.focus();

return(false);

}

if( form.username.value == form.senha.value ) {

alert("Por segurança, os campos Username e Senha devem ter valores diferentes");

form.senha.focus();

return(false);

}

return(true); // Se tudo certo então envia

}

-->

</script>

</head>

por favor me ajudem .. espero REsp.

obrigado :)

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

A variável acao vem no endereço né? Portanto tu tens que usar request.querystring("acao");

Acho que é isso...

Link to comment
Share on other sites

  • 0

ai mano, 2 coisas:

1 o nome do banco é senha mesmo? por q se for o caminho do banco tá errado.

2 não sei foi você que digitou o código aqui ou copiou e colou... de qqer forma tem um parenteses a mais na linha onde você seta a variavel Conn como conection:

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

dá uma olhadinha aí e se possivel posta o codigo completo da página pra gente dar uma analizada nele, valeu?

[]'s

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
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...