Str = "select * from cliente where CPF = '" &request.form("CPF") & "'"
Set Rs = Obj.execute(Str)
if not Rs.eof then
Response.Redirect ("principal.asp")
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"','"&email&"','"&login&"','"&senha&"')"
Pergunta
Guest josi
Olá pessoal..
não to conseguindo validar os campos de cadstro,,,podem me dizer o q esta errado
este é o formulario que grava
<% Dim Obj,Str,Rs,RsConsulta,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha
nome = Trim(Request.Form("nome"))
endereco = Trim(Request.Form("endereco"))
cidade = Trim(Request.Form("cidade"))
cep = Trim(Request.Form("cep"))
UF = Trim(Request.Form("UF"))
telefone = Trim(Request.Form("telefone"))
bairro = Trim(Request.Form("bairro"))
est_civil = Trim(Request.Form("est_civil"))
sexo = Trim(Request.Form("sexo"))
RG = Trim(Request.Form("RG"))
org_exp = Trim(Request.Form("org_exp"))
CPF = Trim(Request.Form("CPF"))
email = Trim(Request.Form("email"))
login = Trim(Request.Form("login"))
senha = Trim(Request.Form("senha"))
Response.Write nome & "<br>"
Response.Write endereco & "<br>"
Response.Write cidade & "<br>"
Response.Write cep & "<br>"
Response.Write UF & "<br>"
Response.Write telefone & "<br>"
Response.Write bairro & "<br>"
Response.Write est_civil & "<br>"
Response.Write sexo & "<br>"
Response.Write RG & "<br>"
Response.Write org_exp & "<br>"
Response.Write CPF & "<br>"
Response.Write email & "<br>"
Response.Write login & "<br>"
Response.Write senha & "<br>"
%>
<script language="JavaScript">
function checar_formulario(cadastrar){
if (cadastrar.nome.value == ""){
alert("Por favor coloque seu nome !!!");
cadastrar.nome.focus();
return (false);
}
if (cadastrar.endereco.value == ""){
alert("O campo endereco está vazio !!!");
cadastrar.endereco.focus();
return (false);
}
if (cadastrar.cidade.value.indexOf('@', 0) == -1){
alert("O cidade digitado é invalido !!!");
cadastrar.cidade.focus();
return (false);
}
if (cadastrar.cep.value == ""){
alert("O campo cep está vazio !!!");
cadastrar.cep.focus();
return (false);
}
return (true);
}
if (cadastrar.UF.value == ""){
alert("O campo UF está vazio !!!");
cadastrar.UF.focus();
return (false);
}
return (true);
}
if (cadastrar.telefone.value == ""){
alert("O campo telefone está vazio !!!");
cadastrar.telefone.focus();
return (false);
}
return (true);
}
if (cadastrar.bairro.value == ""){
alert("O campo bairro está vazio !!!");
cadastrar.bairro.focus();
return (false);
}
return (true);
}
if (cadastrar.est_civil.value == ""){
alert("O campo est_civil está vazio !!!");
cadastrar.est_civil.focus();
return (false);
}
return (true);
}
if (cadastrar.sexo.value == ""){
alert("O campo sexo está vazio !!!");
cadastrar.sexo.focus();
return (false);
}
return (true);
}
if (cadastrar.RG.value == ""){
alert("O campo RG está vazio !!!");
cadastrar.RG.focus();
return (false);
}
return (true);
}
if (cadastrar.org_exp.value == ""){
alert("O campo org_exp está vazio !!!");
cadastrar.org_exp.focus();
return (false);
}
return (true);
}
if (cadastrar.CPF.value == ""){
alert("O campo CPF está vazio !!!");
cadastrar.CPF.focus();
return (false);
}
return (true);
}
if (cadastrar.email.value == ""){
alert("O campo email está vazio !!!");
cadastrar.email.focus();
return (false);
}
return (true);
}
if (cadastrar.login.value == ""){
alert("O campo login está vazio !!!");
cadastrar.login.focus();
return (false);
}
return (true);
}
if (cadastrar.senha.value == ""){
alert("O campo senha está vazio !!!");
cadastrar.senha.focus();
return (false);
}
return (true);
}
</script>
<%
Set Obj = Server.CreateObject("ADODB.Connection")
Obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")
Str = "select * from cliente where CPF = '" &request.form("CPF") & "'"
Set Rs = Obj.execute(Str)
if not Rs.eof then
Response.Redirect ("principal.asp")
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"','"&email&"','"&login&"','"&senha&"')"
Rs = Obj.execute(Str)
end if
Obj.close
set Obj= nothing
response.redirect ("http://localhost/cadastrar.asp")
%>
<html>
<head>
<meta name="VI60_DTCScriptingPlatform" content="Cliente (IE 4.0 DHTML)">
<meta http-equiv="Content-Language" content="pt-br">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0" />
<meta name="ProgId" content="FrontPage.Editor.Document" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<title>incluiCliente</title>
</head>
<body>
<form name="cadastrar" method="POST" action="incluicliente.asp" onsubmit="return checar_formulario(this)"> "isso fica aki mesmo"
</body>
</html>
Link para o comentário
Compartilhar em outros sites
15 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.