E aqui vai a pagina asp que é a envia.asp segue o codigo fonte:
Essa ta com um problema ela não da erro nenhum mas quando eu vou ver se ela realmente inseriu os dados no banco de dados ela so inseriu um registro sem nemuma informação. porque isso??
alguém pode me ajudar????
<%
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("endereço")
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("secomp.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
%>
<html>
<title>envia.asp</title>
<Body><center>
<h1><font color=black>O Cadastro foi Feito com Sucesso!!!</font></h1>
</center>
</body>
</html>
Pergunta
halakaluf
:(
olha so eu estou aprendendo asp e fiz esse site de cadastro segue o codigo fonte:
Olha ol java e pra testar o username e a senha se o usuario digito alguma coisa caso tenha DIGITADO ELE TESTA SE SÃO IGUAIS.
so que o java não testa nada, se eu mandar o forme em branco ele manda.
<html> <body> <center> <h1><font color=black>PRIMEIRA PÁGINA ASP</font></h1> </center> <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); } --> </script> <FORM NAME="cadastro" METHOD="POST" ACTION="envia.asp?acao=insere" onsubmit="return(checkForm(this))"> Nome: <input type="text" name="vNome" size="28" maxlength="30"><br> Endereço: <input type="text" name="vEndereco" size="28" maxlength="30"><br> Cidade: <input type="text" name="vCidade" size="28" maxlength="30"><br> Estado: <input type="text" name="vEstado" size="28" maxlength="30"><br> Username: <input type="text" name="vUsername" size="28" maxlength="30"><br> Senha: <input type="text" name="vSenha" size="28" maxlength="30"><br> </FORM> <FORM METHOD = "POST" ACTION = "envia.asp?acao=insere"> <INPUT TYPE ="SUBMIT" VALUE ="ENVIAR"> </FORM> </body> </html>E aqui vai a pagina asp que é a envia.asp segue o codigo fonte: Essa ta com um problema ela não da erro nenhum mas quando eu vou ver se ela realmente inseriu os dados no banco de dados ela so inseriu um registro sem nemuma informação. porque isso?? alguém pode me ajudar????<% 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("endereço") 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("secomp.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 %> <html> <title>envia.asp</title> <Body><center> <h1><font color=black>O Cadastro foi Feito com Sucesso!!!</font></h1> </center> </body> </html>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.