Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal!
Estou fazendo uma página para inclusão no banco de dados (SQL) e consegui tranquilo. O problema foi quando eu comecei a colocar as condições pra verificar se todos os campos estavam preenchidos e se já não existia aquele registro antes de cadastrar no banco.
O erro que dá é:
>
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
/pizzariaverdun/admin/verifica_cadastro_endereco.asp, line 42
Se alguém puder me ajudar agradeço.
Segue o código da página:
<% Option Explicit %>
<!-- #include file = "funcoes.asp" -->
<%
dim SQL, rs, conexao, cep, bairro, rua, TempoDeEntrega, MensagemAlerta, Imagem
cep = request.Form("txtcep")
bairro = request.Form("txtbairro")
rua = request.Form("txtrua")
TempoDeEntrega = request.Form("txttempo")
'comando sql que insere os dados do endereço no banco de dados
SQL= "insert into CEPS_ATENDIDOS(CEP, Bairro, TempoDeEntrega, Rua) values ('"&cep&"', '"&bairro&"', '"&TempoDeEntrega&"', '"&rua&"')"
'abre a conexão com o banco de dados
call abre_conexao
'Verifica se todos os campos foram digitados foram digitados, se não, apresenta mensagem de erro em HTML e redireciona para a página de Sistema
if cep="" or bairro="" or rua="" or TempoDeEntrega="" then
%>
<html>
<body>
<center>
<br/><br/><br/><br/>
<img src="images/icone_alerta.png" width="32" height="32" /> <br/><br/>
<font face="Arial" color="#cf0800" size="2"> <strong> ERRO: Preencha todos os campos. </strong> </font>
</center>
</body>
</html>
<meta http-equiv="refresh" content="3; url=sistema.asp">
<%
else 'Se os campos não estiverem vazios
if not rs.eof then 'Caso já exista o registro no banco de dados, informa mensagem de erro %>
<html>
<body>
<center>
<br/><br/><br/><br/>
<img src="images/icone_alerta.png" width="32" height="32" /> <br/><br/>
<font face="Arial" color="#cf0800" size="2"> <strong> ERRO: Registro já existe no banco de dados. </strong> </font>
</center>
</body>
</html>
<meta http-equiv="refresh" content="3; url=sistema.asp">
<%
else 'Caso não exista no banco,
Set rs = conexao.Execute(SQL)'Grava no banco de dados e exibe mensagem %>
<html>
<body>
<center>
<br/><br/><br/><br/>
<img src="images/icone_ok.png" width="32" height="32" /> <br/><br/>
<font face="Arial" color="#cf0800" size="2"> <strong> Cadastro realizado com sucesso. </strong> </font>
</center>
</body>
</html>
<meta http-equiv="refresh" content="3; url=sistema.asp">
<% end if
end if
set rs = nothing 'Destrói o Objeto%>
Carregando comentários...